From 70b9d4991149abfc5f413c88f9d6e8b733c71750 Mon Sep 17 00:00:00 2001 From: lakikowolfe Date: Tue, 31 Oct 2023 15:20:40 -0700 Subject: [PATCH 1/2] move tab update to data flow app from dcc selection module --- R/app_server.R | 12 ++++++++++-- 1 file changed, 10 insertions(+), 2 deletions(-) diff --git a/R/app_server.R b/R/app_server.R index f18e586..f42c5a5 100644 --- a/R/app_server.R +++ b/R/app_server.R @@ -43,8 +43,16 @@ app_server <- function( input, output, session ) { # SELECT A DCC ############################################################# mod_select_dcc_out <- dfamodules::mod_select_dcc_server("select_dcc", dcc_config, - access_token, - session) + access_token) + + # on button click (submit in dcc selection module) + # update current tab to be dashboard tab + observeEvent(mod_select_dcc_out()$btn_click, { + shinydashboard::updateTabItems(session = session, + inputId = "tabs", + selected = "tab_dashboard") + + }) # GENERATE DASHBOARD ON CLICK ############################################## dash_config_react <- reactive({ From 0fabddad6c6a8401eb96283e6d3e9aae9f7780d4 Mon Sep 17 00:00:00 2001 From: lakikowolfe Date: Thu, 2 Nov 2023 15:21:07 -0700 Subject: [PATCH 2/2] update to most recent version of dev dfamodules --- renv.lock | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/renv.lock b/renv.lock index 1b4bc7f..9aa93ca 100644 --- a/renv.lock +++ b/renv.lock @@ -423,7 +423,7 @@ "RemoteUsername": "Sage-Bionetworks", "RemoteRepo": "dfamodules", "RemoteRef": "dev-mt", - "RemoteSha": "9b2970726da9c05bd2387a344e3711b11530c3e3", + "RemoteSha": "902c233b2891a23f09c2db34ab900db4eaf950f1", "Requirements": [ "DT", "dplyr", @@ -440,7 +440,7 @@ "shinyjs", "waiter" ], - "Hash": "687267390464e19c546ab3371c383fff" + "Hash": "b42729d5b288e0e8106d3873e99f7cd3" }, "diffobj": { "Package": "diffobj",