https://github.com/knapply/salinasr
Easily connect to the Salinas Open Data Portal API from R.
https://github.com/knapply/salinasr
Last synced: 3 months ago
JSON representation
Easily connect to the Salinas Open Data Portal API from R.
- Host: GitHub
- URL: https://github.com/knapply/salinasr
- Owner: knapply
- License: gpl-3.0
- Created: 2018-08-02T06:48:53.000Z (almost 8 years ago)
- Default Branch: master
- Last Pushed: 2018-08-06T18:10:22.000Z (almost 8 years ago)
- Last Synced: 2025-03-05T14:28:52.551Z (over 1 year ago)
- Language: R
- Homepage: https://knapply.github.io/salinasr/
- Size: 6.61 MB
- Stars: 0
- Watchers: 1
- Forks: 0
- Open Issues: 0
-
Metadata Files:
- Readme: README.Rmd
- License: LICENSE
Awesome Lists containing this project
README
---
output:
github_document:
html_preview: false
---
```{r, echo = FALSE}
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(
"
",
fansi::sgr_to_html(x = htmltools::htmlEscape(x)),
"
"
)
}
knitr::knit_hooks$set(output = sgr_wrap, warning=sgr_wrap, message=sgr_wrap)
```
# salinasr 
[](https://github.com/knapply/salinasr)
An R package for programmatic access to the [Salinas Open Data Portal API](https://cityofsalinas.opendatasoft.com).
## Installation
```{r, eval=FALSE}
# install the (exceptionally early) development version from GitHub via {devtools}
if(!require(devtools)) {
install.packages("devtools")
}
devtools::install_github("knapply/salinasr")
```
## Usage
```{r, message=FALSE, warning=FALSE}
library(salinasr)
library(leaflet)
bikeways_sf <- sal_get_metadata("bikeways") %>%
sal_get_dataset()
```
```{r}
bikeways_sf %>%
leaflet() %>%
addProviderTiles(leaflet::providers$OpenStreetMap, group = "Street Map") %>%
addProviderTiles(providers$Esri.WorldImagery, group = "Optical Imagery") %>%
addPolylines(label = ~ name,
popup = paste0(
"Name: ", bikeways_sf$name, "
",
"Jurisdiction: ", bikeways_sf$juris, "
",
"Start: ", bikeways_sf$start, "
",
"End: ", bikeways_sf$end, "
",
"Miles: ", round(bikeways_sf$miles, 2), "
",
"Feet: ", round(bikeways_sf$feet, 2)
)
) %>%
addLayersControl(baseGroups = c("Street Map", "Optical Imagery"),
options = layersControlOptions(collapsed = FALSE))
```