R/checkers.R

In fischuu/LabBookR: Organising Labnotes and ToDos via R

#' Check lab book
#'
#' This function checks, if the lab book is properly configured and prepared
#' @return A matrix shoing the test results
#' @export

checkLabBook <- function(labBook){
  if( exists("LabBookR.config.labBook")){
    labBook <- LabBookR.config.labBook
  } else {
    stop("Please specify the LabBook folder or load your LabBook configuration via `loadLabBookConfig(...)`")
  }

  cat("Checking integrity and issues within the LabBook\n")
  cat("----------------------------------------------------\n")
  cat("labBook                : ")
  if(file.exists(labBook)){
    cat(paste0("\033[0;32m","found!","\033[0m","\n"))
  } else {
    cat(paste0("\033[0;31m","not found!","\033[0m","\n"))
    stop("     ",labBook, " does not exist!", call.=FALSE)
  }

  projects <- getMyProjects(labBook)
  cat("ToDo lists             : ")
  if(sum(projects$ToDo=="YES")==nrow(projects)){
    cat(paste0("\033[0;32m","found!","\033[0m","\n"))
  } else {
    cat(paste0("\033[0;31m","not found!","\033[0m","\n"))
    for(i in 1:nrow(projects)){
      if(projects$ToDo[i]=="NO"){
        cat("        Check project: ", projects$title[i],"\n")
      }
    }
  }

  cat("labBook-configuration  : ")
  if(file.exists(file.path(labBook, ".LabBookR.config"))){
    cat(paste0("\033[0;32m","found!","\033[0m","\n"))
  } else {
    cat(paste0("\033[0;31m","not found!","\033[0m","\n"))
    stop("     labBook configuration file does not exist!", call.=FALSE)
  }

}