From 56189455e80f0d8d7b0b6ec73267f625cce080c9 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:02:19 +0200
Subject: [PATCH] Import validate
* R/shiny-ui-base.R(validate,validate1):
Function validate changed back to shiny original. Introduced validate1
when there is no need for `need'.
---
R/shiny-ui-base.R | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/R/shiny-ui-base.R b/R/shiny-ui-base.R
index 2a0fe0a..37ac4e5 100644
--- a/R/shiny-ui-base.R
+++ b/R/shiny-ui-base.R
@@ -12,6 +12,8 @@
## See the License for the specific language governing permissions and
## limitations under the License.
+##' @importFrom(shiny, validate)
+
react_v <- shiny::reactiveValues
react_f <- shiny::reactive
react_e <- shiny::eventReactive
@@ -19,7 +21,7 @@ obsrv <- shiny::observe
obsrv_e <- shiny::observeEvent
vols <- shinyFiles::getVolumes
vol_f <- vols()
-validate <- function(expr,msg) shiny::validate(need(expr,msg))
+validate1 <- function(expr,msg) shiny::validate(need(expr,msg))
path2vol <- function(path) {
--
GitLab