R/dataExploringModule.R

In vojind/gca: What the Package Does (One Line, Title Case)

dataFeedbackUI <- function(id) {
  states <- c("ALL","BB","BE","BW","BY","HB","HE","HH","MV",
              "NI","NW","RP","SH","SL","SN","ST","TH")
  fluidPage(
    fluidRow(
      column(width=6,
             selectInput(NS(id,"state"),
                         "Select a state",
                         choices=states)),
      column(width=6, align='right',
             htmlOutput(NS(id,"hei")))
      ),
    DT::DTOutput(NS(id, "explore"))
  )
}

dataFeedbackServer <- function(id, datta) {
  moduleServer(id, function(input, output, session) {
    output$hei<- renderText(paste('<B>data:</B> ',choice()))
    output$explore <-
      DT::renderDT(server=FALSE,{
        DT::datatable(if(input$state == "ALL"){datta()}
                  else{stateData <- reactive(subset(datta(),FedState == input$state))
                  stateData()},
                  extensions = 'Buttons', options = list(
                    dom = 'Bfrtip',
                    buttons = list('copy', 'print', list(
                      extend = 'collection',
                      buttons = c('csv', 'excel', 'pdf'),
                      text = 'Download'
            ))))
    })
  })
}