Bug: Disallow user to check NCA / Outputs tabs without mapping data

inst/shiny/modules/column_mapping.R

@@ -277,6 +277,11 @@ column_mapping_server <- function(id, data, manual_units, on_submit) {
     observeEvent(input$submit_columns, {
       Sys.sleep(1) # Make this artificially slow to show the loading spinner
 
+      # Enable other tabs
+      shinyjs::enable(selector = "#page li a[data-value=nca]")
+      shinyjs::enable(selector = "#page li a[data-value=visualisation]")
+      shinyjs::enable(selector = "#page li a[data-value=tlgs]")
+
       req(data())
       dataset <- data()
 
@@ -348,6 +353,7 @@ column_mapping_server <- function(id, data, manual_units, on_submit) {
 
       # Execute the callback function to change the tab
       on_submit()
+
     })
 
     list(

inst/shiny/server.R

@@ -3,6 +3,11 @@
 function(input, output, session) {
   log_info("Startup")
 
+  # Initially disable all tabs except the 'Data' tab
+  shinyjs::disable(selector = "#page li a[data-value=nca]")
+  shinyjs::disable(selector = "#page li a[data-value=visualisation]")
+  shinyjs::disable(selector = "#page li a[data-value=tlgs]")
+
   # DATA ----
   data_module <- tab_data_server("data")
   # Data set for analysis

inst/shiny/ui.R

@@ -23,11 +23,12 @@ fluidPage(
     # DATA ----
     nav_panel(
       "Data",
+      value = "data",
       fluid = TRUE,
       tab_data_ui("data")
     ),
     # NCA ----
-    nav_panel("NCA", fluid = TRUE,
+    nav_panel("NCA", value = "nca", fluid = TRUE,
       fluidPage(
         actionButton("nca", "Run NCA", class = "run-nca-btn"),
 
@@ -221,12 +222,12 @@ fluidPage(
     ),
 
     # VISUALISATION ----
-    nav_panel("Visualisation",
+    nav_panel("Visualisation", value = "visualisation",
       fluid = TRUE,
       tab_visuals_ui("visuals")
     ),
     # New TLG tab
-    nav_panel("TLG",
+    nav_panel("TLG", value = "tlgs",
       tab_tlg_ui("tlg")
     )
   ),