Динамическая таблица данных детализации в R блестящий

Question

Я новичок в R. В основном я создаю динамическую таблицу детализации данных в блестящей панели инструментов на одной странице, где я должен показать количество переменных status для df wrt1) идентификатор2) идентификатор и день3) идентификатор и час4) идентификатор, день и час

5) Все вышеперечисленные проверки с коэффициентом status,6) один фактор status == red или зеленый, желтый7) Комбо-фактор с или и и и условием

У меня была концепция, добавить два input boxes, (week_of_day и hour_hand).при вводе некоторых значений в эти два поля, измените значение соответствующим образом.

Любой другой способ работы также приветствуется.

Заранее спасибо.

set.seed(123)
df <- data.frame(id =  sample(c(rep(seq(1:7), 15))),
             day = sample(rep(c("mon", "tue", "wed","thrus","fri"),21)),
             hour = round(rep(runif(105,0,24)),0),
             status = sample(rep(c("red", "green", "yellow"), 35)))

df_id <- dcast(df, id~status)
df_day <- dcast(df, id+day ~ status)
df_hour <- dcast(df,id+hour ~ status )
df_day_hour <- dcast(df,id+day+hour ~ status)

ui <- dashboardPage(skin = "red",
                dashboardHeader(title = "Id_call"),
                dashboardSidebar(sidebarMenu(menuItem("Views", tabName = "tab_01", icon =icon("bar-chart")))),
                dashboardBody(tabItems(
                  tabItem(tabName = "tab_01",
                          fluidRow(column(2, selectInput("day_of_week",
                                                         "Week day:",
                                                         c("All", unique(as.character(df_id$week_day))))),
                                   column(2, selectInput("hour_hand",
                                                         "Hour:",
                                                         c("All",1:24))))

         ))))  

server <- function(input, output){
output$table_01 <- renderDT(datatable({if_else(input$)
dcast(df,id~Status)
if (input$day_of_week != "All" & ) {
  data <- data[data$ == input$,]   #Lost here in using nested ifs condition in selecting dfs
}
}))}
shinyApp(ui,server)