From 5412491934d4a4299a07e7943a478115f317a37f Mon Sep 17 00:00:00 2001
From: Schultheis <hschult@kerckhoff.mpg.de>
Date: Fri, 9 Mar 2018 11:42:46 +0100
Subject: [PATCH] set_logger/ heatmap/ scatterPlot: added missing package

---
 R/global.R      | 2 +-
 R/heatmap.R     | 2 +-
 R/scatterPlot.R | 2 +-
 3 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/R/global.R b/R/global.R
index 81f7ecf..d5ae871 100644
--- 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
index 4b4a691..dccdacc 100644
--- 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
index 613ecba..82dc67e 100644
--- 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")