adds initial version of unfold_inside()

djnavarro · Dec 24, 2019 · eae7a252fbede73b779df59176b68f24c721dbfe · eae7a25
1 parent b74dfda
commit eae7a252fbede73b779df59176b68f24c721dbfe
Unified Split

Showing with 214 additions and 1 deletion.

+2 −1 DESCRIPTION

+1 −0 NAMESPACE

+19 −0 R/unfold_inside.R

+1 −0 R/zzz.R

+6 −0 docs/reference/index.html

+166 −0 docs/reference/unfold_inside.html

+19 −0 man/unfold_inside.Rd
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -29,7 +29,8 @@ Imports:
     gganimate,
     e1071,
     magick,
-    spatstat
+    spatstat,
+    sp
 URL: https://github.com/djnavarro/jasmines
 BugReports: https://github.com/djnavarro/jasmines/issues
 RoxygenNote: 7.0.2

diff --git a/NAMESPACE b/NAMESPACE
@@ -20,6 +20,7 @@ export(scene_rows)
 export(scene_sticks)
 export(style_ribbon)
 export(style_walk)
+export(unfold_inside)
 export(unfold_loop)
 export(unfold_meander)
 export(unfold_slice)

diff --git a/R/unfold_inside.R b/R/unfold_inside.R
@@ -0,0 +1,19 @@
+
+#' Determine whether each point lies inside its seed
+#'
+#' @param data Data
+#' @param output String specifying a Column name
+#'
+#' @return Returns the original data tibble with a new column added
+#' @export
+unfold_inside <- function(data, output = "inside") {
+
+  is_inside <- function(x, y, time) {
+    sp::point.in.polygon(x, y, x[time==1], y[time==1])
+  }
+
+  data %>%
+    dplyr::group_by(id) %>%
+    dplyr::mutate(!!output := is_inside(x, y, time)) %>%
+    dplyr::ungroup()
+}
diff --git a/R/zzz.R b/R/zzz.R
@@ -8,6 +8,7 @@ utils::globalVariables(c(".", "V1", "V2", "V3", "V4", "V5", "V6", "aes",
                          "char_ind", "id", "series", "time", "x2", "xpos", "y2", "ypos"))
 utils::globalVariables(c("char", "make_bridges", "seed_x", "seed_y"))
 utils::globalVariables(c("xend", "yend", "al"))
+utils::globalVariables(":=")
 
 #
 # img_rescale <- function(from, to, scale) {

diff --git a/docs/reference/index.html b/docs/reference/index.html
diff --git a/docs/reference/unfold_inside.html b/docs/reference/unfold_inside.html
diff --git a/man/unfold_inside.Rd b/man/unfold_inside.Rd