xlim isolation depends on Apply limits checkbox now

cargomoose · Nov 14, 2016 · a4f0fb3 · a4f0fb3
1 parent dc4cff9
commit a4f0fb3
Showing 1 changed file with 3 additions and 3 deletions.
diff --git 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({