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)