Rshiny includeHTML（）變灰

Question

我有一個shinyApp，其中包含有關各種質量指標的信息。 每個指標都有一個關聯的格式化文檔。 我想根據選擇的指標顯示正確的文檔。我已保存的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中打開它...

任何想法都比歡迎！

問候， 呂克

編輯：我剛剛發現了通過在瀏覽器中打開HTML和按Ctrl + U，你可以看到實際的HTML代碼。由word創建的html文件似乎有很多定義。我去了https://word2cleanhtml.com/和'清理'的HTML代碼。新清理的html也沒有加載。再次，只是灰色...沒有錯誤信息...

Answer 1

解決方案是用HTML(readLines('path'))替換includeHTLM('path')。