R/convert_to_yf.R

In JohanSalomonssonSV/jsalomon: Market analysis

#' convert_to_yf
#' @param symbol symbol
#' @param exchange exchange
#' @importFrom dplyr case_when 
#' @importFrom stringr str_replace
#' @export
#' @return ticker
convert_to_yf<-function(symbol, exchange=exchange){

symbol<-str_replace(symbol, "_", "-")  
  
x<-case_when(
  exchange == "OMXSTO" ~ paste0(symbol, ".ST"),
  exchange == "NGM" ~ paste0(symbol, ".ST"),
  exchange == "OMXCOP" ~ paste0(symbol, ".CO"),
  exchange == "OSL" ~ paste0(symbol, ".OL"),
  exchange == "OMXHEX" ~ paste0(symbol, ".HE")
)
return(x)
}