https://github.com/mdsumner/nuyina.underway
What the Package Does (One Line, Title Case)
https://github.com/mdsumner/nuyina.underway
Last synced: 7 months ago
JSON representation
What the Package Does (One Line, Title Case)
- Host: GitHub
- URL: https://github.com/mdsumner/nuyina.underway
- Owner: mdsumner
- License: other
- Created: 2023-10-29T22:19:16.000Z (over 2 years ago)
- Default Branch: main
- Last Pushed: 2024-10-29T09:57:41.000Z (over 1 year ago)
- Last Synced: 2024-10-29T10:03:42.386Z (over 1 year ago)
- Language: R
- Size: 8.52 GB
- Stars: 1
- Watchers: 1
- Forks: 0
- Open Issues: 1
-
Metadata Files:
- Readme: README.Rmd
- License: LICENSE
- Code of conduct: CODE_OF_CONDUCT.md
Awesome Lists containing this project
README
---
output: github_document
---
```{r, include = FALSE}
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>",
fig.path = "man/figures/README-",
out.width = "100%"
)
```
# nuyina.underway
[](https://github.com/mdsumner/nuyina.underway/actions/workflows/R-CMD-check.yaml)
The goal of nuyina.underway is to get the Nuyina underway feed. File is saved at this URL in Parquet:
```
https://github.com/mdsumner/nuyina.underway/raw/main/data-raw/nuyina_underway.parquet
```
For an up to the minute update, read the entire stream with
```R
get_underway <- function(x) {
## read the bulk
d <- arrow::read_parquet("https://github.com/mdsumner/nuyina.underway/raw/main/data-raw/nuyina_underway.parquet")
## read the rest
d1 <- tibble::as_tibble(vapour::vapour_read_fields("WFS:https://data.aad.gov.au/geoserver/ows?service=wfs&version=2.0.0&request=GetCapabilities",
sql = sprintf("SELECT * FROM \"underway:nuyina_underway\" WHERE datetime > '%s'",
format(max(d$datetime, "%Y-%m-%dT%H:%M:%SZ")))))
dplyr::bind_rows(d, d1)
}
d <- get_underway()
```
## Code of Conduct
Please note that the nuyina.underway project is released with a [Contributor Code of Conduct](https://contributor-covenant.org/version/2/1/CODE_OF_CONDUCT.html). By contributing to this project, you agree to abide by its terms.