Rshiny includeHTML()灰显

Question

我有一个shinyApp，里面有关于各种质量指标的信息。每个指示器都有一个关联的格式化word文档。我想根据所选的指示器显示正确的文档。我已经将word文件保存为htm文件，这样我就可以使用includeHTML()

library(shiny)
library("xtable")

dir <- "H:\\TEMP\\"

print(xtable(mtcars), type="html", file=paste0(dir, "example1.html"))
print(xtable(iris), type="html",   file=paste0(dir, "example2.html"))
print(xtable(cars), type="html",   file=paste0(dir, "example3.html"))


runApp(
  list(
 ui = fluidPage(
  sidebarLayout(
    sidebarPanel(
      selectInput("docselect", "Select:", c("example1.html", "example2.html", "example3.html"))
      , width = 2),

    mainPanel(

      tabsetPanel(
        tabPanel(title = "Empty"),
        tabPanel(title = "Results", uiOutput("DoC"))
      )
    )
  )
)

, server = function(input, output, session){
  output$DoC <- renderUI({includeHTML(path = paste0(dir, input$docselect))
  })

}
 )
)

这一切都运行得很好。直到我开始调用我真正想调用的文档...应用程序变灰了，在R中没有任何错误...

我怀疑可能有一些隐藏的格式是不允许的，但是，我找不到任何其他有类似问题的帖子……

这本身并不是一个词转换的问题，因为我可以打开一个新的word文档，写文本，添加一个表，另存为htm，并只是在应用程序中打开这个…

任何想法都非常受欢迎！

问候你，Luc

编辑:通过在浏览器中打开html并按下ctrl+U，您可以看到实际的html代码。word创建的html文件似乎有很多定义。我去了https://word2cleanhtml.com/，“清理”了html代码。新清理的html也不能加载。又一次，我的头发变灰了.不是错误消息...

Answer 1

解决方案是用HTML(readLines('path'))替换includeHTLM('path')。