set_logger/ heatmap/ scatterPlot: added missing package

loosolab · Mar 9, 2018 · 5412491 · 5412491
1 parent 5adc30a
commit 5412491
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 3 deletions.
diff --git a/R/global.R b/R/global.R
@@ -11,7 +11,7 @@ wilson.globals <- new.env(parent = emptyenv())
 #'
 #' @export
 set_logger <- function(logger, token = NULL) {
-  if(is.null(logger) || is(logger, "logger")) {
+  if(is.null(logger) || methods::is(logger, "logger")) {
     assign(x = paste0("logger", token), value = logger, envir = wilson.globals)
   }
 }

diff --git a/R/heatmap.R b/R/heatmap.R
@@ -346,7 +346,7 @@ heatmap <- function(input, output, session, data, types, plot.method = "static",
           plot <- plot()$plot
 
           # handle error
-          if(is(plot, "try-error")) {
+          if(methods::is(plot, "try-error")) {
             # TODO add logging
             stop("An error occured! Please try a different dataset.")
           }

diff --git a/R/scatterPlot.R b/R/scatterPlot.R
@@ -327,7 +327,7 @@ scatterPlot <- function(input, output, session, data, types, x.names = NULL, y.n
 
   # disable plot if mandatory x- or y-axis missing
   shiny::observe({
-    if(!isTruthy(xaxis$selectedColumn()) || !isTruthy(yaxis$selectedColumn())) {
+    if(!shiny::isTruthy(xaxis$selectedColumn()) || !shiny::isTruthy(yaxis$selectedColumn())) {
       shinyjs::disable("plot")
     } else {
       shinyjs::enable("plot")