R/loadData.R

In rpietrusinski/GA-stock-prices: Genetic algorithm for portfolio selection

#' Load data
#'
#' Function loads the required stock monthly data for tick *x* from https://stooq.pl.
#'
#' @param x tick of required stock (ex. "PKO")
#' @param start start date (format = yyyymmdd)
#' @param end end date (format = yyyymmdd)
#' @param freq monthly('m')/daily('d') data
#'
#' @return data.frame with share prices
#' @export
loadData <- function(x, start, end, freq){

  URL <- paste("https://stooq.pl/q/d/l/?s=", x, "&d1=", start, "&d2=", end, "&i=", freq, sep="")
  x <- RCurl::getURL(URL)
  out <- read.csv(textConnection(x))
  return(out)
}