Question

我有一个有光泽的应用程序，其中包含有关各种质量指标的信息。每个指标都有一个相关的格式化文档。我想显示正确的文档，具体取决于指标选择。我已将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，然后在App中打开它...

任何想法都欢迎！

此致 LUC

编辑：我刚发现通过在浏览器中打开html并按ctrl + U，你可以看到实际的html代码。由word创建的html文件似乎有很多定义。我去了https://word2cleanhtml.com/并'清理'了html代码。新清理的html也没有加载。再次，只是变灰了......不是错误信息......

Answer 1

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

Rshiny includeHTML（）显示为灰色

1 个答案: