From 6e9f3b47074772eea0d2983ff3a2bdee35ddbf8b Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Todor=20Kondi=C4=87?= <todor.kondic@uni.lu>
Date: Thu, 30 Apr 2020 07:14:31 +0200
Subject: [PATCH] R/shiny-ui-base.R: Update wrappers
* R/shiny-ui-base.R(react_v,react_f,react_e, obsrv, vols): New
functions.
Wrap functions that are used a lot.
* R/shiny-ui-base.R(path2vol): New function.
---
R/shiny-ui-base.R | 13 +++++++++++++
1 file changed, 13 insertions(+)
diff --git a/R/shiny-ui-base.R b/R/shiny-ui-base.R
index e2edc57..62e8c48 100644
--- a/R/shiny-ui-base.R
+++ b/R/shiny-ui-base.R
@@ -12,6 +12,19 @@
## See the License for the specific language governing permissions and
## limitations under the License.
+react_v <- shiny::reactiveValues
+react_f <- shiny::reactive
+react_e <- shiny::eventReactive
+obsrv <- shiny::observe
+vols <- shinyFiles::getVolumes
+
+path2vol <- function(path) {
+ ## This function returns shinyFiles compatible volumes.
+ splits <- split_path(path)
+ file.path(tail(splits,1),'')
+}
+
+
prim_box<-function(...) {shinydashboard::box(...,
status="primary",
solidHeader=T)}
--
GitLab