Commit a5a702bd authored by Stephanie Wegscheidl's avatar Stephanie Wegscheidl

download partly working.

parent 1ecfa95e
...@@ -550,14 +550,18 @@ server <- function(input, output, session) { ...@@ -550,14 +550,18 @@ server <- function(input, output, session) {
#} #}
#SECOND TRY #SECOND TRY
print("breakoint"), #print("breakoint"),
filename = function(){paste("Graphs",'.pdf', sep='')}, filename = "download.pdf",
content = function(file) { content = function(file) {
cairo_pdf(filename = file, width=12, height=8) CairoPDF(file = file, width=12, height=8)
#boxplot(data$V1, type="box", xlab=input$box_x) #boxplot(data$V1, type="box", xlab=input$box_x)
#m #m
#leafletOutput("map", height = 250) #leafletOutput("map", height = 250)
plot(data$V1,data$V2, type="p", xlab=input$scat_x, ylab=input$scat_y ) output$box
# data<- structure(list(V1=as.numeric(coconut.df[[input$scat_x]]),
# V2=as.numeric(coconut.df[[input$scat_y]])),
# .Names=c("V1","V2"), row.names=c(NA,6L), class = "data.frame")
# plot(data$V1,data$V2, type="p", xlab=input$scat_x, ylab=input$scat_y )
dev.off() dev.off()
}) })
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment