R 如何将反应数据集中的值嵌入到shiny中的tags（）函数中？

在下面闪亮的应用程序中，我想使用函数

标记
打印出两个反应数据集（
reactiveDf
和
reactive2
）的一部分，但我的脚本不起作用

library(shiny)
library(dplyr)
ui <- shinyUI(fluidPage(
  sidebarLayout(
    sidebarPanel(
      checkboxGroupInput('Category', '',
                         unique(mtcars$carb), selected = unique(mtcars$carb))),
    # Show table of the rendered dataset
    mainPanel(
      tags$div(reactiveDf()),
      tags$div(reactive2())
    )
  )
))


server <- shinyServer(function(input, output) {

  reactiveDf <- reactive({return(tbl_df(mtcars) %>% 
                                   filter(carb %in% input$Category))})
  reactive2 <-  reactive({reactiveDf()[1,]})
})

shinyApp(ui = ui, server = server)

我知道我可以使用其他解决方案，如renderTable，但稍后我需要使用
{{}}
将此反应性代码嵌入html页面，因此如果有人能向我解释为什么这不起作用，那就太好了

library(shiny)
library(dplyr)
ui <- shinyUI(fluidPage(
  sidebarLayout(
    sidebarPanel(
      checkboxGroupInput('Category', '',
                         unique(mtcars$carb), selected = unique(mtcars$carb))),
    # Show table of the rendered dataset
    mainPanel(
      tags$div(reactiveDf()),
      tags$div(reactive2())
    )
  )
))


server <- shinyServer(function(input, output) {

  reactiveDf <- reactive({return(tbl_df(mtcars) %>% 
                                   filter(carb %in% input$Category))})
  reactive2 <-  reactive({reactiveDf()[1,]})
})

shinyApp(ui = ui, server = server)

库（闪亮）
图书馆（dplyr）
您使用的是
{{mustache}
？以防万一，你不知道，他们有一个可能会在稍后需要将其传递给JS的过程中有所帮助的模板。我正在使用一个自定义模板（
htmlTemplate（）
），我正在将部分代码嵌入
{}
，我不知道它实际上是
{mustache}
标准的实现。一般来说，我指的是。我不确定现在是否要使用
whisker
，除非每次我们编写链接到html代码的闪亮应用程序时，您都强烈推荐它作为最佳实践。但是谢谢你的建议，因为我将来可能需要它；我不能保证自己有胡子，我有一个朋友用过。只是看到了语法，想知道你在用它做什么。我把它弄乱了一段时间，但也没弄明白，对不起，我希望有人能来帮忙！我按照你的建议，结合对文档的仔细阅读，完成了这项工作。谢谢，没问题；很高兴它成功了：）你应该把它作为你自己问题的答案