R Shiny includeHTML vermisst htmlWidgets in einem reaktiven Kontext
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)