在下面的闪亮应用中，我想使用函数reactive2打印出两个反应数据集（tags和{{}}）的一部分，但我的脚本不起作用
我知道我可以使用其他解决方案，例如renderTable，但稍后我需要使用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)
将此反应代码嵌入到html页面中，因此如果有人能够向我解释为什么这不起作用将会很棒
{{1}}