R/read_log.R

In kristian-bak/shinyStocks: An Amazing Shiny App

Defines functions read_log

Documented in read_log

#' Read log
#' 
read_log <- function() {
  
  if (!file.exists("data/portfolios/shinyStocksLog.txt")) {
    return(NULL)
  }
  
  read.table(file = "data/portfolios/shinyStocksLog.txt", header = TRUE, sep = ";")
  
}