R/mds_chkmds.R

In kmcconeghy/mdsr: A Suite of Functions for Working with Nursing Home Minimum Data Set Assessments.

#' @title mds_chkmds: Generate a report on MDS data.frame
#'
#' @description Called when testing an object is MDS canonical
#'
#' @usage mds_chkmds(mds_obj, .report=T)
#'
#' @param mds_obj A data.frame class object.
#'
#' @return Prints output to console
#'
#' @export
#'
#' @examples
#' require(mdsR)
#' mds_dta <- mdsR::mds_cohort
#' mds_chkmds(mds_dta)
#'
mds_chkmds <- function(mds_obj) {

  obj_name <- rlang::quo(mds_obj)

  ## Print summary statistics
    cat('General Report on Minimum Dataset File \n')
    cat('R global environment, object: ', paste0(rlang::quo_text(obj_name), '\n'))
    cat('Date Created: ', Scotty::TimeStamp(), 'Programmer: ', 'KWM',  '\n')


  ## Evaluate standard



  ##Pull non-standards
  var_nms <- mdsR::mds_varlist[mds_varlist$standard=='non-std', ]$item

}