R/qaqc.R

In lboro-climb/snackapp.usage: snackapp.usage

#' qaqc
#' 
#' @description a function to perform QAQC on the SnackApp usage summary
#'
#' @param data A dataframe of SnackApp usage data
#'
#' @return A QAQC summary of SnackApp usage data
#' @export
#'
#' @examples
qaqc <- function(data){
  qaqc <- data

  qaqc$date <- as.POSIXct(qaqc$Date, tz = "GMT")
  qaqc$Date <- NULL
  qaqc$year <- lubridate::year(qaqc$date)
  qaqc$month <- lubridate::month(qaqc$date)
  qaqc$day <- lubridate::day(qaqc$date)
  qaqc$date_lag <- dplyr::lag(qaqc$date)
  qaqc$diff <- difftime(qaqc$date, qaqc$date_lag, units = "sec") 
  qaqc$diff[qaqc$diff < 0] <- NA

  qaqc$error <- 0

  qaqc$error[is.na(qaqc$error)] <- 0

  qaqc <- dplyr::relocate(qaqc, error, id, date, date_lag, diff, year, month, day)
  
  return(qaqc)
}