Merge branch 'main' of github.com:SurgicalInformatics/gecko_shinyviz …

…into main

R/app_server.R

@@ -12,13 +12,27 @@ library(magrittr)
 board = board_connect()
 appdata      = pin_read(board, "rots/gecko_appdata")
 updated_date = pin_meta(board, "rots/gecko_appdata")$created
+validation   = pin_read(board, "rots/gecko_validation")
+
+validation_done = validation %>% 
+  filter(val1_done, val2_done)
+
+appdata = appdata %>% 
+  mutate(validated = if_else(redcap_data_access_group %in% validation_done$dag,
+                             "Validated",
+                             "Not validated") %>% 
+           forcats::fct_relevel("Validated") %>% 
+           finalfit::ff_label("Validated"), .after = ALL)
+
+# appdata %>% 
+#   count(validated)
 
 allvars = appdata %>%
+  select(-redcap_data_access_group) %>% 
   finalfit::extract_labels() %>%
   select(vname, vfill) %$%
   setNames(as.list(vname), vfill)
 
-
 app_server <- function( input, output, session ) {
   # List the first level callModules here
   library(dplyr)

rsconnect/argoshare.is.ed.ac.uk/rots/gecko_shinyviz.dcf

@@ -5,7 +5,7 @@ account: rots
 server: argoshare.is.ed.ac.uk
 hostUrl: https://argoshare.is.ed.ac.uk/__api__
 appId: 639
-bundleId:
+bundleId: 3830
 url: https://argoshare.is.ed.ac.uk/gecko_shinyviz/
 asMultiple: FALSE
 asStatic: FALSE