subset example data to reduce runtime

Author: robitalec

R/centroid_dyad.R

@@ -59,6 +59,9 @@
 #' # Read example data
 #' DT <- fread(system.file("extdata", "DT.csv", package = "spatsoc"))
 #'
+#' # (Subset example data to reduce runtime on CRAN)
+#' DT <- DT[year(datetime) == 2016]
+#'
 #' # Cast the character column to POSIXct
 #' DT[, datetime := as.POSIXct(datetime, tz = 'UTC')]
 #'

R/centroid_fusion.R

@@ -60,6 +60,9 @@
 #' # Read example data
 #' DT <- fread(system.file("extdata", "DT.csv", package = "spatsoc"))
 #'
+#' # (Subset example data to reduce runtime on CRAN)
+#' DT <- DT[year(datetime) == 2016]
+#'
 #' # Cast the character column to POSIXct
 #' DT[, datetime := as.POSIXct(datetime, tz = 'UTC')]
 #'

R/direction_to_leader.R

@@ -59,8 +59,8 @@
 #' # Read example data
 #' DT <- fread(system.file("extdata", "DT.csv", package = "spatsoc"))
 #'
-#' # (Subset example data to reduce example run time)
-#' DT <- DT[year(datetime) == 2016]
+#' # (Subset example data to reduce runtime on CRAN)
+#' DT <- DT[year(datetime) == 2016 & month(datetime) == 11]
 #'
 #' # Cast the character column to POSIXct
 #' DT[, datetime := as.POSIXct(datetime, tz = 'UTC')]

R/distance_to_centroid.R

@@ -95,6 +95,9 @@
 #' # Read example data
 #' DT <- fread(system.file("extdata", "DT.csv", package = "spatsoc"))
 #'
+#' # (Subset example data to reduce runtime on CRAN)
+#' DT <- DT[year(datetime) == 2016]
+#'
 #' # Cast the character column to POSIXct
 #' DT[, datetime := as.POSIXct(datetime, tz = 'UTC')]
 #'

R/distance_to_leader.R

@@ -60,8 +60,8 @@
 #' # Cast the character column to POSIXct
 #' DT[, datetime := as.POSIXct(datetime, tz = 'UTC')]
 #'
-#' # (Subset example data to reduce example run time)
-#' DT <- DT[year(datetime) == 2016]
+#' # (Subset example data to reduce runtime on CRAN)
+#' DT <- DT[year(datetime) == 2016 & month(datetime) == 11]
 #'
 #' # Temporal grouping
 #' group_times(DT, datetime = 'datetime', threshold = '20 minutes')