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

Posted 2023-03-24

【中文标题】尝试包含 RMarkDown 时，闪亮的服务器无法打开连接

【英文标题】：shiny server cannot open the connection when trying to include RMarkDown

【发布时间】：2017-12-11 04:40:52

【问题描述】：

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

文件中的警告(file, 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。

有人有什么想法吗？谢谢！

【参考方案1】：

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