r语言 - Shiny 服务器在尝试包含 RMarkDown 时无法打开连接

Question

我试图将一些 rmd 文件插入我闪亮的仪表板。当地一切正常。但是当我在闪亮的服务器上尝试时，它显示：

文件中的警告(文件，ifelse(append，"a"，"w"((： 无法打开文件"testing.md"：权限被拒绝 警告：文件中的错误：无法打开连接

这只是一个非常简单的测试闪亮仪表板：

.app。R

library(shiny)
library(knitr)
library(shinydashboard)
setwd("/srv/shiny-server/docs/test2")
rmdfiles = c("testing.Rmd")
sapply(rmdfiles, knit, quiet = T)
ui <- dashboardPage(
dashboardHeader(title = "testing"),
dashboardSidebar(
sidebarMenu(
menuItem("Dashboard", tabName = "dashboard", icon = icon("dashboard")),
menuItem("Widgets", tabName = "widgets", icon = icon("th"))
)
),
dashboardBody(
tabItems(
tabItem(
tabName = "dashboard",
uiOutput("testing")
),
tabItem(
tabName = "widgets",
234
)
)
)
)
server <- function(input, output) {
output$testing <- renderUI({
includeMarkdown("testing.md")
})
}
shinyApp(ui, server)

而 testing.rmd 只是示例 rmd。

有人有一些想法吗？谢谢！

Answer 1

你确定这在本地有效吗？通过快速浏览您发布的内容，我将首先将服务器部分更改为includeMarkdown("testing。Rmd"(，当前代码中列出的文件是".md"，这也是您看到的警告中显示的文件扩展名。