我试图找出如何使用downloadButton来保存闪亮的情节。包中的示例演示了downloadButton / downloadHandler以保存.csv。我将基于此做出一个可重复的例子。
ui.R
shinyUI(pageWithSidebar(
headerPanel('Downloading Data'),
sidebarPanel(
selectInput("dataset", "Choose a dataset:",
choices = c("rock", "pressure", "cars")),
downloadButton('downloadData', 'Download Data'),
downloadButton('downloadPlot', 'Download Plot')
),
mainPanel(
plotOutput('plot')
)
))
server.R
library(ggplot2)
shinyServer(function(input, output) {
datasetInput <- reactive({
switch(input$dataset,
"rock" = rock,
"pressure" = pressure,
"cars" = cars)
})
plotInput <- reactive({
df <- datasetInput()
p <-ggplot(df, aes_string(x=names(df)[1], y=names(df)[2])) +
geom_point()
})
output$plot <- renderPlot({
print(plotInput())
})
output$downloadData <- downloadHandler(
filename = function() { paste(input$dataset, '.csv', sep='') },
content = function(file) {
write.csv(datatasetInput(), file)
}
)
output$downloadPlot <- downloadHandler(
filename = function() { paste(input$dataset, '.png', sep='') },
content = function(file) {
ggsave(file,plotInput())
}
)
})
如果您正在回答此问题,您可能对此很熟悉,但为了使其正常运行,请将上述内容保存到单独的脚本(ui.R
和server.R
中(foo
1}})在工作目录中。要运行闪亮的应用程序,请运行runApp("foo")
。
使用ggsave
,我收到一条错误消息,指出ggsave无法使用filename
函数(我认为)。如果我使用标准图形设备(如下所示),Download Plot
无误地工作,但它不会写图形。
任何有关让downloadHandler为编写剧情而工作的提示都将不胜感激。
答案 0 :(得分:54)
不确定这个问题是否仍然有效,但它是第一个在搜索“在闪亮的应用程序中保存情节”时出现的问题所以我想快速添加如何让ggsave与原始问题的行一起使用downloadHandler 。
juba使用直接输出而不是ggsave建议的替代策略和alexwhan自己建议的替代策略都很好用,这只适用于那些绝对想在downloadHandler中使用ggsave的人。)
alexwhan报告的问题是由ggsave尝试将文件扩展名与正确的图形设备匹配引起的。但是,临时文件没有扩展名,因此匹配失败。这可以通过在ggsave
函数调用中专门设置设备来解决,就像在原始代码示例中那样(对于png):
output$downloadPlot <- downloadHandler(
filename = function() { paste(input$dataset, '.png', sep='') },
content = function(file) {
device <- function(..., width, height) grDevices::png(..., width = width, height = height, res = 300, units = "in")
ggsave(file, plot = plotInput(), device = device)
}
)
此调用基本上采用device
png
函数ggsave
ggsave
在内部分配(您可以查看jpg
函数代码以查看{{1}的语法},pdf
等)。也许,理想情况下,可以指定文件扩展名(如果与文件名不同 - 就像临时文件的情况一样)作为ggsave
参数,但此选项目前在ggsave
中不可用。
一个最小的独立工作示例:
library(shiny)
library(ggplot2)
runApp(list(
ui = fluidPage(downloadButton('foo')),
server = function(input, output) {
plotInput = function() {
qplot(speed, dist, data = cars)
}
output$foo = downloadHandler(
filename = 'test.png',
content = function(file) {
device <- function(..., width, height) {
grDevices::png(..., width = width, height = height,
res = 300, units = "in")
}
ggsave(file, plot = plotInput(), device = device)
})
}
))
sessionInfo()
# R version 3.1.1 (2014-07-10)
# Platform: x86_64-pc-linux-gnu (64-bit)
#
# locale:
# [1] LC_CTYPE=en_US.UTF-8 LC_NUMERIC=C
# [3] LC_TIME=en_US.UTF-8 LC_COLLATE=en_US.UTF-8
# [5] LC_MONETARY=en_US.UTF-8 LC_MESSAGES=en_US.UTF-8
# [7] LC_PAPER=en_US.UTF-8 LC_NAME=C
# [9] LC_ADDRESS=C LC_TELEPHONE=C
# [11] LC_MEASUREMENT=en_US.UTF-8 LC_IDENTIFICATION=C
#
# attached base packages:
# [1] stats graphics grDevices utils datasets methods base
#
# other attached packages:
# [1] ggplot2_1.0.0 shiny_0.10.1
#
# loaded via a namespace (and not attached):
# [1] bitops_1.0-6 caTools_1.17 colorspace_1.2-4 digest_0.6.4
# [5] formatR_1.0 grid_3.1.1 gtable_0.1.2 htmltools_0.2.6
# [9] httpuv_1.3.0 labeling_0.2 MASS_7.3-34 munsell_0.4.2
# [13] plyr_1.8.1 proto_0.3-10 Rcpp_0.11.2 reshape2_1.4
# [17] RJSONIO_1.3-0 scales_0.2.4 stringr_0.6.2 tools_3.1.1
# [21] xtable_1.7-3
从ggplot2版本2.0.0开始,ggsave
函数支持device
参数的字符输入,这意味着现在可以通过直接调用{{{{}}来保存downloadHandler创建的临时文件。 1}}通过指定要使用的扩展名应该是例如ggsave
(而不是传递设备功能)。这将以上示例简化为以下
"pdf"
答案 1 :(得分:22)
这是一个允许使用ggsave来保存闪亮图的解决方案。它使用逻辑复选框和文本输入来调用ggsave()
。将其添加到ui.R
:
sidebarPanel
文件中
textInput('filename', "Filename"),
checkboxInput('savePlot', "Check to save")
然后将其添加到server.R
文件而不是当前的output$plot
reactivePlot函数:
output$plot <- reactivePlot(function() {
name <- paste0(input$filename, ".png")
if(input$savePlot) {
ggsave(name, plotInput(), type="cairo-png")
}
else print(plotInput())
})
然后,用户可以在文本框中键入所需的文件名(不带扩展名),勾选复选框以保存在app目录中。取消选中该框会再次打印该图。我确信有更简洁的方法可以做到这一点,但至少我现在可以在windows中使用ggsave和cairo来获得更好的png图形。
请添加您的任何建议。
答案 2 :(得分:20)
我无法使其与ggsave
一起使用,但通过标准调用png()
似乎没问题。
我只更改了output$downloadPlot
文件的server.R
部分:
output$downloadPlot <- downloadHandler(
filename = function() { paste(input$dataset, '.png', sep='') },
content = function(file) {
png(file)
print(plotInput())
dev.off()
})
请注意,我在0.3版本的闪亮版上遇到了一些问题,但它与Github的最新版本一起使用:
library(devtools)
install_github("shiny","rstudio")
答案 3 :(得分:17)
这已经很老了,但是当有人谷歌&#34; R闪亮保存ggplot&#34;时仍然是最受欢迎的,所以我将提供另一种解决方法。非常简单...在显示图形的同一函数中调用ggsave,这将把图形保存为服务器上的文件。
output$plot <- renderPlot({
ggsave("plot.pdf", plotInput())
plotInput()
})
然后,使用downloadHandler并使用file.copy()
将现有文件中的数据写入&#34;文件&#34;参数。
output$dndPlot <- downloadHandler(
filename = function() {
"plot.pdf"
},
content = function(file) {
file.copy("plot.pdf", file, overwrite=TRUE)
}
)
适合我。