Merge pull request #212 from Lextuga007/small-edits

Small edits on messages

Author: RayStick

R/compare.R

@@ -59,7 +59,7 @@ consensus_on_mismatch <- function(ses_join, table_df, var_int,
   if (ses_join$domain_code_ses1[var_int]
       != ses_join$domain_code_ses2[var_int]) {
     cat("\n\n")
-    cli_alert_warning("Mismatch found, provide concensus decision below.")
+    cli_alert_warning("Mismatch found, provide consensus decision below.")
     cli_alert_warning(paste("\nDOMAIN CODE (note) for session 1 --> ",
                             ses_join$domain_code_ses1[var_int],
                             "(", ses_join$note_ses1[var_int], ")"))

tests/testthat/test-data_load.R

@@ -113,7 +113,7 @@ test_that("data_load errors when look_up_file has incorrect column names", {
                "look_up file does not have expected column names")
 })
 
-test_that("data_load gives warning when look_up and domain_file mistmatch", {
+test_that("data_load gives warning when look_up and domain_file mismatch", {
   look_up_temp2 <- look_up
   look_up_row <- data.frame(Variable = "test", Domain_Name = "test")
   look_up_temp2 <- rbind(look_up_temp2, look_up_row)