R Shiny在响应式上下文中包含html缺失的htmlWidgets

Question

更新:我在这里发布了一个相关的问题

我需要包括一个html文件在闪亮使用includeHTML。该文件由markdown生成，并具有大量的htmlWidgets。

Shiny显示html文件，但htmlWidgests缺失。只有当includeHTML在服务器中时才会出现问题。R，但工作正常，如果包括html是在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'   ) 

这个闪亮的应用程序是OK

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)

Answer 1

刚刚有机会深入研究这个问题，我得到的错误是这些行中的window.buildTabsets()。

修复了YAML

如果我使用这些yaml选项来禁用引导，我得到了预期的结果，但我们失去了引导。

--- 
title: "test"
author: "me"
date: '`r Sys.Date()`'
output:
  html_document:
    theme: null
    mathjax: null
---

证实?

如果可能的话，请确认这也适用于你方。

更好的方法吗?

一般来说，我会推荐一种不同的方法，因为渲染的html将包含所有依赖项，并且将是一个非常大的文件，通过websocket传递。也许，这个问题可以帮助描述一个潜在的更好的方法。