Add field annotations

ref #360
OuhscBbmc · Nov 3, 2021 · 9c14f5d · 9c14f5d
1 parent 9dc3fb4
commit 9c14f5d
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/inst/test-data/super-wide-3/generate-dictionary.R b/inst/test-data/super-wide-3/generate-dictionary.R
@@ -39,6 +39,13 @@ ds <-
     `Identifier?`       = dplyr::if_else(variable_index %% 4 == 0L, "y", ""),
     `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", ""),
   )
 
 ds$variable_index <- NULL # Drop before writing to disk.