R Shiny includeHTML отсутствует htmlWidgets в реактивном контексте
ОБНОВЛЕНИЕ: я отправил связанный вопросВот
Мне нужно включить HTML-файл в блестящей, используя includeHTML. Файл сгенерирован rmarkdown и содержит большое количество htmlWidgets.
Блестящий показывает HTML-файл, но htmlWidgests отсутствуют. Проблема возникает, только когда includeHTML находится в server.R, но работает нормально, если includeHTLM находится в ui.R. Мне нужно обновить file.html, поэтому includeHTML должен использоваться в реактивном контексте.
Файл .rmd выглядит примерно так
---
title: "test"
author: "me"
date: '`r Sys.Date()`'
output: html_document
---
```{r}
df<- data.frame(a = c(1:10), b = c(1:10))
rpivotTable::rpivotTable(df , rows = 'a' , cols= 'b' )
rpivotTable::rpivotTable(df , rows = 'a' , cols= 'b' )
rpivotTable::rpivotTable(df , rows = 'a' , cols= 'b' )
```
затем отрендерить в file.html
rmarkdown::render( input = 'file.RMD' )
Это блестящее приложение в порядке
ui <- shinyUI(
fluidPage(
includeHTML('file.html')
)
)
server <- function(input, output) { }
shinyApp(ui, server)
НО этот не работает.
ui <- shinyUI(
fluidPage(
uiOutput('tables')
)
)
server <- shinyServer(function(input, output) {
output$tables <- shiny::renderUI(
includeHTML('file.html')
)
})
shinyApp(ui, server)