R/mod_main_body.R

In SoerenGreule/idf_curtailment_investigator: Explore and idf-curtailments and reclassify birds

#' main_body UI Function
#'
#' @description A shiny Module.
#'
#' @param id,input,output,session Internal parameters for {shiny}.
#'
#' @noRd 
#'
#' @importFrom shiny NS tagList
mod_main_body_ui <- function(id){
  ns <- NS(id)
  tagList(
    fluidRow(
      column(6,
           box(title = "Datum",
               width = NULL,
               solidHeader = TRUE,
               status = "primary",
               DT::dataTableOutput(ns("date_dt"))),
           fluidRow(
             column(9,
                    box(title = "Curtailment",
                        width = NULL,
                        solidHeader = TRUE,
                        status = "primary",
                        DT::dataTableOutput(ns("curtailment_dt")))),
                    column(3,
                           box(width = NULL,
                               solidHeader = TRUE,
                               status = "primary",
                               selectInput(ns("reclassification"), "Nachbestimmung",
                                           choices=  c("Rotmilan",
                                                       "Seeadler",
                                                       "anderer Vogel",
                                                       "anderer Greifvogel",
                                                       "Greifvogel unbest.")),
                               textAreaInput(ns("comments"), "Kommentar", height = "170px"),
                               checkboxInput(ns("marked"), "markiert"))
             ))),
    column(6,
           box(title = "Karte",
               width = NULL,
               solidHeader = TRUE,
               status = "success"),
           box(title = "Flughöhe",
               width = NULL,
               solidHeader = TRUE,
               status = "success"))
    ),
  fluidRow(
    box(title = "Bilder in Auswahl",
        width = 12,
        solidHeader = TRUE,
        status = "success")
  )
  )
}
    
#' main_body Server Functions
#'
#' @noRd 
mod_main_body_server <- function(id){
  moduleServer( id, function(input, output, session){
    ns <- session$ns
    output$date_dt <- 
      DT::renderDataTable(mtcars)
    output$curtailment_dt <- 
      DT::renderDataTable(iris)
 
  })
}
    
## To be copied in the UI
# mod_main_body_ui("main_body_ui_1")
    
## To be copied in the server
# mod_main_body_server("main_body_ui_1")