R/contactMandatory.R

In aberWARU/waruDB: Database backend functions for waruPortal

#' Mandatory Value Check (Contact Form)
#'
#' @param inputData list of input data from Participant Interest contact form
#' @return a numeric value either 0;missing mandatory values or  1; all values present
#'
#' @export

contactMandatory <- function(inputData)
{
  if (length(inputData$DOB) == 0) {
    inputData$DOB <- ""
  }


  clean_data <- unlist(inputData) %>% data.frame()
  mandatoryValues <-
    t(clean_data) %>% tibble::as_tibble() %>% dplyr::select(Forename,
                                                            Surname,
                                                            EmailAddress,
                                                            DOB)

  mandatoryCheck <- any(mandatoryValues == "")

  if (isTRUE(mandatoryCheck)) {
    return(0)
  } else{
    return(1)
  }

}