Add 'manhattan' dataset

DESCRIPTION

@@ -1,16 +1,20 @@
 Package: h3forr
 Title: An R Interface to H3
-Version: 0.1.2
+Version: 0.1.3
 Date: 2018-11-23
 Authors@R: person("Stefan", "Kuethe", role = c("aut", "cre"), email = "[email protected]")
 Maintainer: Stefan Kuethe <[email protected]>
 Description: Provides R bindings for H3 <https://uber.github.io/h3/>,
   Uber's hexagonal hierarchical spatial indexing system.
+URL: https://github.com/crazycapivara/h3forr/
+BugReports: https://github.com/crazycapivara/h3forr/issues/
 License: MIT + file LICENSE
+Depends: R (>= 3.3)
 Imports:
   V8,
   magrittr,
-  purrr
+  purrr,
+  tibble
 Suggests:
   sf,
   testthat

NAMESPACE

@@ -44,3 +44,4 @@ export(polyfill)
 export(say_hello)
 importFrom(magrittr,"%<>%")
 importFrom(magrittr,"%>%")
+importFrom(tibble,tibble)

R/data.R

@@ -0,0 +1,14 @@
+#' @importFrom tibble tibble
+NULL
+
+#' Persons in manhattan
+#'
+#' @format a tibble with 13987 rows and 3 variables:
+#' \describe{
+#'   \item{lng}{longitude}
+#'   \item{lat}{latitude}
+#'   \item{sex}{1: male, 2: female}
+#' }
+#'
+#' @source \url{https://raw.githubusercontent.com/uber-common/deck.gl-data/master/examples/scatterplot/manhattan.json}
+"manhattan"

data-raw/manhatten.R

@@ -0,0 +1,15 @@
+library(jsonlite)
+library(tibble)
+
+data_url <- paste0(
+  "https://raw.githubusercontent.com/",
+  "uber-common/deck.gl-data/",
+  "master/examples/scatterplot/manhattan.json"
+)
+
+manhattan <- data_url %>%
+  read_json(simplifyVector = TRUE) %>%
+  as_tibble()
+
+names(manhattan) <- c("lng", "lat", "sex")
+# manhattan <- as.matrix(manhattan)