Многопараметрический ввод и фильтрация таблицы данных соответственно, в R блестящем - PullRequest
Новая
       9

Многопараметрический ввод и фильтрация таблицы данных соответственно, в R блестящем

0 голосов
/ 17 октября 2019

Я хочу создать интерактивную панель мониторинга, передавая различные значения из входных данных, и она должна создать таблицу данных, которая удовлетворяет всем параметрическим фильтрам.

Вот мой код: 

library(shiny)
library(shinydashboard)
library(dplyr)
library(DT)

samp <- read.csv("sample.csv", header = T, stringsAsFactors = FALSE)
samp$a <- as.Date(samp$a)

ui <- shinyUI( 
   dashboardPage(
    dashboardHeader(title = "ujjiv"),
    dashboardSidebar(disable = TRUE),
    dashboardBody(tags$head(tags$style(HTML('.content-wrapper, .right-side {background-color: 
                                             #ddf2a7; }, div.box-header {text-align: center;}'))), 
              fluidPage(tags$style(".small-box{border-radius: 15px}"), tags$style(".box-header{font- 
              weight:bold;}"),
              fluidRow(column(4, dateRangeInput(inputId = "ds", "Select date:", 
                                 start = min(samp$a), end = max(samp$a))), 
                       column(2, br(), submitButton(text = "Apply")),
                       column(6, fluidRow(radioButtons("gen", "Select Gender", 
                                                      c("All", "M","F"), inline = T)))),br(),
               fluidRow(column(1), column(5, fluidRow(radioButtons("state", "Select State", 
                                                    c("All", "mah","Ka" ), inline = T))),
                        column(6, fluidRow(radioButtons("dist", "Select Dist", 
                                           c("All","p","n","m","b"), inline = T)))),
               fluidRow(column(4, selectInput("edu", "Select Education:", 
                                           c("All", "i", "p", "h", "c"), multiple = TRUE)),
                        column(4, selectInput("opt", "Select Occupation:", 
                     c("All","D","DO","CH","DHC", "DL", "GE", "PE", "SE", "DW"), multiple = TRUE)),
                        column(4, selectInput("eco", "Select Economic Status:", 
                                             c("All", "BPL", "APL", "Unknown"), multiple = TRUE))),
                box("TRAY", valueBoxOutput("inputid"), width = 1260, height = 400, background = 
                    "black")))))


 server <- shinyServer(function(input,output,session){
    output$inputid <- renderDT({

         })
   })

 shinyApp(ui = ui, server = server)

Любые входные данные из dateinput, выбора радиокнопок и выбора из выпадающего списка должны быть переданы в фильтр, и, наконец, он должен создать вывод табличных данных после применения фильтров.

Я не могу построить серверную частькод для всего фильтра в направлении вывода таблицы. Любая помощь по этому вопросу будет очень полезна. Большое спасибо.

...