From a4f0fb34db64667927c01f4aa960c183c8397670 Mon Sep 17 00:00:00 2001
From: Gray <grayskripko@gmail.com>
Date: Mon, 14 Nov 2016 14:59:53 +0200
Subject: [PATCH] xlim isolation depends on Apply limits checkbox now

---
 inst/ggraptR/reactives/plotWidgetVals.R | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/inst/ggraptR/reactives/plotWidgetVals.R b/inst/ggraptR/reactives/plotWidgetVals.R
index 9a135d6..7718260 100644
--- a/inst/ggraptR/reactives/plotWidgetVals.R
+++ b/inst/ggraptR/reactives/plotWidgetVals.R
@@ -31,7 +31,7 @@ color <- reactive({
 })
 
 treatColorAsFactor <- reactive({
-  if (is.null(input$treatColorAsFactor)) FALSE else input$treatColorAsFactor
+  !is.null(input$treatColorAsFactor) && input$treatColorAsFactor
 })
 
 sizeOrig <- reactive({
@@ -187,12 +187,12 @@ facetGrids <- reactive({
 
 xlim <- reactive({
   input$xlim
-  if (isolate(!displayXlimCond())) NULL else input$xlim
+  if (!displayXlimCond()) NULL else input$xlim
 })
 
 ylim <- reactive({
   input$ylim
-  if (isolate(!displayYlimCond())) NULL else input$ylim
+  if (!displayYlimCond()) NULL else input$ylim
 })
 
 plotTitle <- reactive({