R/get_file_name.R

In kristian-bak/shinyStocks: An Amazing Shiny App

#' Get file name
#' @param stock_name stock name
#' 
get_file_name <- function(stock_name, folder_name = "etf_info") {
  
  str_stock_name <- stringify(x = stock_name)
  
  if (starts_with_digit(str_stock_name)) {
    
    str_stock_name <- paste0("XYZ_", str_stock_name)
    
  }
  
  if (contains_scandinavian_letters(str_stock_name)) {
    
    str_stock_name <- replace_scandinavian_letters(str_stock_name)
    
  }
  
  subfolder <- paste0("data/", folder_name, "/")
  file_name <- paste0(subfolder, str_stock_name, ".RDS")
  
  return(file_name)
  
}