R/knit-1-htmlcheck_f.R

In junyitt/tfunction: tfunction for Trading Purposes

#' htmlcheck_f
#'
#' if ^(maxdate).html exist based on maxdate from a M+ directory, return FALSE
#' 
#' Return: logical value
#' 
#' @param maxdate generated from maxdate.f
#' @param report.dir output directory of html report
#' @keywords max date from M+ html report
#' @export
htmlcheck_f <- function(maxdate, report_dir){
      flist2 <- list.files(path = report_dir, pattern = "^_201.*html")
      
      htmlname <- grep(pattern = maxdate, x = flist2, value = T)  
      if(length(htmlname)==0){
            return(FALSE)
      }else{
            return(TRUE)
      }
}