是否可以让弹出框显示R降价文件?我特别需要弹出框来显示R markdown文件的结果。我尝试了下面的方法,但对话框不会显示随机正常变量的图。
带有R降价文件的对话框的示例代码:
shinyApp(
ui = basicPage(
actionButton("show", "Show modal dialog")
),
server = function(input, output) {
observeEvent(input$show, {
showModal(modalDialog(
title = "Important message",
includeMarkdown("Test.Rmd"),
easyClose = TRUE
))
})
}
)
降价代码:
---
title: "Test"
output: html_document
---
R:
plot(rnorm(10,0,1))
答案 0 :(得分:3)
您需要采取稍微不同的方法来执行此操作。如果您render
.Rmd
,那么您可以使用modalDialog
在renderUI
中展示它。
library(shiny)
shinyApp(
ui = basicPage(
actionButton("show", "Show modal dialog")
),
server = function(input, output) {
md_out <- rmarkdown::render("Test.Rmd")
observeEvent(input$show, {
showModal(modalDialog(
title = "Important message",
renderUI(HTML(readLines(md_out))),
easyClose = TRUE
))
})
})
N.B。您始终可以根据其他输入对
.Rmd
渲染步骤进行反应,然后对话框可以是动态的。