chore: add donttest clauses

R/IV_by_Period.R

@@ -40,6 +40,7 @@
 #' @family Time-series
 #'
 #' @examples
+#' \donttest{
 #' # Returns a data frame
 #' sq_data %>%
 #'   IV_by_period(
@@ -48,7 +49,7 @@
 #'     after_start = "2020-01-05",
 #'     after_end = "2020-01-26"
 #'   )
-#'
+#' }
 #' @export
 
 IV_by_period <-

R/create_ITSA.R

@@ -64,8 +64,8 @@
 #'
 #'
 #' @examples
+#' \donttest{
 #' # Returns summary table
-#'
 #' create_ITSA(
 #'   data = sq_data,
 #'   before_start = "12/15/2019",
@@ -89,6 +89,7 @@
 #'
 #' # Extract a plot as an example
 #' plot_list$Workweek_span
+#' }
 #'
 #' @export
 

R/subject_scan.R

@@ -50,6 +50,7 @@
 #' @import ggplot2
 #'
 #' @examples
+#' \donttest{
 #' # return a heatmap table for words
 #' mt_data %>% subject_scan(hrvar = "Organizer_Organization")
 #'
@@ -68,7 +69,7 @@
 #'
 #' # grouped by days
 #' mt_data %>% subject_scan(mode = "days")
-#'
+#' }
 #' @export
 subject_scan <- function(data,
                          hrvar,

R/tm_freq.R

@@ -41,8 +41,10 @@
 #'
 #'
 #' @examples
+#' \donttest{
 #' tm_freq(mt_data, token = "words")
 #' tm_freq(mt_data, token = "ngrams")
+#' }
 #'
 #' @family Text-mining
 #'

R/workpatterns_hclust.R

@@ -68,16 +68,16 @@
 #' @importFrom tidyr replace_na
 #'
 #' @examples
+#' \donttest{
 #' # Run clusters, returning plot
 #' workpatterns_hclust(em_data, k = 5, return = "plot")
 #'
 #' # Run clusters, return raw data
 #' workpatterns_hclust(em_data, k = 4, return = "data") %>% head()
 #'
-#'
 #' # Run clusters for instant messages only, return hclust object
 #' workpatterns_hclust(em_data, k = 4, return = "hclust", signals = c("IM"))
-#'
+#' }
 #'
 #' @family Clustering
 #' @family Working Patterns

man/IV_by_period.Rd

@@ -48,6 +48,7 @@ This function uses the Information Value algorithm to predict
 which Workplace Analytics metrics are most explained by the change in dates.
 }
 \examples{
+\donttest{
 # Returns a data frame
 sq_data \%>\%
   IV_by_period(
@@ -56,7 +57,7 @@ sq_data \%>\%
     after_start = "2020-01-05",
     after_end = "2020-01-26"
   )
-
+}
 }
 \seealso{
 Other Variable Association: 

man/create_ITSA.Rd

@@ -72,8 +72,8 @@ has since been removed and dependent functions \code{Ljungbox()} incorporated in
 the \strong{wpa} package.
 }
 \examples{
+\donttest{
 # Returns summary table
-
 create_ITSA(
   data = sq_data,
   before_start = "12/15/2019",
@@ -97,6 +97,7 @@ plot_list <-
 
 # Extract a plot as an example
 plot_list$Workweek_span
+}
 
 }
 \seealso{

man/subject_scan.Rd

@@ -87,6 +87,7 @@ grouped by a specified attribute such as organisational attribute, day of the
 week, or hours of the day.
 }
 \examples{
+\donttest{
 # return a heatmap table for words
 mt_data \%>\% subject_scan(hrvar = "Organizer_Organization")
 
@@ -105,5 +106,5 @@ mt_data \%>\% subject_scan(mode = "hours")
 
 # grouped by days
 mt_data \%>\% subject_scan(mode = "days")
-
+}
 }

man/tm_freq.Rd

@@ -45,8 +45,10 @@ There is an option to remove stopwords by passing a data frame into the
 \code{stopwords} argument.
 }
 \examples{
+\donttest{
 tm_freq(mt_data, token = "words")
 tm_freq(mt_data, token = "ngrams")
+}
 
 }
 \seealso{

man/workpatterns_hclust.Rd

@@ -80,16 +80,16 @@ In other words, the clustering is applied on a dataset where the collaboration h
 are averaged by person and calculated as \% of total daily collaboration.
 }
 \examples{
+\donttest{
 # Run clusters, returning plot
 workpatterns_hclust(em_data, k = 5, return = "plot")
 
 # Run clusters, return raw data
 workpatterns_hclust(em_data, k = 4, return = "data") \%>\% head()
 
-
 # Run clusters for instant messages only, return hclust object
 workpatterns_hclust(em_data, k = 4, return = "hclust", signals = c("IM"))
-
+}
 
 }
 \seealso{