spanish characters; annotations

ref #360
OuhscBbmc · Nov 3, 2021 · d6d3ff0 · d6d3ff0
1 parent 9c14f5d
commit d6d3ff0
Show file tree

Hide file tree

Showing 4 changed files with 24 additions and 7 deletions.
diff --git a/inst/test-data/super-wide-3/generate-dictionary.R b/inst/test-data/super-wide-3/generate-dictionary.R
@@ -22,7 +22,7 @@ ds <-
     `Text Validation Min`                         = "",
     `Text Validation Max`                         = "",
     `Identifier?`                                 = NA_character_,
-    `Branching Logic (Show field only if...)`     = "",
+    `Branching Logic (Show field only if...)`     = NA_character_,
     `Required Field?`                             = NA_character_,
     `Custom Alignment`                            = NA_character_,
     `Question Number (surveys only)`              = "",
@@ -37,17 +37,34 @@ ds <-
     `Field Label`       = sprintf("Long description for variable %s", `Variable / Field Name`),
     `Field Note`        = sprintf("Field note %s", `Variable / Field Name`),
     `Identifier?`       = dplyr::if_else(variable_index %% 4 == 0L, "y", ""),
+    `Branching Logic (Show field only if...)` = dplyr::if_else(variable_index %% 10 == 0L, "[variable_12345] = '1'", ""),
     `Required Field?`   = dplyr::if_else(variable_index %% 2 == 0L & `Field Type` != "descriptive", "y", ""),
     `Custom Alignment`  = dplyr::if_else(variable_index %% 5 == 0L, "RH", ""),
   ) |>
   dplyr::mutate(
-    `Field Annotation`    = dplyr::if_else(variable_index %%  6 == 0L, " @READONLY", ""),
-    `Field Annotation`    = dplyr::if_else(variable_index %%  7 == 0L, " @HIDDEN", ""),
-    `Field Annotation`    = dplyr::if_else(variable_index %%  8 == 0L, " @SHARED", ""),
-    `Field Annotation`    = dplyr::if_else(variable_index %%  9 == 0L, " @DEFAULT='-1'", ""),
-    `Field Annotation`    = dplyr::if_else(variable_index %% 10 == 0L, " @NOW", ""),
+    `Field Annotation`    = dplyr::if_else(variable_index %%  6 == 0L, paste(`Field Annotation`, "@READONLY"), ""),
+    `Field Annotation`    = dplyr::if_else(variable_index %%  7 == 0L, paste(`Field Annotation`, "@HIDDEN"), ""),
+    `Field Annotation`    = dplyr::if_else(variable_index %%  8 == 0L, paste(`Field Annotation`, "@SHARED"), ""),
+    `Field Annotation`    = dplyr::if_else(variable_index %%  9 == 0L, paste(`Field Annotation`, "@DEFAULT='-1'"), ""),
+    `Field Annotation`    = dplyr::if_else(variable_index %% 10 == 0L, paste(`Field Annotation`, "@NOW"), ""),
   )
 
+# Get a label with things that could potentially mess up JSON if the parser is poor.
+ds$`Field Label`[2] <-
+  '
+    <span lang="en">{Name of University} is one part of a super awesome study.
+
+    We will also collect some small biological samples, such as saliva.
+
+    Do you have any questions about what the study involves?</span>
+
+    <span lang="es">La {nombre de la universidad} forma parte de un estudio fabuloso.
+
+    También se colectará algunas muestras biológicas, como saliva.
+
+    ¿Tiene alguna pregunta sobre lo que implica el estudio?</span>"
+  '
+
 ds$variable_index <- NULL # Drop before writing to disk.
 
 readr::write_csv(ds, "inst/test-data/super-wide-3/super-wide-3-dictionary.csv")
diff --git a/inst/test-data/super-wide-3/super-wide-3-dictionary.tar.xz b/inst/test-data/super-wide-3/super-wide-3-dictionary.tar.xz
diff --git a/inst/test-data/super-wide-3/super-wide-3-dictionary.zip b/inst/test-data/super-wide-3/super-wide-3-dictionary.zip
diff --git a/tests/testthat/test-metadata-read.R b/tests/testthat/test-metadata-read.R
@@ -54,7 +54,7 @@ test_that("Super-wide 3", {
   expected_outcome_message <- "The data dictionary describing 35,004 fields was read from REDCap in \\d+(\\.\\d+\\W|\\W)seconds\\.  The http status code was 200\\."
   expected_row_count    <- 35004L
   expected_column_count <- 18L
-  expected_na_cells     <- 404297L
+  expected_na_cells     <- 397297L
 
   expect_message(
     regexp           = expected_outcome_message,