internal fx returns more

ref #427
OuhscBbmc · Sep 9, 2022 · 38fb68d · 38fb68d
1 parent 5e477e7
commit 38fb68d
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 4 deletions.
diff --git a/R/redcap-metadata-coltypes.R b/R/redcap-metadata-coltypes.R
@@ -179,12 +179,11 @@ redcap_metadata_coltypes <- function(
 
   # Sandwich the col_types output in between the opening+header and the closing
   sandwich <-
-    # I'd prefer this approach, but the `.` is causing problems with R CMD check.
     paste0(
       "# col_types <- readr::cols_only( # Use `readr::cols_only()` to restrict the retrieval to only these columns\n",
       "col_types <- readr::cols( # Use `readr::cols()` to include unspecified columns\n",
       header,
-      paste(meat, collapse = "\n") ,
+      paste(meat, collapse = "\n"),
       "\n)\n"
     )
 
@@ -420,6 +419,8 @@ redcap_metadata_internal <- function(
   }
 
   list(
-    d_variable = d
+    d_variable      = d,
+    longitudinal    = d_proj$is_longitudinal[1],
+    repeating       = d_proj$has_repeating_instruments_or_events[1]
   )
 }
diff --git a/playgrounds/eav-playground.R b/playgrounds/eav-playground.R
@@ -81,7 +81,7 @@ ds_possible_checkbox_rows  <-
     field_name = distinct_checkboxes,
     record     = unique(ds_eav$record),
     field_type = "checkbox",
-    event_id   =  unique(ds_eav$event_id)
+    event_id   = unique(ds_eav$event_id)
   )
 
 # ds_metadata %>%