fixed problem with shiny 1.2, closes #4

DESCRIPTION

@@ -2,7 +2,7 @@ Package: panorama
 Title: Visualize and compare flow cytometry data
 Description: This package is an interactive GUI for visualizing and anlyzing
     graphs representing single-cell data
-Version: 0.1.0
+Version: 0.1.1
 Authors@R: "Pier Federico Gherardini <[email protected]> [aut, cre]"
 Depends:
 License: GPL v3
@@ -20,4 +20,4 @@ Imports:
     stringr,
     gplots
 LazyData: true
-RoxygenNote: 6.0.1
+RoxygenNote: 6.1.0

R/plot_data.R

@@ -93,7 +93,7 @@ load_clusters_data <- function(clusters, samples, dir.prefix, skip.missing = FAL
         ret$sample <- x$samples[1]
         return(ret)
     })
-    
+
     return(do.call(rbind, ret))
 
 
@@ -133,7 +133,7 @@ plot_clusters <- function(G, clusters, col.names, working.dir, plot.type, pool.c
 
     cl.labels <- V(G)$Label[clusters]
     clusters.data <- NULL
-
+    
     if(is.null(V(G)$sample) && is.null(samples.to.plot)) { # Load the pooled data
         pooled.data.dir <- tools::file_path_sans_ext(igraph::get.graph.attribute(G, "fname"))
         clusters.data <- load_rds_data(cl.labels, file.path(working.dir, "clusters_data", "pooled", pooled.data.dir))

inst/shinyGUI/server/tab_graph.R

@@ -312,7 +312,9 @@ output$graphui_viscontrol <- reactive({
 
 
 observe({
-    updateSliderInput(session, "graphui_color_scale_lim", min = input$graphui_color_scale_min,
+    if(!is.null(input$graphui_color_scale_min) &&
+       !is.null(input$graphui_color_scale_max))
+        updateSliderInput(session, "graphui_color_scale_lim", min = input$graphui_color_scale_min,
                           max = input$graphui_color_scale_max)
 })