- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我下面有一个 Shiny 的应用程序,它显示绘图或表格。我对表格不感兴趣,我的问题只涉及 plotly 部分。当我使用此 javascript solution 在浏览器中打开应用程序时,我尝试下载该图。 。我不熟悉 javascript,我想知道当我第一次按下“下载”按钮并只下载我根本没有下载的图时,如何防止它下载这个空文件。
library(shiny)
library(plotly)
d <- data.frame(X1 = rnorm(50,mean=50,sd=10),
X2 = rnorm(50,mean=5,sd=1.5),
Y = rnorm(50,mean=200,sd=25))
ui <-fluidPage(
title = 'Download Plotly',
sidebarLayout(
sidebarPanel(
selectInput("S","SELECT",choices = c("Table","Plot"),selected = "Plot"),
uiOutput('down'),
tags$script('
document.getElementById("down").onclick = function() {
var gd = document.getElementById("regPlot");
Plotly.Snapshot.toImage(gd, {format: "png"}).once("success", function(url) {
var a = window.document.createElement("a");
a.href = url;
a.type = "image/png";
a.download = "plot.png";
document.body.appendChild(a);
a.click();
document.body.removeChild(a);
});
}
')
),
mainPanel(
uiOutput('regPlot')
)
)
)
server <- function(input, output, session) {
output$down<-renderUI({
if(input$S=="Table"){
output$downloadData <- downloadHandler(
filename = function() {
paste(input$filename, input$extension, sep = ".")
},
# This function writes data to a file given to it by the argument 'file'.
content = function(file) {
sep <- "txt"=","
# Write to a file specified by the 'file' argument
write.table(data.frame(mtcars), file, sep = sep,
row.names = FALSE)
}
)
downloadButton("downloadData", "Download",class = "butt1")
}
else{
output$downloadData <- downloadHandler(
filename = function(){
paste(paste("test",Sys.Date(),sep=""), ".png",sep="")},
content = function(file) {
temp_dir <- tempdir()
tempImage <- file.path(temp_dir, 'out.png')
file.copy('out.png', tempImage, overwrite = TRUE)
png(file, width = 1200, height = 800, units = "px", pointsize = 12, bg = "white", res = NA)
dev.off()
})
downloadButton("downloadData", "Download",class = "butt1")
}
})
output$regPlot<-renderUI({
if(input$S=="Plot"){
output$pl<-renderPlotly(
plot_ly(d, x = d$X1, y = d$X2, mode = "markers"))
plotlyOutput("pl")
}
else{
output$tbl = DT::renderDataTable(datatable(
d
))
dataTableOutput("tbl")
}
})
}
shinyApp(ui = ui, server = server)
最佳答案
这是下载 plotly 的代码。代码中很少有问题,
在 ui.R 中定义下载按钮。并引用javascript代码中的下载按钮id
。此外,regplot
是 uiOutput
元素,而不是实际的绘图。在 JavaScript 代码中,该图由 pl
引用。
以下是已修复问题的示例代码。如果您使用的是 javascript 代码,则不需要 Shiny 的下载处理程序。如下所示,您可以简单地从操作按钮下载。
您可以在此基础上通过将 actionButton 替换为 downloadButton 并在服务器上添加相应的代码来下载数据表。
library(shiny)
library(plotly)
library(DT)
ui <-fluidPage(
title = 'Download Plotly',
sidebarLayout(
sidebarPanel(
selectInput("S","SELECT",choices = c("Table","Plot"),selected = "Plot"),
actionButton("downloadData", "Download",class = "butt1"),
tags$script('
document.getElementById("downloadData").onclick = function() {
var gd = document.getElementById("pl");
Plotly.Snapshot.toImage(gd, {format: "png"}).once("success", function(url) {
var a = window.document.createElement("a");
a.href = url;
a.type = "image/png";
a.download = "plot.png";
document.body.appendChild(a);
a.click();
document.body.removeChild(a);
});
}
')
),
mainPanel(
uiOutput('regPlot')
)
)
)
server <- function(input, output, session) {
d <- data.frame(X1 = rnorm(50,mean=50,sd=10),
X2 = rnorm(50,mean=5,sd=1.5),
Y = rnorm(50,mean=200,sd=25))
output$regPlot<-renderUI({
if(input$S=="Plot"){
output$pl<-renderPlotly(
plot_ly(d, x = d$X1, y = d$X2, mode = "markers"))
plotlyOutput("pl")
}
else{
output$tbl = DT::renderDataTable(datatable(
d
))
dataTableOutput("tbl")
}
})
}
shinyApp(ui = ui, server = server)
关于javascript - 使用 javascript 时从 Shiny 的应用程序下载绘图时出错,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/54593775/
当我尝试通过我的 .exe 文件从 url 下载 .pdf 文件时出现以下错误。 The server committed a protocol violation. Section=Response
我是一家非营利组织的 G Suite 管理员,刚刚发现数据导出功能,这似乎是个人帐户的外卖。 导出文件已准备好,现在可以从 Google Cloud Platform Storage 中的存储桶下载。
导航 引言 总体思路 七牛云相关的配置文件 获取七牛云上传token 相关类定义 核心代码实现 获取七牛云图片下载链接 公开空
这不是后端编程问题。我只能修改标记或脚本(或文档本身)。我在这里问的原因是因为我对适当术语的所有搜索都不可避免地导致有关编程此功能的问题和解决方案。我不是试图通过编程来强制它;我必须找出此 PDF 行
您好,我已在 Google AdSense 中注册,我想使用适用于 iOS 的 SDK,但目前我找不到 SDK 下载链接。 我的申请已获批准。 任何人都知道如何下载这个sdk。 我使用这个链接来描述如
我需要为当前在 SourceForge 上的 github 项目提供二进制文件和文档。在那里,我可以为我需要的下载提供一个目录结构,因为我必须为大约 10 个不同的操作系统提供几个版本。 github
我从 Canvas 下载绘图时遇到问题。这是我的代码: function downloadCanvas(link, canvasId, filename) { link.href =
ASP.NET 项目 我将使用 Azure 进行存储。问题(要求): 在我的项目中,我让注册用户下载文件。但我不希望用户将此下载链接分享给未注册的人(例如:我给注册用户的下载链接只能在他们的计算机上下
我编写了一个servlet,用于检查http header ,但我不知道为什么当页面加载时,它会自动开始下载。 /* * To change this template, choose To
我正在尝试将下载添加到我的网络浏览器,但遇到的问题是获取您尝试下载的文件的名称。这是我的下载代码: engine.locationProperty().addListener(new ChangeLi
我正在尝试下载网站的 html: String encoding = "UTF-8"; HttpContext localContext = new BasicHttpContext();
我制作了一个带有“开始下载”按钮的框架,用于从网站下载 JAR。 问题是每当我点击开始下载按钮时,整个框架就会卡住,直到下载完成,然后就正常了。 我该如何解决这个问题? 这是单击按钮时执行的代码 p
我得到这段代码来实现一些东西,它可以帮助我从给定的 URL 下载文件。 -(void)URLSession:(NSURLSession *)session downloadTask:(NSURLSes
我正在尝试创建一个 Controller 来使用流方法下载和上传文件,在我的例子中,所有文件都作为 Blob 保存在数据库中。我阅读了 Jboss Netty 的文档,但我认为这不是我的最佳解决方案。
下载并保存文件 let destination: DownloadRequest.DownloadFileDestination = { _, _ in // var fileURL = sel
使用 htaccess 我基本上试图禁止访问该页面,即 http://example.com , 但它仍然允许人们下载文件,如果他们有直接链接即 http://example.com/hi.zip .
我正在寻求将脚本与我的控制面板集成,并且由于我是新手脚本编写者而遇到问题。我想做的是用 1 个脚本下载一个文件并解压它。 示例: wget http://example.com/example.tar
关闭。这个问题不符合Stack Overflow guidelines .它目前不接受答案。 我们不允许提问寻求书籍、工具、软件库等的推荐。您可以编辑问题,以便用事实和引用来回答。 关闭 7 年前。
这个问题在这里已经有了答案: Top techniques to avoid 'data scraping' from a website database (14 个答案) 关闭 5 年前。 我有
这个问题在这里已经有了答案: Reading and parsing email from Gmail using C#, C++ or Python (6 个答案) 关闭 7 年前。 我只是想,是
我是一名优秀的程序员,十分优秀!