original_codes/original_is_dgm_friendly.R

In nasserdr/digiRhythm: Analyzing Animal's Rhythmicity

library(crayon)
library(digiRhythm)
data("df516b_2", package = "digiRhythm")
data <- df516b_2

verbose = TRUE
is_dgm <- TRUE


if(is.null(data)){
  message <- red('Data cannot be NULL')
  print_v(message, verbose)
  is_dgm <- FALSE
} else{

  #Checking if the first column meets the requirements
  if("POSIXct" %in%  class(data[,1])  | "POSIXt" %in%  class(data[,1])){
    message <- paste0(green('v Correct time format: '), 'First column has a POSIXct Format')
    print_v(message, verbose)
  }else {
    message <- paste0(red('x Inorrect time format: '), 'First column does not a POSIXct Format')
    print_v(message, verbose)
    is_dgm <- FALSE
  }


  #Checking if data contains at least 7 days of data
  if(length(unique(as.Date(data[,1]))) >= 2){
    message <- paste0(green('v Number of days: '), 'Bigger or equal to 2')
    print_v(message, verbose)
  }else {
    message <- paste0(red('x Number of days: '), 'Less than 2 (minimum of 2 days is recommended)')
    print_v(message, verbose)
    is_dgm <- FALSE
  }



  #Checking if we have more than one column
  if(ncol(data) == 1){
    message <- paste0(red('x Illogical number of columns: '), 'The dataset has only one column. Minimum number of columns is 2')
    print_v(message, verbose)
    is_dgm <- FALSE
  }else{
    #Checking if data are numeric
    for(i in 2:ncol(data)){
      if("numeric" %in% class(data[,i]) | "integer" %in%  class(data[,i])){
        message <- green(paste('v Correct numeric format - Column', i, '==>', colnames(data)[i]))
        print_v(message, verbose)
      } else {
        message <- red(paste('x Inorrect numeric format - Column', i, '==>', colnames(data)[i]))
        print_v(message, verbose)
      }
    }
  }
}


if(is_dgm){
  message <- green('The data is digiRhythm friendly')
  print_v(message, verbose)
} else{
  message <- red('The data is NOT digiRhythm friendly')
  print_v(message, verbose)
}

return(is_dgm)