fix reactive expression

Sage-Bionetworks · Aug 22, 2024 · 19da793 · 19da793
1 parent 35c37da
commit 19da793
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 2 deletions.
diff --git a/global.R b/global.R
@@ -30,7 +30,7 @@ truncated_values <- JS("
 #' @export
 format_dict_table <- function(data_model_url) {
 
-  data_model <- reactive(read.csv(url(data_model_url)))
+  data_model <- read.csv(url(data_model_url))
 
   col_attribs <- data_model |>
     dplyr::filter(Parent == 'ManifestColumn') |>

diff --git a/server.R b/server.R
@@ -1,7 +1,10 @@
 server <- function(input, output, session) {
 
   # Get data model csv and re-format for dictionary app
-  dict_table <- format_dict_table(data_model_url)
+  # use reactive expression to get latest version of data model
+  dict_table <- reactive({
+    format_dict_table(data_model_url)
+  })
 
   ## Create table to display
   output$dictionary_table <- renderReactable({