inst/shiny-examples/BCGcalc/external/tab_taxamaps.R

In leppott/BCGcalc: Biological Condition Gradient, calculator

# TaxaMaps Panel

function() {
  sidebarLayout(
           sidebarPanel(
                       h2("Taxa Distribution Maps")
                       , p("1. Upload a file.")
                       , p("Use 'Load Data' option in left sidebar.")
                       , p("2. Define columns.")
                       , uiOutput("UI_col_taxamaps_SampID")
                       , uiOutput("UI_col_taxamaps_TaxaID")
                       , uiOutput("UI_col_taxamaps_Count")
                       , uiOutput("UI_col_taxamaps_Lat")
                       , uiOutput("UI_col_taxamaps_Long")
                       , uiOutput("UI_col_taxamaps_Group")
                       , p("3. Define Map")
                       , selectInput("taxamaps_database"
                                     , label = "Map Database"
                                     , choices = maps_database
                                     , selected = "state")
                       , p("Character vector that names the polygons to draw.")
                       , p("e.g., new york,new jersey,pennsylvania (only comma between entries) OR michigan::north")
                       , textInput("taxamaps_regions"
                                    , label = "Map Region"
                                    , value = "")
                       # map("usa", names = TRUE, plot = FALSE)
                       # , selectInput("taxamaps_leg_loc"
                       #               , label = "Legend Location"
                       #               , choices = c("left", "right", "bottom"
                       #                          , "bottomleft", "bottomright")
                       #               , selected = "bottomleft")
                       , p("4. Run Function")
                       , bsButton("b_calc_taxamaps", label = "Run Function")
                       , p("5. Download Results")
                       , useShinyjs()
                     , shinyjs::disabled(downloadButton("b_download_taxamaps"
                                                        , "Download Results"))
                     ,
                )## sidebarPanel ~ END
           , mainPanel(
            # includeHTML(file.path("www", "rmd_html", "ShinyHTML_TaxaMaps.html"))
           )## mainPanel ~ END
   )##sidebarLayout ~ END
}##FUNCTION ~ END