diff --git a/R/app_server.R b/R/app_server.R
index 7543d45..6becf3c 100644
--- a/R/app_server.R
+++ b/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)
diff --git a/rsconnect/argoshare.is.ed.ac.uk/rots/gecko_shinyviz.dcf b/rsconnect/argoshare.is.ed.ac.uk/rots/gecko_shinyviz.dcf
index 4bc750b..23a9d45 100644
--- a/rsconnect/argoshare.is.ed.ac.uk/rots/gecko_shinyviz.dcf
+++ b/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