inst/app/www/fun_test_data_odk.R

In ocelhay/AMULaos: App on Antimicrobial Use (AMU) in Laos.

test_data_odk <- function(patient, ward) {
  test_msg <- "Data has right format."
  
  # Should be identical
  test_equal <- all(setequal(ward$site, patient$site),
                    setequal(ward$hospcd, patient$hospcd),
                    setequal(ward$surdate, patient$surdate),
                    setequal(ward$specialty, patient$specialty),
                    FALSE)
  
  if(! test_equal) test_msg <- "There is an issue with provided data. Please contact us."
  
  return(test_msg)
}