r - 闪亮的连续反应数据表

Question

我是闪亮和r的新手。我正在创建一个动态闪亮的仪表板。用户需要从第一个表中选择一行，并且单元格值很少，用户必须过滤另一个数据，然后继续。从用户创建的新的第二个表中，再次选择第二个表中的一行。并且选择的行一些值用于过滤现有数据集并以闪亮的方式显示。等等。

我写了一个示例代码，但它不起作用。

df <- data.frame(id = sample(c(1,2,3,4),15, replace = T ),
             day = sample(c("Mon", "Tue", "Wed"),15, replace = T),
             hour_hand = c(0:14),
             price =sample(c(121,221,112,231,444), replace = T))

df_day <- df %>% 
group_by(id) %>% 
summarise(price = sum(price))


df_day_hour <- df %>% 
group_by(id, day) %>% 
summarise(price = sum(price))




ui <- dashboardPage(skin = "red",
                dashboardHeader(title = "2_level_drill_down"),
                dashboardSidebar(sidebarMenu(menuItem("Price", tabName = "tab_01", icon =icon("bar-chart")))),
                dashboardBody(tabItems(
                  tabItem(tabName = "tab_01",
                          tabsetPanel(
                            tabPanel("Id", DT::dataTableOutput("table_id")),
                            tabPanel("ID Day", DT::dataTableOutput("table_id_day")),
                            tabPanel("ID Day Hour",DT::dataTableOutput ("table_id_day_hour"))))
                  )))

server <- function(input, output){
#Id table
output$table_id <- renderDT(DT::datatable({
data =df
 }))

 #Id Day group_by  table
output$table_id_day <- renderDT(DT::datatable({
s = input$table_id_rows_selected
v <- unique(df[s,c("id")])
data = df_day[df_day$id %in% v,]
}))


 #ID Day Hour group_by  Table
 output$table_id_day_hour <- renderDT({
 s_3 = input$table_nodal_day_rows_selected
 id_3 <- unique(id_day_df[s_2,c("id")])
 day_2 <- unique(id_day_df[s_2,c("day")])
 data = df_day_hour[df_day_hour$id %in% id_3 & df_day_hour$day %in% day_2,]
 }) 




}


#####
shinyApp(ui,server)

标签： rshinyshinydashboardshiny-reactivity