From a0b384906dd7cc0df2fcebcbdeb5aaa3d1d5aa87 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Todor=20Kondi=C4=87?= <todor.kondic@uni.lu>
Date: Sat, 2 May 2020 07:10:59 +0200
Subject: [PATCH] Return cwd from volumes also

* R/shiny-ui-base.R(volumes): Attach the current working directory.
---
 R/shiny-ui-base.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/shiny-ui-base.R b/R/shiny-ui-base.R
index a7ad77f..9c37b36 100644
--- a/R/shiny-ui-base.R
+++ b/R/shiny-ui-base.R
@@ -21,7 +21,7 @@ obsrv <- shiny::observe
 obsrv_e <- shiny::observeEvent
 vols <- shinyFiles::getVolumes
 vol_f <- vols()
-volumes <- shinyFiles::getVolumes()
+volumes <- function() c(wd=getwd(), shinyFiles::getVolumes()())
 validate1 <- function(expr,msg) shiny::validate(need(expr,msg))
 
 
-- 
GitLab