R/stooq_download.R

In pawel-wieczynski/PolishStock: Analysis of WSE stocks and other assets.

#' Stooq Download Function
#'
#' Download financial time series from https://stooq.pl/ in .csv format.
#' @param symbol Asset ticker from https://stooq.pl/
#' @param start_date Format 'yyyymmdd'. Default set to 20000101
#' @param end_date Format 'yyyymmdd'. Default set to 20211231
#' @param interval Default set to 'd'. Other interval available are 'w', 'm', 'q', 'y'
#' @param destination Destination folder to save .csv file. Deafault is your current working directory.
#'
#' @export
#'
#' @examples
#' stooq_download('cdr', 20100101, 20211231)
#' @examples
#' stooq_download(
#' 'wig20'
#' ,20100101
#' ,20211231
#' ,'w'
#' ,'C:\\Windows\\Temp\\'
#' )

stooq_download <- function(symbol
                           ,start_date = 20000101
                           ,end_date = 20211231
                           ,interval = 'd'
                           ,destination){

  url <- paste0(
    'https://stooq.pl/q/d/l/?s=', symbol
    ,'&d1=', start_date
    ,'&d2=', end_date
    ,'&i=', interval
  )

  if (missing(destination)){
    download.file(url = url
                  ,destfile = paste0(symbol
                                     ,'.csv'))
  } else{
    download.file(url = url
                  ,destfile = paste0(destination
                                     ,symbol
                                     ,'.csv'))
  }


}