Workaround for plotly error message number 2, resolves #23

Stan125 · Sep 18, 2017 · c90cba2 · c90cba2
1 parent e9d2fd4
commit c90cba2
Showing 1 changed file with 8 additions and 2 deletions.
diff --git a/R/vis.R b/R/vis.R
@@ -271,15 +271,21 @@ vis <- function() {
                          type = input$type_choices)
           p$elementId <- NULL
           p
+        } else {
+          # This and ...
+          p <- plotly_empty(type = "scatter", mode = "markers")
+          p$elementId <- NULL
+          p
         }
       } else {
-        p <- plotly_empty()
+        # ...this are only to prevent annoying error messages from plotly
+        p <- plotly_empty(type = "scatter", mode = "markers")
         p$elementId <- NULL
         p
       }
     })
 
-    ## PLotly is rendered here, condition is checked with conditionalPanel
+    ## Plot is rendered here, condition is checked with conditionalPanel
     output$plot <- renderPlot({
       if (gmad())
         if (!is.2d(fam()$family, fam()$links))