fix #68 - add properites param to centroid and center, bump dev version

DESCRIPTION

@@ -6,7 +6,7 @@ Description: Client for 'Turfjs' (<http://turfjs.org>) for
     measuring aspects of 'GeoJSON', and combining, transforming,
     and creating random 'GeoJSON' data objects.
 Type: Package
-Version: 0.3.6.9110
+Version: 0.3.6.9130
 License: MIT + file LICENSE
 Authors@R: c(
     person("Scott", "Chamberlain", role = c("aut", "cre"), email = "[email protected]"),

R/center.R

@@ -5,20 +5,23 @@
 #'
 #' @export
 #' @param features Input features, as a [data-FeatureCollection].
+#' @param properties A list of properties. Default: `NULL`
 #' @template lint
 #' @family measurements
 #' @return A [data-Point] feature at the absolute center point of
 #' all input features.
 #' @examples
 #' lawn_center(lawn_data$points_average)
+#' lawn_center(lawn_data$points_average, properties = list(
+#'   foo = "bar", hello = "world"))
 #' @examples \dontrun{
 #' lawn_center(lawn_data$points_average) %>% view
 #' lawn_featurecollection(lawn_data$points_average) %>% view
 #' lawn_center(lawn_data$points_average) %>% view
 #' }
-lawn_center <- function(features, lint = FALSE) {
+lawn_center <- function(features, properties = NULL, lint = FALSE) {
   features <- convert(features)
   lawnlint(features, lint)
-  ct$eval(sprintf("var cent = turf.center(%s);", features))
+  ct$eval(sprintf("var cent = turf.center(%s, %s);", features, toj(properties)))
   structure(ct$get("cent"), class = "point")
 }

R/centroid.R

@@ -6,10 +6,11 @@
 #'
 #' @export
 #'
-#' @param features Input features.
+#' @param features Input features, as a [data-Feature].
+#' @param properties A list of properties. Default: `NULL`
 #' @template lint
 #' @family measurements
-#' @return Feature - centroid of the input features
+#' @return a [data-Feature] - centroid of the input features
 #' @examples
 #' poly <- '{
 #'   "type": "Feature",
@@ -26,9 +27,10 @@
 #'   }
 #' }'
 #' lawn_centroid(features = poly)
-lawn_centroid <- function(features, lint = FALSE) {
+#' lawn_centroid(features = poly, properties = list(foo = "bar"))
+lawn_centroid <- function(features, properties = NULL, lint = FALSE) {
   fts <- convert(features)
   lawnlint(fts, lint)
-  ct$eval(sprintf("var ctr = turf.centroid(%s);", fts))
+  ct$eval(sprintf("var ctr = turf.centroid(%s, %s);", fts, toj(properties)))
   structure(ct$get("ctr"), class = "point")
 }