У меня есть shinyApp, который имеет информацию о различных индикаторах качества. Каждый индикатор имеет связанный форматированный документ слова. Я хочу показать правильную документацию, в зависимости от выбранного индикатора. Я сохранил файлы слова, как HTM файлы, так что я могу использовать includeHTML()Rshiny includeHTML() greyed out
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 ...
Я подозреваю, что может быть каким-то скрытое форматирование, которое не допускается, однако, я не могу найти какие-либо другие сообщения с подобными проблемами ...
Его не выпускает преобразование слов в se, потому что я могу открыть новый документ слова, написать текст, добавить таблицу, сохранить как htm, и просто открыть это в приложении ...
Любые идеи более чем приветствуются!
С уважением, Люк
EDIT: Я только что узнал, что, открыв HTML в браузере и нажать Ctrl + U, вы можете увидеть фактический HTML-код. Файлы html, созданные словом, имеют много определений. Я отправился в https://word2cleanhtml.com/ и «очистил» html-код. Новый очищенный html также не загружается. Опять же, просто серовато ... не сообщение об ошибке ...