interactive plots work

visionRs · Sep 18, 2019 · ee4635f · ee4635f
1 parent 23bdeea
commit ee4635f
Show file tree

Hide file tree

Showing 2 changed files with 23 additions and 1 deletion.
diff --git a/app/server.R b/app/server.R
@@ -651,6 +651,18 @@ server = function(input, output, session) {
     })
   })
 
+
+  output$plotly <- renderPlotly({
+    if (is.null(list_both$plot)) return()
+    isolate({
+      q <- ggplotly(list_both$plot)
+      q
+    })
+  })
+
+
+
+
   #6. Final RenderText Code for GGPLOT----------------------
   output$clip <- renderUI({
     rclipButton("clipbtn", "Copy", list_both$code, icon("clipboard"))

diff --git a/app/ui.R b/app/ui.R
@@ -287,7 +287,17 @@ ui <- dashboardPage(
                         icon = icon("sliders"),
                         block = TRUE
                       )),
-                      withSpinner(plotOutput('plot',height = '650px'),color = '#3c8dbc'),
+                      #withSpinner(plotOutput('plot',height = '650px'),color = '#3c8dbc'),
+
+                      conditionalPanel(
+                        condition = 'input.interact == true',
+                        withSpinner(plotlyOutput('plotly',height = '650px'),color = '#3c8dbc')
+                      ),
+
+                      conditionalPanel(
+                        condition = 'input.interact == false',
+                        withSpinner(plotOutput('plot',height = '650px'),color = '#3c8dbc')
+                      ),
 
                       value = 'plot6',status = "primary"