Question

我试图将一些rmd文件插入我闪亮的仪表板中。一切都在当地很好。但是当我在闪亮的服务器上试用它时，它会显示：

文件中的警告（文件，ifelse（附加，＆＃34; a＆＃34;，＆＃34; w＆＃34;））：无法打开文件＆＃39; testing.md＆＃39;：权限被拒绝警告：文件错误：无法打开连接

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

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（＆＃34; testing.Rmd＆＃34;），即当前代码中列出的文件是＆＃34; .md＆＃34;这也是您所看到的警告中显示的文件扩展名。

尝试包含RMarkDown时，闪亮的服务器无法打开连接

1 个答案: