polygonChooser: Shiny module for selecting a polygon to display an a map

In PredictiveEcology/SpaDES.shiny: Utilities for building 'shiny' apps for 'SpaDES' simulations

Description

Provides a dropdown list of polygons available for mapping, sorted alphabetically.

Usage

polygonChooserUI(id)

polygonChooser(input, output, session, rctPolygonList,
  selectedPoly = NULL, uploadOpts = list(auth = NULL, path = NULL, user
  = NULL), studyArea = NULL)

Arguments

id	An id string that corresponds with the id used to call the module's UI function.
input	shiny server input object
output	shiny server output object
session	shiny server session object
rctPolygonList	A reactive nested list with the following structure: # TODO: fill this in
selectedPoly	The name of the polygon to select by default.
uploadOpts	A list of options for use with file uploads: auth logical indicating whether user is authorized to upload; path a directory path to use for file uploads; user the current username (used for creating user-specific paths); The default for all options is NULL, which means do not use.
studyArea	A Spatial object used as a template for post-processing the uploaded polygon, which is cropped, reprojected, etc. to match studyArea. See postProcess.

Value

A reactive list with elements polygons (a list of polygons) and selected (the name of the selected polygon).

Author(s)

Alex Chubaty

Examples

## Not run: 
if require(SpaDES.tools) {
  library(leaflet)
  library(magrittr)
  library(shiny)
  library(sp)

  shinyApp(
    ui = fluidPage(
      htmlOutput("infobox"),
      leafletOutput("map"),
      polygonChooserUI("polyPicker")
    ),
    server = function(input, output, session) {
      dummyPoly <- function() {
        randomPolygon(matrix(c(-120, 60), ncol = 2), 100)
      }
      dummyPoly1 <- dummyPoly()
      dummyPoly2 <- dummyPoly()
      dummyPoly3 <- dummyPoly()
      dummyPoly4 <- dummyPoly()

      tmpf <- tempfile(fileext = ".shp")
      raster::shapefile(dummyPoly4, filename = tmpf)

      polygonList <- reactive(list(
        caribou = dummyPoly1,
        ecozones = dummyPoly2,
        fmu = dummyPoly3
      ))
      out <- callModule(polygonChooser, "polyPicker", polygonList, "ecozones",
                        uploadOpts = list(
                          auth = TRUE,
                          path = dirname(tmpf),
                          user = "username"
                        ))

      updatedPolygonList <- reactive(out()$polygons)
      chosenPolyName <- reactive(out()$selected)
      chosenPoly <- reactive(updatedPolygonList()[[chosenPolyName()]])

      output$infobox <- renderUI({
        fluidRow(
          h4("Currently viewing the ", chosenPolyName(), " polygon.")
        )
      })

      output$map <- renderLeaflet({
        leaflet() %>%
          addTiles() %>%
          addPolygons(data = spTransform(chosenPoly(), CRSobj = proj4stringLFLT))
      })
    }
  )
}

## End(Not run)

PredictiveEcology/SpaDES.shiny documentation built on Nov. 11, 2019, 7:12 p.m.