Index: head/finance/R-cran-RFinanceYJ/Makefile
===================================================================
--- head/finance/R-cran-RFinanceYJ/Makefile	(revision 437494)
+++ head/finance/R-cran-RFinanceYJ/Makefile	(revision 437495)
@@ -1,20 +1,21 @@
 # Created by: TAKATSU Tomonari <tota@FreeBSD.org>
 # $FreeBSD$
 
 PORTNAME=	RFinanceYJ
 PORTVERSION=	0.3.1
-PORTREVISION=	6
+PORTREVISION=	7
 CATEGORIES=	finance
 DISTNAME=	${PORTNAME}_${PORTVERSION}
 
 MAINTAINER=	tota@FreeBSD.org
 COMMENT=	Japanese stock market from Yahoo!-finance-Japan
 
 LICENSE=	BSD3CLAUSE
 
-RUN_DEPENDS=	R-cran-XML>0:textproc/R-cran-XML \
+RUN_DEPENDS=	R-cran-RCurl>0:ftp/R-cran-RCurl \
+		R-cran-XML>0:textproc/R-cran-XML \
 		R-cran-xts>0:math/R-cran-xts
 
 USES=	cran:auto-plist
 
 .include <bsd.port.mk>
Index: head/finance/R-cran-RFinanceYJ/files/patch-DESCRIPTION
===================================================================
--- head/finance/R-cran-RFinanceYJ/files/patch-DESCRIPTION	(nonexistent)
+++ head/finance/R-cran-RFinanceYJ/files/patch-DESCRIPTION	(revision 437495)
@@ -0,0 +1,11 @@
+--- DESCRIPTION.orig	2013-12-23 12:54:37 UTC
++++ DESCRIPTION
+@@ -8,7 +8,7 @@ Maintainer: Yohei Sato <yohei0511@gmail.
+ Description: Japanese stock market from Yahoo!-finance-Japan
+ License: BSD 3-clause License
+ LazyLoad: yes
+-Depends: XML,xts
++Depends: RCurl,XML,xts
+ Repository: CRAN
+ Date/Publication: 2013-08-13 09:37:24
+ Packaged: 2013-08-12 15:06:46 UTC; yokkuns

Property changes on: head/finance/R-cran-RFinanceYJ/files/patch-DESCRIPTION
___________________________________________________________________
Added: fbsd:nokeywords
## -0,0 +1 ##
+yes
\ No newline at end of property
Added: svn:eol-style
## -0,0 +1 ##
+native
\ No newline at end of property
Added: svn:mime-type
## -0,0 +1 ##
+text/plain
\ No newline at end of property
Index: head/finance/R-cran-RFinanceYJ/files/patch-R-quoteStockTsData.R
===================================================================
--- head/finance/R-cran-RFinanceYJ/files/patch-R-quoteStockTsData.R	(revision 437494)
+++ head/finance/R-cran-RFinanceYJ/files/patch-R-quoteStockTsData.R	(revision 437495)
@@ -1,70 +1,72 @@
---- R/quoteStockTsData.R.orig	2013-08-13 00:05:58.000000000 +0900
-+++ R/quoteStockTsData.R	2015-01-24 20:34:35.000000000 +0900
-@@ -46,42 +46,33 @@
+--- R/quoteStockTsData.R.orig	2013-08-12 15:05:58 UTC
++++ R/quoteStockTsData.R
+@@ -46,42 +46,34 @@ quoteFXTsData <- function(x, since=NULL,
  #get time series data from Yahoo! Finance.
  quoteTsData <- function(x,function.financialproduct,since,start.num,date.end,time.interval,type="stock"){
    r <- NULL
 -  result.num <- 51
    financial.data <- data.frame(NULL)
 -  #start <- (gsub("([0-9]{4,4})-([0-9]{2,2})-([0-9]{2,2})","&c=\\1&a=\\2&b=\\3",since))
 -  #end   <- (gsub("([0-9]{4,4})-([0-9]{2,2})-([0-9]{2,2})","&f=\\1&d=\\2&e=\\3",date.end))
    start <- (gsub("([0-9]{4,4})-([0-9]{2,2})-([0-9]{2,2})","&sy=\\1&sm=\\2&sd=\\3",since))
    end   <- (gsub("([0-9]{4,4})-([0-9]{2,2})-([0-9]{2,2})","&ey=\\1&em=\\2&ed=\\3",date.end))
  
    if(!any(time.interval==c('d','w','m'))) stop("Invalid time.interval value")
 -  
 -  extractQuoteTable <- function(r,type){
 -    if(type %in% c("fund","fx")){
 -      tbl <- r[[2]][[2]][[7]][[3]][[3]][[9]][[2]]
 -    }
 -    else{
 -      tbl <- r[[2]][[2]][[7]][[3]][[3]][[10]][[2]]
 -    }
 -    return(tbl)
 -  }
 -  
 -  while( result.num >= 51 ){
 +  while( 1 ){
      start.num <- start.num + 1
      quote.table <- NULL
-     quote.url <- paste('http://info.finance.yahoo.co.jp/history/?code=',x,start,end,'&p=',start.num,'&tm=',substr(time.interval,1,1),sep="")
+-    quote.url <- paste('http://info.finance.yahoo.co.jp/history/?code=',x,start,end,'&p=',start.num,'&tm=',substr(time.interval,1,1),sep="")
++    quote.url <- paste('https://info.finance.yahoo.co.jp/history/?code=',x,start,end,'&p=',start.num,'&tm=',substr(time.interval,1,1),sep="")
++    quote.html <- getURL(quote.url)
    
 -    try( r <- xmlRoot(htmlTreeParse(quote.url,error=xmlErrorCumulator(immediate=F))), TRUE)
-+    try( r <- htmlParse(quote.url) )
++    try( r <- htmlParse(quote.html) )
      if( is.null(r) ) stop(paste("Can not access :", quote.url))
  
 -    #try( quote.table <- r[[2]][[1]][[1]][[16]][[1]][[1]][[1]][[4]][[1]][[1]][[1]], TRUE )
 -    try( quote.table <- extractQuoteTable(r,type), TRUE )
 +    try( quote.table <- xpathApply(r,"//table")[[2]], TRUE )
 +
 +    quote.size <- xmlSize(quote.table)
 +
 +    if( xmlSize(quote.table) <= 1 ){
 +      return(financial.data)
 +    }
      
      if( is.null(quote.table) ){
        if( is.null(financial.data) ){
          stop(paste("Can not quote :", x))
        }else{
 -         financial.data <- financial.data[order(financial.data$date),]
 -         return(financial.data)
 +        financial.data <- financial.data[order(financial.data$date),]
 +        return(financial.data)
        }
      }
  
-@@ -90,7 +81,6 @@
+@@ -90,7 +82,6 @@ quoteTsData <- function(x,function.finan
        financial.data <- rbind(financial.data,function.financialproduct(quote.table[[i]]))
      }
      
 -    result.num <- xmlSize(quote.table)
      Sys.sleep(1)
    }
    financial.data <- financial.data[order(financial.data$date),]
-@@ -120,5 +110,3 @@
+@@ -120,5 +111,3 @@ endOfMonth <- function(date.obj)
    return(startOfNextMonth-1)
  }
  
 -
 -