From 020890b0d17bc02c21cc9f85a78c2e7c1a1c354d Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Todor=20Kondi=C4=87?= <todor.kondic@uni.lu>
Date: Sun, 19 Sep 2021 11:09:34 +0200
Subject: [PATCH] shiny-ui-base: Add observers for sel_indir_b,
rvs$m$conf$indir
---
R/shiny-ui-base.R | 23 +++++++++++++++++++++++
1 file changed, 23 insertions(+)
diff --git a/R/shiny-ui-base.R b/R/shiny-ui-base.R
index 835a29b..4f1e958 100644
--- a/R/shiny-ui-base.R
+++ b/R/shiny-ui-base.R
@@ -1008,6 +1008,29 @@ mk_shinyscreen_server <- function(projects,init) {
shinymsg("Saving state completed.")
})
+ observeEvent(input$sel_indir_b,{
+ indir <- input$indir_list
+ req(isTruthy(indir))
+ rvs$m$conf$indir <- file.path(init$indir, indir)
+ message("Selected input dir:",rvs$m$conf$indir)
+ })
+
+ observeEvent(rvs$m$conf$indir,{
+ indir <- rvs$m$conf$indir
+ req(isTruthy(indir) && dir.exists(indir))
+
+ updateSelectInput(session = session,
+ inputId = "comp_list",
+ choices = list.files(path=indir,
+ pattern = "*.csv$"))
+ updateSelectInput(session = session,
+ inputId = "indir_list",
+ selected = basename(indir),
+ choices = list.dirs(path = init$indir,
+ full.names = F,
+ recursive = F))
+ })
+
## Hold your horses.
## observeEvent(rvs$m$conf$project,{
## wd <- rvs$m$conf$project
--
GitLab