fixed issue #19

DESCRIPTION

@@ -1,9 +1,9 @@
 Package: BatchGetSymbols
 Title: Downloads and Organizes Financial Data for Multiple Tickers
-Version: 2.6
+Version: 2.6.1
 Authors@R: person("Marcelo", "Perlin", email = "marceloperlin@gmail.com", role = c("aut", "cre"))
 Description: Makes it easy to download financial data from Yahoo Finance <https://finance.yahoo.com/>.
-Date: 2020-11-22
+Date: 2020-11-27
 Depends:
     R (>= 3.4.0), rvest, dplyr
 Imports: stringr, curl, quantmod, XML, tidyr, 

NEWS.md

@@ -1,3 +1,8 @@
+## Version 2.6.1 (2020-11-27)
+
+- Fixed issue [issue 19](https://github.com/msperlin/BatchGetSymbols/issues/19), which only happened in Windows. 
+- changed default cache dir for ticker grabbing function
+
 ## Version 2.6 (2020-11-22)
 
 - The cache system is now session-persistent with `cache.dir = file.path(tempdir(), 'BGS_Cache')`. This solves the problem with mismatching price series from cached data between splits or dividends. A new warning is set whenever the user uses cache.dir different from temp.dir()

R/BatchGetSymbols.R

@@ -342,13 +342,8 @@ BatchGetSymbols <- function(tickers,
                df.tickers = df.tickers)
 
   # check if cach folder is tempdir()
-<<<<<<< HEAD
-  flag <- stringr::str_detect(string = cache.folder,
-                              pattern = tempdir())
-=======
   flag <- stringr::str_detect(cache.folder,
                               pattern = stringr::fixed(tempdir()))
->>>>>>> 63694a0635c7d0bca8688ddb652d150a28354f98
 
   if (!flag) {
     warning(stringr::str_glue('\nIt seems you are using a non-default cache folder at {cache.folder}. ',

R/GetFTSE100Stocks.R

@@ -16,7 +16,8 @@ GetFTSE100Stocks <- function(do.cache = TRUE,
                              cache.folder = file.path(tempdir(),
                                                       'BGS_Cache')){
 
-  cache.file <- file.path(cache.folder, paste0('FTSE100_Composition_', Sys.Date(), '.rds') )
+  cache.file <- file.path(cache.folder,
+                          paste0('FTSE100_Composition_', Sys.Date(), '.rds') )
 
   if (do.cache) {
     # check if file exists

R/GetSP500Stocks.R

@@ -16,7 +16,8 @@ GetSP500Stocks <- function(do.cache = TRUE,
                            cache.folder = file.path(tempdir(),
                                                     'BGS_Cache')){
 
-  cache.file <- file.path(cache.folder, paste0('SP500_Composition_', Sys.Date(), '.rds') )
+  cache.file <- file.path(cache.folder,
+                          paste0('SP500_Composition_', Sys.Date(), '.rds') )
 
   if (do.cache) {
     # check if file exists

R/Get_Ibov_Stocks.R

@@ -17,7 +17,8 @@ GetIbovStocks <- function(do.cache = TRUE,
                                                    'BGS_Cache'),
                           max.tries  = 10){
 
-  cache.file <- file.path(cache.folder, paste0('Ibov_Composition_', Sys.Date(), '.rds') )
+  cache.file <- file.path(cache.folder,
+                          paste0('Ibov_Composition_', Sys.Date(), '.rds') )
 
   # get list of ibovespa's tickers from wbsite