#' 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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.