UPDATE: Ich habe eine verwandte Frage gepostetHie

Ich muss eine HTML-Datei mit includeHTML in shiny einfügen. Die Datei wird von rmarkdown generiert und enthält eine große Anzahl von htmlWidgets.

Shiny zeigt die HTML-Datei an, aber die HTML-Breitesten fehlen. Das Problem tritt nur auf, wenn sich includeHTML in server.R befindet, funktioniert aber in Ordnung, wenn sich includeHTLM in ui.R befindet. Ich muss file.html aktualisieren, damit includeHTML in einem reaktiven Kontext verwendet werden kann.

The file.rmd ist so etwas

---
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' )  
```

then render to file.html

rmarkdown::render(  input = 'file.RMD'   ) 

Diese glänzende App ist in Ordnung

ui <- shinyUI(
  fluidPage(
    includeHTML('file.html')
  )
)
server <- function(input, output) { } 
shinyApp(ui, server)

ABER dieser funktioniert nicht.

ui <- shinyUI(
  fluidPage(
    uiOutput('tables')
  )
)

server <- shinyServer(function(input, output) {  
  output$tables <- shiny::renderUI(   
      includeHTML('file.html')  
   ) 
})

shinyApp(ui, server)