In knapply/salinasr: An R package for programmatic access to the Salinas Open Data Portal API.

knitr::opts_chunk$set(
  collapse = TRUE, 
  fig.align = "center",
  comment = "#>",
  fig.path = "man/figures/"
)

knitr::opts_chunk$set(echo = TRUE)

options(crayon.enabled = TRUE)
sgr_wrap <- function(x, options){
  paste0(
    "<pre class=\"r-output\"><code>",
    fansi::sgr_to_html(x = htmltools::htmlEscape(x)),
    "</code></pre>"
  )
}
knitr::knit_hooks$set(output = sgr_wrap, warning=sgr_wrap, message=sgr_wrap)

salinasr

An R package for programmatic access to the Salinas Open Data Portal API.

Installation

# install the (exceptionally early) development version from GitHub via {devtools}
if(!require(devtools)) {
  install.packages("devtools")
}

devtools::install_github("knapply/salinasr")

Usage

library(salinasr)
library(leaflet)

bikeways_sf <- sal_get_metadata("bikeways") %>% 
  sal_get_dataset()

bikeways_sf %>%
  leaflet() %>%
  addProviderTiles(leaflet::providers$OpenStreetMap, group = "Street Map") %>%
  addProviderTiles(providers$Esri.WorldImagery, group = "Optical Imagery") %>%
  addPolylines(label = ~ name,
               popup = paste0(
                 "<b>Name:</b> ", bikeways_sf$name, "<br>",
                 "<b>Jurisdiction:</b> ", bikeways_sf$juris, "<br>",
                 "<b>Start:</b> ", bikeways_sf$start, "<br>",
                 "<b>End</b>: ", bikeways_sf$end, "<br>",
                 "<b>Miles:</b> ", round(bikeways_sf$miles, 2), "<br>",
                 "<b>Feet:</b> ", round(bikeways_sf$feet, 2)
                 )
               ) %>%
  addLayersControl(baseGroups = c("Street Map", "Optical Imagery"),
                   options = layersControlOptions(collapsed = FALSE))

knapply/salinasr documentation built on May 27, 2019, 2:09 p.m.