R/dataInputCheck.R

Defines functions dataCheck

Documented in dataCheck

#' @title Checks if data is in correct format.
#'
#' @param data the input data. It can be either a list that contains a data frame in .$timeIntensityData or can be a data frame by itself.
#' @param showDetails logical, if TRUE the function will provide an output "check done" if everything is OK. Default is FALSE
#'
#' @description Checks if the input data is appropriate and if it is not, the function converts it into a suitable form. The input data frame should contain two columns named time and intensity related to time variable and intensity variable respectively. If the data frame is in a list its name in the list should be $timeIntensityData.
#' @export
#'
#' @examples
#'
#' # Example 1
#'
#' # generate data frame
#' time <- seq(3, 48, 0.5)
#' intensity <- runif(length(time), 3.0, 7.5)
#' dataInput <- data.frame(time, intensity)
#'
#' # Apply dataCheck function
#' dataOutputVariable <- dataCheck(dataInput)
#'
#' # Example 2
#'
#' # generate data frame
#' time <- seq(3, 48, 0.5)
#' intensity <- runif(length(time), 3.0, 7.5)
#' dataInput <- data.frame(time, intensity)
#'
#' # Normalize Data
#' dataOutput <- normalizeData(dataInput)
#' dataInput2 <- dataOutput
#'
#' # Apply dataCheck function
#' dataOutputVariable2 <- dataCheck(dataInput2)

dataCheck <- function(data, showDetails=TRUE){

  isalist <- (is.list(data) & !is.data.frame(data))

  if(isalist){

    doesitcontainTID <- ("timeIntensityData" %in% names(data))

    if(doesitcontainTID){
      issection_dataframe <- is.data.frame(data$timeIntensityData)

      if(issection_dataframe){
        data_next_check <- data$timeIntensityData
      }

      if(!issection_dataframe){
        stop("the timeIntensityData section should be a data frame")
      }

    }

    if(!doesitcontainTID){
      stop("the list should contain timeIntensityData section")
    }

  }

  if(!isalist){
    isadataframe <- is.data.frame(data)

    if(isadataframe){
      data_next_check <- data
      data2 <- data
      data <- list(timeIntensityData=data2)
    }

    if(!isadataframe){
      stop("It should either be a list or a data frame")
    }
  }

  num_columns <- ncol(data_next_check)
  if(num_columns == 2){
    doescolnamescorrect <- ("time" %in% names(data_next_check) & "intensity" %in% names(data_next_check))

    if(doescolnamescorrect){
      arecolumnsnumeric <- (is.numeric(data_next_check$time) & is.numeric(data_next_check$intensity))

      if(arecolumnsnumeric){
        doesIntensityHaveVariation <- (max(data_next_check$intensity,na.rm = T) -
                                        min(data_next_check$intensity,na.rm = T) > 0)

        if(!doesIntensityHaveVariation){
          warning("min intensity = max intensity i.e intensity do not have variation")
        }

        if(doesIntensityHaveVariation) {
          if(showDetails == FALSE) {print("check done")}
          return(dataCheckVariable <- "pass")
        }

      }

      if(!arecolumnsnumeric){
        stop("The columns should include numbers")
      }

    }

    if(!doescolnamescorrect){
      stop("The column names should be time and intensity")
    }

  }

  if(!num_columns == 2){
    stop("The data frame should contain 2 columns")
  }

}

Try the sicegar package in your browser

Any scripts or data that you put into this service are public.

sicegar documentation built on Aug. 23, 2019, 5:05 p.m.