R/easy_fun.R

In cloud-brain/backtest: back test for stock acount

#' @import lubridate
##date translate to char
dt_to_char <- function(x)
{
  if(is.null(x))
  {
    return(x)
  }
  return(format(ymd(x),'%Y%m%d'))
}

##combine char list
comb_char <- function(x)
{
  paste0("'",x,"'", collapse = ',')
}

fill_na <- function(x, fill = 0)
{
  ifelse(is.na(x), fill, x)
}