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

Question

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

警告的文件（文件，ifelse（追加， “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”，这也是文件扩展名显示在你看到的警告中。