Fixed UI append selection failure

john-harrold · Sep 7, 2024 · 612e646 · 612e646
1 parent 6e6a6da
commit 612e646
Show file tree

Hide file tree

Showing 56 changed files with 259 additions and 264 deletions.
diff --git a/R/MB_Server.R b/R/MB_Server.R
@@ -272,7 +272,7 @@ MB_Server <- function(id,
     # observe function below it.
     output$ui_select_append_model = renderUI({
       req(input[["element_selection"]])
-      input[["ui_mb_model"]]
+      #input[["ui_mb_model"]]
       state = MB_fetch_state(id              = id,
                              id_ASM          = id_ASM,
                              input           = input,
@@ -294,6 +294,7 @@ MB_Server <- function(id,
     #------------------------------------
     # Updates append_model selection based on the current model
     observe({
+      req(input[["append_model"]])
       req(input[["element_selection"]])
       req(input[["ui_mb_model"]])
       state = MB_fetch_state(id              = id,
@@ -2706,13 +2707,11 @@ MB_fetch_appends   = function(state, current_ele){
   if(model_catalog[["isgood"]]){
 
     # Getting all of the things the current component provides
+    rxinfo = fetch_rxinfo(component[["rx_obj"]])
     provides = c(
-     component$rx_obj$params$output$primary,
-     component$rx_obj$params$output$secondary,
-     component$rx_obj$params$output$endpoint,
-     component$rx_obj$params$output$state)
-
-
+     rxinfo[["elements"]][["states"]],
+     rxinfo[["elements"]][["parameters"]],
+     rxinfo[["elements"]][["secondary"]])
 
     # getting the models that are only ODEs and also have dependencies:
     model_summary = state[["MB"]][["model_catalog"]][["summary"]]

diff --git a/docs/pkgdown.yml b/docs/pkgdown.yml
@@ -7,5 +7,5 @@ articles:
   model_builder: model_builder.html
   noncompartmental_analysis: noncompartmental_analysis.html
   simulate_rules: rmdhunks/simulate_rules.html
-last_built: 2024-09-07T02:55Z
+last_built: 2024-09-07T14:14Z
 
diff --git a/docs/reference/CTS_add_covariate.html b/docs/reference/CTS_add_covariate.html
diff --git a/docs/reference/CTS_add_rule.html b/docs/reference/CTS_add_rule.html
diff --git a/docs/reference/CTS_change_source_model.html b/docs/reference/CTS_change_source_model.html