Commit a5a702bd authored by Stephanie Wegscheidl's avatar Stephanie Wegscheidl

download partly working.

parent 1ecfa95e
......@@ -550,14 +550,18 @@ server <- function(input, output, session) {
#}
#SECOND TRY
print("breakoint"),
filename = function(){paste("Graphs",'.pdf', sep='')},
#print("breakoint"),
filename = "download.pdf",
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)
#m
#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()
})
......
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