Html 在bsplus函数中集成R输出 我认为在开发动态网页时，代码> BSPLUS < /代码>包是相关的。我在Rstudio中使用R标记

然而，我发现将

bsplus

函数与R输出集成的方法特别棘手

我们来看一个使用

mtcars

dataset的

bs_accordion

函数的示例

head <- head(mtcars)
tail <- tail(mtcars)

bs_accordion(id ="Data: mtcars") %>%
  bs_append(title = "Head of mtcars", content = head) %>%
  bs_append(title = "Tail of mtcars", content = tail)

head%
bs_追加（title=“mtcars的尾部”，内容=尾部）

我想在手风琴功能中显示R输出，显示数据帧

头部

和

尾部

现在，它只显示

标题中的第一个数字行

是否有可能在

bsplus

函数的

content

属性中包含R代码

---

通过这种方式，我们可以以动态方式显示R结果。

这应该适用于您的示例。您必须以某种方式创建一个datatable，只是包含它不会将其呈现为一个表

注意：我将手风琴的id更改为

Data mtcars

。使用空格“：”或“；”将禁用折叠

library(shiny)
library(bsplus)
library(DT)

ui <- fluidPage(
  bs_accordion(id ="Data-mtcars") %>%
    bs_set_opts(panel_type = "primary", use_heading_link = T) %>%
    bs_append(title = "Head of mtcars", content = DT::dataTableOutput("table1")) %>%

    bs_set_opts(panel_type = "primary", use_heading_link = T) %>%
    bs_append(title = "Tail of mtcars", content = DT::dataTableOutput("table2"))
)

server <- function(input, output) {

  output$table1 <- DT::renderDataTable({
    head
  })  
  output$table2 <- DT::renderDataTable({
    tail
  })
}

shinyApp(ui, server)

库（闪亮）
图书馆（bsplus）
图书馆（DT）
ui%
bs_设置选项（面板类型=“主”，使用标题链接=T）%>%
bs_追加（title=“mtcars负责人”，content=DT:：dataTableOutput（“table1”））%>%
bs_设置选项（面板类型=“主”，使用标题链接=T）%>%
bs_追加（title=“mtcars的尾部”，content=DT:：dataTableOutput（“表2”））
)
服务器