R/load_benchmark_info.R

In kristian-bak/shinyStocks: An Amazing Shiny App

#' Load benchmark info
#' @param df_portfolio df_portfolio
#' @param etf_info etf_info obtained from get_etf_info
#' @param benchmark_name name of benchmark
#' @param benchmark_ticker ticker code used for the benchmark ETF
#' 
load_benchmark_info <- function(df_portfolio, etf_info, benchmark_name, benchmark_ticker) {
  
  if (benchmark_name %in% df_portfolio$Stock) {
    
    benchmark_id <- which(benchmark_name == df_portfolio$Stock)[1]
    
    out <- etf_info[[benchmark_id]]
    
  } else {
    
    out <- get_etf_info(
      stock_name = benchmark_name, 
      ticker = benchmark_ticker
    )
    
  }
  
  return(out)
  
}