Merge pull request #17 from crazycapivara/develop

find cities by bbox

Author: crazycapivara

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: owmr
 Title: OpenWeatherMap API Wrapper
-Version: 0.8.0
+Version: 0.8.1
 Date: 2018-11-02
 Authors@R: c(
     person("Stefan", "Kuethe", email = "crazycapivara@gmail.com", role = c("aut", "cre")),

NAMESPACE

@@ -9,6 +9,7 @@ export("%>%")
 export(add_owm_tiles)
 export(add_weather)
 export(cbind_weather)
+export(find_cities_by_bbox)
 export(find_cities_by_geo_point)
 export(find_city)
 export(flatten)

NEWS.md

@@ -1,3 +1,8 @@
+# owmr 0.8.1
+
+* Added function `find_cities_by_bbox` to get current weather data for a number of cities
+within a given bounding box
+
 # owmr 0.8.0
 
 * Added generic function `owmr_as_tibble` to get similiar-ish and tidy data frames
@@ -26,7 +31,7 @@ _owm stations api_
 # owmr 0.7.0
 
 * Added functions to add owm tiles to leaflet map.
-  - Note: Performance of owm tile server seems to be low.
+* Note: Performance of owm tile server seems to be low.
 
 # owmr 0.6.1
 
@@ -47,7 +52,7 @@ _owm stations api_
 
 * Added function to search owm's city list by city name.
 * Added tests for current data.
-   - Added helper function to fetch 'fresh' data used in tests.
+* Added helper function to fetch 'fresh' data used in tests.
 
 # owmr 0.3.0
 

R/current-bbox.R

@@ -1,4 +1,14 @@
-find_cities_by_bbox <- function(bbox = c(12,32,15,37,10), ...) {
+#' Find cities by bounding box.
+#'
+#' Get current weather data for a number of cities
+#' within a given bounding box.
+#'
+#' @param bbox bounding box, numric vector of the form
+#'   (lon-left, lat-bottom, lon-right, lat-top, zoom)
+#' @param ... see \url{https://openweathermap.org/current}
+#'
+#' @export
+find_cities_by_bbox <- function(bbox = c(12, 32, 15, 37, 10), ...) {
   get <- owmr_wrap_get("box/city")
   get(bbox = paste0(bbox, collapse = ","), ...) %>%
     owmr_parse() %>%