R/utils.R

In ptagliolato/vlab: LifewatchOcpuVlab

#' Title
#'
#' @param neededFields 
#' @param df 
#'
#' @return
checkFields<-function(neededFields,df){
  #Check needed columns
  #neededFields<-c("eunishabitatstypename","alien","locality","eunisspeciesgroups","scientificname")
  
  missingFields<-!neededFields %in% colnames(df)
  if(sum(missingFields)){
    stop(paste('Input data need the following fields:',paste(neededFields[missingFields], collapse=", " )))
  }
}

#' @import lme4
#' 
#' @export
testGlmer<-function(){
  print(glmer)
}