Merge pull request #92 from Boehringer-Ingelheim/330557-TC_snippet_sync

330557 tc snippet sync

Author: ml-ebs-ext

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: dv.explorer.parameter
 Type: Package
 Title: Parameter exploration modules
-Version: 0.2.1-9001
+Version: 0.2.1-9002
 Authors@R: c(
         person("Boehringer-Ingelheim Pharma GmbH & Co.KG", role = c("cph", "fnd")),
         person(given = "Luis", family = "Moris Fernandez", role = c("aut", "cre"), email = "luis.moris.fernandez@gmail.com"),

NEWS.md

@@ -1,3 +1,7 @@
+# dv.explorer.parameter 0.2.1-9002
+
+- [NOT USER-FACING] Update TC.R and DR.R snippets
+
 # dv.explorer.parameter 0.2.1-9001
 
 - [NOT USER-FACING] Update CM.R snippet

R/DR.R

@@ -1,4 +1,4 @@
-# YT#VH6cbb4db897d00c26bed7291a0f2f8658#VH00000000000000000000000000000000#
+# YT#VHb8d7094dccccb00c0c217628906ca717#VH6cbb4db897d00c26bed7291a0f2f8658#
 DR <- local({ # _D_ressing _R_oom
   inline_shiny_input <- function(elem, label = NULL, name_selector = NULL, label_elem = NULL) {
     if (is.character(label) && length(label) == 1 && nchar(label) > 0) {

R/TC.R

@@ -1,4 +1,4 @@
-# YT#VH1202cc468f3cbf448dd25ff917fc4762#VH00000000000000000000000000000000#
+# YT#VHf29a3f572c107632b46daf31f56ecd34#VH1202cc468f3cbf448dd25ff917fc4762#
 TC <- local({ # _T_ype C_hecks
   # basic types
   T_logical <- function() list(kind = "logical")
@@ -78,7 +78,7 @@ TC <- local({ # _T_ype C_hecks
         "named",                      # elements of targetted argument must be named
         "map_character_to_factor",    # the target TC$col() will be transformed to factor prior to reaching the module
         "ignore",                     # argument should be ignored by Dressing Room, for now
-        "manual_check",               # CM$generate_check_functions will not generate an automated check for this element# argument should be ignored by Dressing Room, for now
+        "manual_check",               # CM$generate_check_functions will not generate an automated check for this element
         # domain-specific flags
         "subject_level_dataset_name", # indicates dataset with one row per subject
         "subjid_var"                  # indicates unique subject identifier column on dataset pointed at by subject_level_dataset_name