Date: Sun, 2 Apr 2017 02:03:01 +0000 (UTC) From: TAKATSU Tomonari <tota@FreeBSD.org> To: ports-committers@freebsd.org, svn-ports-all@freebsd.org, svn-ports-branches@freebsd.org Subject: svn commit: r437515 - in branches/2017Q2/finance/R-cran-RFinanceYJ: . files Message-ID: <201704020203.v32231L7003004@repo.freebsd.org>
next in thread | raw e-mail | index | archive | help
Author: tota Date: Sun Apr 2 02:03:01 2017 New Revision: 437515 URL: https://svnweb.freebsd.org/changeset/ports/437515 Log: MFH: r437495 - Fix the patch to make fetchable with getURL (from RCurl) to support HTTPS because Yahoo! JAPAN services have been migrated to AOSSL - Update RUN_DEPENDS, accordingly Approved by: ports-secteam (junovitch) Added: branches/2017Q2/finance/R-cran-RFinanceYJ/files/patch-DESCRIPTION - copied unchanged from r437495, head/finance/R-cran-RFinanceYJ/files/patch-DESCRIPTION Modified: branches/2017Q2/finance/R-cran-RFinanceYJ/Makefile branches/2017Q2/finance/R-cran-RFinanceYJ/files/patch-R-quoteStockTsData.R Directory Properties: branches/2017Q2/ (props changed) Modified: branches/2017Q2/finance/R-cran-RFinanceYJ/Makefile ============================================================================== --- branches/2017Q2/finance/R-cran-RFinanceYJ/Makefile Sun Apr 2 01:06:25 2017 (r437514) +++ branches/2017Q2/finance/R-cran-RFinanceYJ/Makefile Sun Apr 2 02:03:01 2017 (r437515) @@ -3,7 +3,7 @@ PORTNAME= RFinanceYJ PORTVERSION= 0.3.1 -PORTREVISION= 6 +PORTREVISION= 7 CATEGORIES= finance DISTNAME= ${PORTNAME}_${PORTVERSION} @@ -12,7 +12,8 @@ COMMENT= Japanese stock market from Yaho 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 Copied: branches/2017Q2/finance/R-cran-RFinanceYJ/files/patch-DESCRIPTION (from r437495, head/finance/R-cran-RFinanceYJ/files/patch-DESCRIPTION) ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ branches/2017Q2/finance/R-cran-RFinanceYJ/files/patch-DESCRIPTION Sun Apr 2 02:03:01 2017 (r437515, copy of r437495, head/finance/R-cran-RFinanceYJ/files/patch-DESCRIPTION) @@ -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 Modified: branches/2017Q2/finance/R-cran-RFinanceYJ/files/patch-R-quoteStockTsData.R ============================================================================== --- branches/2017Q2/finance/R-cran-RFinanceYJ/files/patch-R-quoteStockTsData.R Sun Apr 2 01:06:25 2017 (r437514) +++ branches/2017Q2/finance/R-cran-RFinanceYJ/files/patch-R-quoteStockTsData.R Sun Apr 2 02:03:01 2017 (r437515) @@ -1,6 +1,6 @@ ---- 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 @@ -27,10 +27,12 @@ + 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 ) @@ -54,7 +56,7 @@ } } -@@ -90,7 +81,6 @@ +@@ -90,7 +82,6 @@ quoteTsData <- function(x,function.finan financial.data <- rbind(financial.data,function.financialproduct(quote.table[[i]])) } @@ -62,7 +64,7 @@ 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) }
Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?201704020203.v32231L7003004>