initial commit

.Rbuildignore

@@ -19,3 +19,4 @@
 ^CRAN-RELEASE$
 ^appveyor\.yml$
 ^tools$
+^LICENSE\.md$

DESCRIPTION

@@ -12,13 +12,15 @@ Description: A good description goes here otherwise CRAN checks fail.
 URL: https://gitlab.com/hrbrmstr/rradar
 BugReports: https://gitlab.com/hrbrmstr/rradar/issues
 Encoding: UTF-8
-License: AGPL
+License: MIT + file LICENSE
 Suggests: 
     covr, tinytest
 Depends: 
     R (>= 3.2.0)
 Imports: 
     httr,
-    jsonlite
+    magick,
+    rvest,
+    magrittr
 Roxygen: list(markdown = TRUE)
 RoxygenNote: 7.0.1

LICENSE

@@ -0,0 +1,2 @@
+YEAR: 2019
+COPYRIGHT HOLDER: Bob Rudis

LICENSE.md

@@ -0,0 +1,21 @@
+# MIT License
+
+Copyright (c) 2019 Bob Rudis
+
+Permission is hereby granted, free of charge, to any person obtaining a copy
+of this software and associated documentation files (the "Software"), to deal
+in the Software without restriction, including without limitation the rights
+to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+copies of the Software, and to permit persons to whom the Software is
+furnished to do so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in all
+copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+SOFTWARE.

NAMESPACE

@@ -1,4 +1,9 @@
 # Generated by roxygen2: do not edit by hand
 
+export("%>%")
+export(animate_radar)
+export(stations)
 import(httr)
-importFrom(jsonlite,fromJSON)
+import(magick)
+import(rvest)
+importFrom(magrittr,"%>%")

R/animate.R

@@ -0,0 +1,39 @@
+#' Create an animated weather image from a NOAA station
+#'
+#' @param station the abbreviated station name. See [stations].
+#' @export
+animate_radar <- function(station = "GYX") {
+
+  station <- toupper(as.character(station[1]))
+
+  if (!(station %in% stations$station)) stop("Could not locate station '", station, "'.", call.=FALSE)
+
+  county_overlay <- system.file(
+    sprintf("overlays/%s_County_Short.gif", station),
+    package = "rradar"
+  )
+
+  county <- image_read(county_overlay)
+
+  ir <- possibly(image_read, NULL)
+
+  st_dir <- stations[stations$station == station,][["dir"]]
+
+  frames_dir_url <- sprintf("https://radar.weather.gov/ridge/RadarImg/%s/%s/", st_dir, station)
+
+  res <- httr::GET(url = frames_dir_url)
+  out <- httr::content(res)
+  out <- rvest::html_nodes(out, xpath = sprintf(".//a[contains(@href, '%s_')]", station))
+  out <- rvest::html_attr(out, "href")
+  out <- sprintf("https://radar.weather.gov/ridge/RadarImg/%s/%s/%s", st_dir, station, out)
+  out <- lapply(out, ir)
+  out <- out[lengths(out) > 0]
+
+  radar_imgs <- do.call(c, out)
+
+  back <- image_background(county, "black", flatten = TRUE)
+  both <- image_composite(back, radar_imgs)
+
+  image_animate(both)
+
+}

R/rradar-package.R

@@ -1,9 +1,8 @@
 #' ...
-#' 
+#'
 #' @md
 #' @name rradar
 #' @keywords internal
 #' @author Bob Rudis (bob@@rud.is)
-#' @import httr
-#' @importFrom jsonlite fromJSON
+#' @import httr magick rvest
 "_PACKAGE"

R/stations-df.R

@@ -0,0 +1,113 @@
+#' NOAA U.S. Radar Stations
+#'
+#' @docType data
+#' @export
+structure(list(state = c("Alabama", "Alabama", "Alabama", "Alabama",
+"Alabama", "Alaska", "Alaska", "Alaska", "Alaska", "Alaska",
+"Alaska", "Alaska", "Alaska", "Alaska", "Arizona", "Arizona",
+"Arizona", "Arizona", "Arkansas", "Arkansas", "California", "California",
+"California", "California", "California", "California", "California",
+"California", "California", "California", "California", "Colorado",
+"Colorado", "Colorado", "Delaware", "Florida", "Florida", "Florida",
+"Florida", "Florida", "Florida", "Florida", "Florida", "Georgia",
+"Georgia", "Georgia", "Georgia", "Guam", "Hawaii", "Hawaii",
+"Hawaii", "Hawaii", "Idaho", "Idaho", "Illinois", "Illinois",
+"Indiana", "Indiana", "Indiana", "Iowa", "Iowa", "Kansas", "Kansas",
+"Kansas", "Kansas", "Kentucky", "Kentucky", "Kentucky", "Kentucky",
+"Louisiana", "Louisiana", "Louisiana", "Louisiana", "Maine",
+"Maine", "Maryland", "Massachusetts", "Michigan", "Michigan",
+"Michigan", "Michigan", "Minnesota", "Minnesota", "Mississippi",
+"Mississippi", "Missouri", "Missouri", "Missouri", "Montana",
+"Montana", "Montana", "Montana", "Nebraska", "Nebraska", "Nebraska",
+"Nevada", "Nevada", "Nevada", "New Jersey", "New Mexico", "New Mexico",
+"New Mexico", "New York", "New York", "New York", "New York",
+"New York", "New York", "North Carolina", "North Carolina", "North Carolina",
+"North Carolina", "North Dakota", "North Dakota", "North Dakota",
+"Ohio", "Ohio", "Ohio", "Ohio", "Oklahoma", "Oklahoma", "Oklahoma",
+"Oklahoma", "Oregon", "Oregon", "Oregon", "Pennsylvania", "Pennsylvania",
+"Pennsylvania", "Puerto Rico", "South Carolina", "South Carolina",
+"South Carolina", "South Carolina", "South Carolina", "South Dakota",
+"South Dakota", "South Dakota", "Tennessee", "Tennessee", "Tennessee",
+"Tennessee", "Tennessee", "Texas", "Texas", "Texas", "Texas",
+"Texas", "Texas", "Texas", "Texas", "Texas", "Texas", "Texas",
+"Texas", "Texas", "Texas", "Texas", "Texas", "Utah", "Utah",
+"Vermont", "Virginia", "Virginia", "Virginia", "Virginia", "Virginia",
+"Virginia", "Washington", "Washington", "Washington", "Washington",
+"Washington DC", "West Virginia", "Wisconsin", "Wisconsin", "Wisconsin",
+"Wyoming", "Wyoming"), city = c("Birmingham", "E. Alabama", "Fort Rucker",
+"Mobile", "Nrn. Alabama", "Bethel", "Biorka Is.", "Fairbanks",
+"Kenai", "King Salmon", "Middleton Is.", "Nome", "Pedro Dome",
+"Sitka", "Flagstaff", "Phoenix", "Tucson", "Yuma", "Little Rock",
+"W. Ark./Ft. Smith", "Beale AFB", "Edwards AFB", "Eureka", "Hanford",
+"Los Angeles", "Sacramento", "San Diego", "San Francisco", "San Joaquin Vly.",
+"Santa Ana Mtns", "Vandenberg AFB", "Denver/Boulder", "Grand Junction",
+"Pueblo", "Dover AFB", "Eglin AFB", "Jacksonville", "Key West",
+"Melbourne", "Miami", "NW Florida", "Tallahassee", "Tampa Bay Area",
+"Atlanta", "Moody AFB", "Peachtree City", "Robins AFB", "Andersen AFB",
+"Kauai", "Kohala", "Molokai", "South Shore", "Boise", "Pocatello",
+"Central IL", "Chicago", "Evansville", "Indianapolis", "Nrn. Indiana",
+"Des Moines", "Quad Cities", "Dodge City", "Goodland", "Topeka",
+"Wichita", "Fort Cambell", "Jackson", "Louisville", "Paducah",
+"Fort Polk", "Lake Charles", "New Orleans", "Shreveport", "Caribou",
+"Portland", "Baltimore", "Boston", "Detroit", "Gaylord", "Grand Rapids",
+"Marquette", "Duluth", "Minneapolis", "Columbus AFB", "Jackson/Brandon",
+"Kansas City", "Springfield", "St. Louis", "Billings", "Glasgow",
+"Great Falls", "Missoula", "Hastings", "North Platte", "Omaha",
+"Elko", "Las Vegas", "Reno", "Mt. Holly", "Albuquerque", "Cannon AFB",
+"Holloman AFB", "Albany", "Binghamton", "Buffalo", "Montague",
+"New York City", "Upton", "Durham", "Morehead City", "Raleigh",
+"Wilmington", "Bismarck", "Grand Forks", "Minot AFB", "Cincinnati",
+"Cleveland", "Dayton", "Wilmington", "Frederick", "Oklahoma City",
+"Tulsa", "Vance AFB", "Medford", "Pendleton", "Portland", "Philadelphia",
+"Pittsburgh", "State College", "Puerto Rico/V.I.", "Charleston",
+"Columbia", "Greenville", "Spartanburg", "Greer", "Aberdeen",
+"Rapid City", "Sioux falls", "Knoxville", "Memphis", "Morristown",
+"Nashville", "Tri Cities", "Amarillo", "Austin", "Brownsville",
+"Central Texas", "Corpus Christi", "Dallas", "Dyess AFB", "El Paso",
+"Fort Worth", "Galveston", "Houston", "Laughlin AFB", "Lubbock",
+"Midland/Odessa", "San Angelo", "San Antonio", "Cedar City",
+"Salt Lake City", "Burlington", "Blacksburg", "Norfolk", "Richmond",
+"Roanoke", "Sterling", "Wakefield", "Langley Hill", "Seattle",
+"Spokane", "Tacoma", "Washington", "Charleston", "Green Bay",
+"La Crosse", "Milwaukee", "Cheyenne", "Riverton"), dir = c("N0R",
+"N0R", "N0R", "N0R", "N0R", "N0R", "N0R", "N0R", "N0R", "N0R",
+"N0R", "N0R", "N0R", "N0R", "N0R", "N0R", "N0R", "N0R", "N0R",
+"N0R", "N0R", "N0R", "N0R", "N0R", "N0R", "N0R", "N0R", "N0R",
+"N0R", "N0R", "N0R", "N0R", "N0R", "N0R", "N0R", "N0R", "N0R",
+"N0R", "N0R", "N0R", "N0R", "N0R", "N0R", "N0R", "N0R", "N0R",
+"N0R", "N0R", "N0R", "N0R", "N0R", "N0R", "N0R", "N0R", "N0R",
+"N0R", "N0R", "N0R", "N0R", "N0R", "N0R", "N0R", "N0R", "N0R",
+"N0R", "N0R", "N0R", "N0R", "N0R", "N0R", "N0R", "N0R", "N0R",
+"N0R", "N0R", "N0R", "N0R", "N0R", "N0R", "N0R", "N0R", "N0R",
+"N0R", "N0R", "N0R", "N0R", "N0R", "N0R", "N0R", "N0R", "N0R",
+"N0R", "N0R", "N0R", "N0R", "N0R", "N0R", "N0R", "N0R", "N0R",
+"N0R", "N0R", "N0R", "N0R", "N0R", "N0R", "N0R", "N0R", "N0R",
+"N0R", "N0R", "N0R", "N0R", "N0R", "N0R", "N0R", "N0R", "N0R",
+"N0R", "N0R", "N0R", "N0R", "N0R", "N0R", "N0R", "N0R", "N0R",
+"N0R", "N0R", "N0R", "N0R", "N0R", "N0R", "N0R", "N0R", "N0R",
+"N0R", "N0R", "N0R", "N0R", "N0R", "N0R", "N0R", "N0R", "N0R",
+"N0R", "N0R", "N0R", "N0R", "N0R", "N0R", "N0R", "N0R", "N0R",
+"N0R", "N0R", "N0R", "N0R", "N0R", "N0R", "N0R", "N0R", "N0R",
+"N0R", "N0R", "N0R", "N0R", "N0R", "N0R", "N0R", "N0R", "N0R",
+"N0R", "N0R", "N0R", "N0R", "N0R", "N0R", "N0R"), station = c("BMX",
+"MXX", "EOX", "MOB", "HTX", "ABC", "ACG", "APD", "AHG", "AKC",
+"AIH", "AEC", "APD", "ACG", "FSX", "IWA", "EMX", "YUX", "LZK",
+"SRX", "BBX", "EYX", "BHX", "HNX", "VTX", "DAX", "NKX", "MUX",
+"HNX", "SOX", "VBX", "FTG", "GJX", "PUX", "DOX", "EVX", "JAX",
+"BYX", "MLB", "AMX", "EVX", "TLH", "TBW", "FFC", "VAX", "FFC",
+"JGX", "GUA", "HKI", "HKM", "HMO", "HWA", "CBX", "SFX", "ILX",
+"LOT", "VWX", "IND", "IWX", "DMX", "DVN", "DDC", "GLD", "TWX",
+"ICT", "HPX", "JKL", "LVX", "PAH", "POE", "LCH", "LIX", "SHV",
+"CBW", "GYX", "LWX", "BOX", "DTX", "APX", "GRR", "MQT", "DLH",
+"MPX", "GWX", "DGX", "EAX", "SGF", "LSX", "BLX", "GGW", "TFX",
+"MSX", "UEX", "LNX", "OAX", "LRX", "ESX", "RGX", "DIX", "ABX",
+"FDX", "HDX", "ENX", "BGM", "BUF", "TYX", "OKX", "OKX", "RAX",
+"MHX", "RAX", "LTX", "BIS", "MVX", "MBX", "ILN", "CLE", "ILN",
+"ILN", "FDR", "TLX", "INX", "VNX", "MAX", "PDT", "RTX", "DIX",
+"PBZ", "CCX", "JUA", "CLX", "CAE", "GSP", "GSP", "GSP", "ABR",
+"UDX", "FSD", "MRX", "NQA", "MRX", "OHX", "MRX", "AMA", "EWX",
+"BRO", "GRK", "CRP", "FWS", "DYX", "EPZ", "FWS", "HGX", "HGX",
+"DFX", "LBB", "MAF", "SJT", "EWX", "ICX", "MTX", "CXX", "FCX",
+"AKQ", "AKQ", "FCX", "LWX", "AKQ", "LGX", "ATX", "OTX", "ATX",
+"LWX", "RLX", "GRB", "ARX", "MKX", "CYS", "RIW")), row.names = c(NA,
+-179L), class = c("tbl_df", "tbl", "data.frame")) -> stations

R/utils-pipe.R

@@ -0,0 +1,11 @@
+#' Pipe operator
+#'
+#' See \code{magrittr::\link[magrittr:pipe]{\%>\%}} for details.
+#'
+#' @name %>%
+#' @rdname pipe
+#' @keywords internal
+#' @export
+#' @importFrom magrittr %>%
+#' @usage lhs \%>\% rhs
+NULL

R/utils-safely.R

@@ -0,0 +1,15 @@
+possibly <- function(.f, otherwise, quiet = TRUE) {
+  force(otherwise)
+  function(...) {
+    tryCatch(.f(...),
+      error = function(e) {
+        if (!quiet)
+          message("Error: ", e$message)
+        otherwise
+      },
+      interrupt = function(e) {
+        stop("Terminated by user", call. = FALSE)
+      }
+    )
+  }
+}

README.Rmd

@@ -39,6 +39,24 @@ packageVersion("rradar")
 
 ```
 
+### Stations
+
+```{r}
+library(tidyverse)
+
+filter(stations, state == "Maine")
+
+filter(stations, state == "California")
+```
+
+```{r}
+animate_radar("GYX")
+```
+
+```{r}
+animate_radar("VBX")
+```
+
 ## rradar Metrics
 
 ```{r cloc, echo=FALSE}

README.md

@@ -0,0 +1,106 @@
+
+[![Project Status: Active – The project has reached a stable, usable
+state and is being actively
+developed.](https://www.repostatus.org/badges/latest/active.svg)](https://www.repostatus.org/#active)
+[![Signed
+by](https://img.shields.io/badge/Keybase-Verified-brightgreen.svg)](https://keybase.io/hrbrmstr)
+![Signed commit
+%](https://img.shields.io/badge/Signed_Commits-100%25-lightgrey.svg)
+[![Linux build
+Status](https://travis-ci.org/hrbrmstr/rradar.svg?branch=master)](https://travis-ci.org/hrbrmstr/rradar)  
+![Minimal R
+Version](https://img.shields.io/badge/R%3E%3D-3.2.0-blue.svg)
+![License](https://img.shields.io/badge/License-MIT-blue.svg)
+
+# rradar
+
+rradar title goes here otherwise CRAN checks fail
+
+## Description
+
+A good description goes here otherwise CRAN checks fail.
+
+## What’s Inside The Tin
+
+The following functions are implemented:
+
+  - `animate_radar`: Create an animated weather image from a NOAA
+    station
+  - `stations`: NOAA U.S. Radar Stations
+
+## Installation
+
+``` r
+remotes::install_git("https://git.rud.is/hrbrmstr/rradar.git")
+# or
+remotes::install_git("https://git.sr.ht/~hrbrmstr/rradar")
+# or
+remotes::install_gitlab("hrbrmstr/rradar")
+```
+
+NOTE: To use the ‘remotes’ install options you will need to have the
+[{remotes} package](https://github.com/r-lib/remotes) installed.
+
+## Usage
+
+``` r
+library(rradar)
+
+# current version
+packageVersion("rradar")
+## [1] '0.1.0'
+```
+
+### Stations
+
+``` r
+library(tidyverse)
+
+filter(stations, state == "Maine")
+## # A tibble: 2 x 4
+##   state city     dir   station
+##   <chr> <chr>    <chr> <chr>  
+## 1 Maine Caribou  N0R   CBW    
+## 2 Maine Portland N0R   GYX
+
+filter(stations, state == "California")
+## # A tibble: 11 x 4
+##    state      city             dir   station
+##    <chr>      <chr>            <chr> <chr>  
+##  1 California Beale AFB        N0R   BBX    
+##  2 California Edwards AFB      N0R   EYX    
+##  3 California Eureka           N0R   BHX    
+##  4 California Hanford          N0R   HNX    
+##  5 California Los Angeles      N0R   VTX    
+##  6 California Sacramento       N0R   DAX    
+##  7 California San Diego        N0R   NKX    
+##  8 California San Francisco    N0R   MUX    
+##  9 California San Joaquin Vly. N0R   HNX    
+## 10 California Santa Ana Mtns   N0R   SOX    
+## 11 California Vandenberg AFB   N0R   VBX
+```
+
+``` r
+animate_radar("GYX")
+```
+
+![](man/figures/README-unnamed-chunk-2-1.gif)<!-- -->
+
+``` r
+animate_radar("VBX")
+```
+
+![](man/figures/README-unnamed-chunk-3-1.gif)<!-- -->
+
+## rradar Metrics
+
+| Lang | \# Files |  (%) | LoC |  (%) | Blank lines | (%) | \# Lines |  (%) |
+| :--- | -------: | ---: | --: | ---: | ----------: | --: | -------: | ---: |
+| R    |        6 | 0.86 | 152 | 0.92 |          14 | 0.4 |       25 | 0.42 |
+| Rmd  |        1 | 0.14 |  13 | 0.08 |          21 | 0.6 |       35 | 0.58 |
+
+## Code of Conduct
+
+Please note that this project is released with a Contributor Code of
+Conduct. By participating in this project you agree to abide by its
+terms.