Commit 31b20ef3 authored by Tuija Sonkkila's avatar Tuija Sonkkila

Added downloadHandler

parent b7468011
......@@ -62,14 +62,12 @@ function(input, output, session) {
x = ~xx,
y = ~yy,
mode = "markers",
hoverinfo = "text",
colors = colors,
color = I(colors),
split = ~parent,
symbol = ~symbol,
marker = list(size = 10, opacity = 0.7),
hovertext = ~text,
textposition = "middle right") %>%
hovertext = ~text) %>%
layout( xaxis = list( title=input$xc),
yaxis = list( title=input$yc ) )
......@@ -92,5 +90,17 @@ function(input, output, session) {
})
output$data_dim_aalto = downloadHandler(
filename = function() {
filename = 'data_dim_aalto.csv'
},
content = function(file) {
{
write.csv(deptData(), 'temp.csv', row.names = FALSE)
file.rename('temp.csv', file)
}
}
)
}
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