Update 21.06 app.R

akochari · Jun 21, 2024 · 26e6c31 · 26e6c31
1 parent d7b3b53
commit 26e6c31
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/app/app.R b/app/app.R
@@ -43,7 +43,7 @@ ui <- fluidPage(
                            tags$a(
                                "(example)",
                                href = "#",
-                               onclick = "window.open('Capture.jpg', 
+                               onclick = "window.open('~/Capture.JPG', 
                                'newwindow', 'width=500, height=250'); return false;"
                            ), 
                       multiple = FALSE, accept = ".csv"))
@@ -143,7 +143,7 @@ server <- function(input, output) {
 
     output$top10features <- renderPlot({
 
-        top10plot()   
+        print(top10plot())   
 
     })