R/check_routine.R

In junyitt/function0: Function0 - General Functions

#' Check column of downloaded M+ data
#'
#' Check if column = 251
#' 
#' @param csv1 main csv with 1700+ rows 
#' @param csvk FBMKLCI csv with 30 rows
#' @param dir_desktop desktop directory
#' @keywords check column M+ data
#' @export
#' @examples  
#' checkcolumn.f(csv1, csvk, dir_desktop = "C:/Users/User/Desktop/")
#'
#'
checkcolumn.f <- function(csv1, csvk, dir_desktop){
      f1 <- paste0(dir_desktop,csv1); f1size <- file.size(f1)/10^3
      f2 <- paste0(dir_desktop,csvk); f2size <- file.size(f2)/10^3
      df1 <- read.csv(f1)
      df2 <- read.csv(f2)
      
      r1 <- nrow(df1); c1 <- ncol(df1)
      r2 <- nrow(df2); c2 <- ncol(df2)
      
      cat(paste0(csv1, ": size = ", f1size," kb\n"))
      cat(paste0(csvk, ": size = ", f2size," kb\n\n"))
            
      if(ncol(df1) >= 251){
            cat(paste0(csv1, ": nCOL = ", c1," \n"))
            cat(paste0(csv1, ": nROW = ", r1," \n\n"))
            
            g1 <- TRUE
      }else{
            cat(paste0(csv1, ": nCOL = ", c1," \n"))
            cat(paste0(csv1, ": nROW = ", r1," \n"))
            cat(paste0(csv1, ": NOT OKAY\n\n"))
            g1 <- FALSE
      }
      
      if(ncol(df2) >= 251){
            cat(paste0(csvk, ": nCOL = ", c2," \n"))
            cat(paste0(csvk, ": nROW = ", r2," \n\n"))
            
            g2 <- TRUE
      }else{
            cat(paste0(csvk, ": nCOL = ", c2," \n"))
            cat(paste0(csvk, ": nROW = ", r2," \n"))
            cat(paste0(csvk, ": NOT OKAY\n\n"))
            
            g2 <- FALSE
      }
      
      return(g1 & g2)
      
}