From 787ac1185c62af68d4d7ebb2622a6b57612ae72c Mon Sep 17 00:00:00 2001
From: amyheather <a.heather2@exeter.ac.uk>
Date: Mon, 21 Oct 2024 16:41:44 +0100
Subject: [PATCH] feat(app): alternative explorer selections without generation
 of new dataframes for each

---
 shinyapp/explorer.R | 83 +++++++++++----------------------------------
 1 file changed, 19 insertions(+), 64 deletions(-)

diff --git a/shinyapp/explorer.R b/shinyapp/explorer.R
index b3a843d..82b3280 100644
--- a/shinyapp/explorer.R
+++ b/shinyapp/explorer.R
@@ -5,6 +5,7 @@
 # Load required packages
 library(shiny)
 library(DT)
+library(dplyr)
 
 # ======
 # Inputs
@@ -62,11 +63,9 @@ ui <- fluidPage(
                 selected = 4),
 
     # Lines of treatment
-    uiOutput("line1"),
-    uiOutput("line2"),
-    uiOutput("line3"),
-    uiOutput("line4"),
-    uiOutput("line5")
+    uiOutput("line1_ui"),
+    uiOutput("line2_ui"),
+    uiOutput("line3_ui")
   )
 )
 
@@ -76,8 +75,8 @@ ui <- fluidPage(
 
 server <- function(input, output) {
 
-  # Reactive expression to filter data table to chosen population and lines
-  seq_start <- reactive({
+  # Filter all possible sequences to the chosen population and lines
+  seq <- reactive({
     # Filter to chosen population
     seq <- all_seq[all_seq$V1 == input$population,]
     # If max lines is 3, remove rows with BSC in V6 (as with four max lines,
@@ -88,66 +87,22 @@ server <- function(input, output) {
     }
     return(seq)
   })
-
-  # Reactive filtering of dataframe based on chosen treatments
-  seq_line1 <- reactive({
-    seq <- seq_start()
-    seq <- seq[seq$V2 == input$l1_chosen,]
-    return(seq)
-  })
-  seq_line2 <- reactive({
-    seq <- seq_line1()
-    seq <- seq[seq$V3 == input$l2_chosen,]
-    return(seq)
-  })
-  seq_line3 <- reactive({
-    seq <- seq_line2()
-    seq <- seq[seq$V4 == input$l3_chosen,]
-    return(seq)
-  })
-  seq_line4 <- reactive({
-    seq <- seq_line3()
-    seq <- seq[seq$V5 == input$l4_chosen,]
-    return(seq)
-  })
-
-  # Reactive display of possible treatments for each line
-  output$line1 <- renderUI({
-    l1_values <- unique(seq_start()$V2)
-    radioButtons(inputId = "l1_chosen",
-                 label = "First line treatment",
-                 choices = comparators[comparators %in% l1_values],
-                 inline=TRUE)
-  })
-  output$line2 <- renderUI({
-    l2_values <- unique(seq_line1()$V3)
-    radioButtons(inputId = "l2_chosen",
-                 label = "Second line treatment",
-                 choices = comparators[comparators %in% l2_values],
-                 inline=TRUE)
-  })
   
-  output$line3 <- renderUI({
-    l3_values <- unique(seq_line2()$V4)
-    radioButtons(inputId = "l3_chosen",
-                 label = "Third line treatment",
-                 choices = comparators[comparators %in% l3_values],
-                 inline=TRUE)
+  output$line1_ui <- renderUI({
+    choices <- unique(seq()$V2)
+    radioButtons("line1_chosen", "line1", choices)
   })
-    
-  output$line4 <- renderUI({
-    l4_values <- unique(seq_line3()$V5)
-    radioButtons(inputId = "l4_chosen",
-                 label = "Fourth line treatment",
-                 choices = comparators[comparators %in% l4_values],
-                 inline=TRUE)
+
+  output$line2_ui <- renderUI({
+    req(input$line1_chosen)
+    choices <- unique(seq()[seq()$V2 == input$line1_chosen, "V3"])
+    radioButtons("line2_chosen", "line2", choices)
   })
-  output$line5 <- renderUI({
-    l5_values <- unique(seq_line4()$V6)
-    radioButtons(inputId = "l5_chosen",
-                 label = "Fifth line treatment",
-                 choices = comparators[comparators %in% l5_values],
-                 inline=TRUE)
+
+  output$line3_ui <- renderUI({
+    req(input$line2_chosen)
+    choices <- unique(seq()[seq()$V2 == input$line1_chosen & seq()$V3 == input$line2_chosen, "V4"])
+    radioButtons("line3_chosen", "line3", choices)
   })
 }