diff --git a/R/average_results.R b/R/average_results.R index deaee03a..34aaa223 100644 --- a/R/average_results.R +++ b/R/average_results.R @@ -15,6 +15,7 @@ #' @importFrom stats median #' #' @examples +#' \donttest{ #' file <- system.file("extdata", "acc.agd", package = "activAnalyzer") #' mydata <- prepare_dataset(data = file) #' mydata_with_wear_marks <- mark_wear_time( @@ -46,6 +47,7 @@ #' valid_wear_time_end = "22:00:00" #' )$df_all_metrics #' average_results(data = summary_by_day, minimum_wear_time = 10) +#' } #' average_results <- function( data, diff --git a/R/compute_accumulation_metrics.R b/R/compute_accumulation_metrics.R index 9bd5fe08..cad72028 100644 --- a/R/compute_accumulation_metrics.R +++ b/R/compute_accumulation_metrics.R @@ -52,6 +52,7 @@ #' @import ggplot2 #' #' @examples +#' \donttest{ #' file <- system.file("extdata", "acc.agd", package = "activAnalyzer") #' mydata <- prepare_dataset(data = file) #' mydata_with_wear_marks <- mark_wear_time( @@ -83,6 +84,7 @@ #' zoom_from = "00:00:00", #' zoom_to = "23:59:59" #' ) +#' } #' compute_accumulation_metrics <- function( data, diff --git a/R/compute_intensity_distri_metrics.R b/R/compute_intensity_distri_metrics.R index 8ab431b6..7f493805 100644 --- a/R/compute_intensity_distri_metrics.R +++ b/R/compute_intensity_distri_metrics.R @@ -20,6 +20,7 @@ #' @export #' #' @examples +#' \donttest{ #' file <- system.file("extdata", "acc.agd", package = "activAnalyzer") #' mydata <- prepare_dataset(data = file) #' mydata_with_wear_marks <- mark_wear_time( @@ -52,6 +53,7 @@ #' start_last_bin = 10000, #' bin_width = 500 #' ) +#' } #' compute_intensity_distri_metrics <- function( data, diff --git a/R/create_fig_mx_by_day.R b/R/create_fig_mx_by_day.R index bed27739..e730eb35 100644 --- a/R/create_fig_mx_by_day.R +++ b/R/create_fig_mx_by_day.R @@ -18,6 +18,7 @@ #' @export #' #' @examples +#' \donttest{ #' file <- system.file("extdata", "acc.agd", package = "activAnalyzer") #' mydata <- prepare_dataset(data = file) #' mydata_with_wear_marks <- mark_wear_time( @@ -56,6 +57,8 @@ #' data = summary_by_day, #' labels = seq(2500, 12500, 2500) #' ) +#' } +#' create_fig_mx_by_day <- function( data, diff --git a/R/create_fig_mx_summary.R b/R/create_fig_mx_summary.R index eb4d4bff..e729c51e 100644 --- a/R/create_fig_mx_summary.R +++ b/R/create_fig_mx_summary.R @@ -18,6 +18,7 @@ #' @export #' #' @examples +#' \donttest{ #' file <- system.file("extdata", "acc.agd", package = "activAnalyzer") #' mydata <- prepare_dataset(data = file) #' mydata_with_wear_marks <- mark_wear_time( @@ -57,6 +58,7 @@ #' data = recap, #' labels = seq(2500, 12500, 2500) #' ) +#' } #' create_fig_mx_summary <- function( diff --git a/R/create_fig_res_by_day.R b/R/create_fig_res_by_day.R index c976ef45..47dfa643 100644 --- a/R/create_fig_res_by_day.R +++ b/R/create_fig_res_by_day.R @@ -15,6 +15,7 @@ #' @export #' #' @examples +#' \donttest{ #' file <- system.file("extdata", "acc.agd", package = "activAnalyzer") #' mydata <- prepare_dataset(data = file) #' mydata_with_wear_marks <- mark_wear_time( @@ -49,6 +50,7 @@ #' start_day_analysis = "00:00:00", #' end_day_analysis = "23:59:00", #' language = "en") +#' } #' create_fig_res_by_day <- function( data, diff --git a/R/create_flextable_summary.R b/R/create_flextable_summary.R index 5f19bce9..f3ce1e6e 100644 --- a/R/create_flextable_summary.R +++ b/R/create_flextable_summary.R @@ -13,6 +13,7 @@ #' @export #' #' @examples +#' \donttest{ #' file <- system.file("extdata", "acc.agd", package = "activAnalyzer") #' mydata <- prepare_dataset(data = file) #' mydata_with_wear_marks <- mark_wear_time( @@ -57,6 +58,7 @@ #' results_summary_medians, #' language = "en" #' ) +#' } #' create_flextable_summary <- function( results_summary_means, diff --git a/R/recap_by_day.R b/R/recap_by_day.R index a2feaaf7..eb6990f8 100644 --- a/R/recap_by_day.R +++ b/R/recap_by_day.R @@ -80,6 +80,7 @@ #' @importFrom magrittr %>% #' #' @examples +#' \donttest{ #' file <- system.file("extdata", "acc.agd", package = "activAnalyzer") #' mydata <- prepare_dataset(data = file) #' mydata_with_wear_marks <- mark_wear_time( @@ -114,6 +115,7 @@ #' start_last_bin = 10000, #' bin_width = 500 #' ) +#' } #' recap_by_day <- function( data, diff --git a/man/average_results.Rd b/man/average_results.Rd index dbb74f82..770e5cdb 100644 --- a/man/average_results.Rd +++ b/man/average_results.Rd @@ -22,6 +22,7 @@ obtained using the \code{\link{recap_by_day}} function. The median can also be obtained with an appropriate configuration of the function. } \examples{ +\donttest{ file <- system.file("extdata", "acc.agd", package = "activAnalyzer") mydata <- prepare_dataset(data = file) mydata_with_wear_marks <- mark_wear_time( @@ -53,5 +54,6 @@ summary_by_day <- recap_by_day( valid_wear_time_end = "22:00:00" )$df_all_metrics average_results(data = summary_by_day, minimum_wear_time = 10) +} } diff --git a/man/compute_accumulation_metrics.Rd b/man/compute_accumulation_metrics.Rd index 251d4a81..37709f0b 100644 --- a/man/compute_accumulation_metrics.Rd +++ b/man/compute_accumulation_metrics.Rd @@ -77,6 +77,7 @@ provides similar results as the frequency method implemented in the \code{Gini} The appearance of the graphics generated by the function has been inspired by the supplementary file provided by Belletiere al. (2017; doi:10.1371/journal.pone.0180119). } \examples{ +\donttest{ file <- system.file("extdata", "acc.agd", package = "activAnalyzer") mydata <- prepare_dataset(data = file) mydata_with_wear_marks <- mark_wear_time( @@ -108,5 +109,6 @@ compute_accumulation_metrics( zoom_from = "00:00:00", zoom_to = "23:59:59" ) +} } diff --git a/man/compute_intensity_distri_metrics.Rd b/man/compute_intensity_distri_metrics.Rd index 1c0c96e4..46991b18 100644 --- a/man/compute_intensity_distri_metrics.Rd +++ b/man/compute_intensity_distri_metrics.Rd @@ -44,6 +44,7 @@ This function computes metrics that describe the distribution of intensity for e based on the daily periods set for analysis and on the detected wear time. } \examples{ +\donttest{ file <- system.file("extdata", "acc.agd", package = "activAnalyzer") mydata <- prepare_dataset(data = file) mydata_with_wear_marks <- mark_wear_time( @@ -76,5 +77,6 @@ compute_intensity_distri_metrics( start_last_bin = 10000, bin_width = 500 ) + } } diff --git a/man/create_fig_mx_by_day.Rd b/man/create_fig_mx_by_day.Rd index 2cab0a44..e324397d 100644 --- a/man/create_fig_mx_by_day.Rd +++ b/man/create_fig_mx_by_day.Rd @@ -33,6 +33,7 @@ This function creates radar plots in relation to MX metrics as illustrated in Ro (2018; doi:10.1249/MSS.0000000000001561) paper, here for each day of an accelerometer measurement. } \examples{ +\donttest{ file <- system.file("extdata", "acc.agd", package = "activAnalyzer") mydata <- prepare_dataset(data = file) mydata_with_wear_marks <- mark_wear_time( @@ -72,3 +73,5 @@ create_fig_mx_by_day( labels = seq(2500, 12500, 2500) ) } + +} diff --git a/man/create_fig_mx_summary.Rd b/man/create_fig_mx_summary.Rd index b5880201..bb86d13c 100644 --- a/man/create_fig_mx_summary.Rd +++ b/man/create_fig_mx_summary.Rd @@ -33,6 +33,7 @@ This function creates a radar plot in relation to MX metrics as illustrated in R (2018; doi:10.1249/MSS.0000000000001561) paper. } \examples{ +\donttest{ file <- system.file("extdata", "acc.agd", package = "activAnalyzer") mydata <- prepare_dataset(data = file) mydata_with_wear_marks <- mark_wear_time( @@ -72,5 +73,6 @@ create_fig_mx_summary( data = recap, labels = seq(2500, 12500, 2500) ) + } } diff --git a/man/create_fig_res_by_day.Rd b/man/create_fig_res_by_day.Rd index c5e3eb20..8e8124ea 100644 --- a/man/create_fig_res_by_day.Rd +++ b/man/create_fig_res_by_day.Rd @@ -37,6 +37,7 @@ A ggplot object The function generates a figure with several common metrics shown for each day of the physical behavior measurement. } \examples{ +\donttest{ file <- system.file("extdata", "acc.agd", package = "activAnalyzer") mydata <- prepare_dataset(data = file) mydata_with_wear_marks <- mark_wear_time( @@ -71,5 +72,6 @@ create_fig_res_by_day(summary_by_day, start_day_analysis = "00:00:00", end_day_analysis = "23:59:00", language = "en") +} } diff --git a/man/create_flextable_summary.Rd b/man/create_flextable_summary.Rd index 7c5187ce..9a7bafff 100644 --- a/man/create_flextable_summary.Rd +++ b/man/create_flextable_summary.Rd @@ -31,6 +31,7 @@ A flextable object The function generates a formatted table with both means and medians of the metrics obtained following the physical behavior measurement. } \examples{ +\donttest{ file <- system.file("extdata", "acc.agd", package = "activAnalyzer") mydata <- prepare_dataset(data = file) mydata_with_wear_marks <- mark_wear_time( @@ -75,5 +76,6 @@ create_flextable_summary( results_summary_medians, language = "en" ) +} } diff --git a/man/recap_by_day.Rd b/man/recap_by_day.Rd index 2fe5dd80..d13ee2cb 100644 --- a/man/recap_by_day.Rd +++ b/man/recap_by_day.Rd @@ -112,6 +112,7 @@ that may not be accurate at the individual level. The intensity gradient and the MX metrics are obtained using the \code{\link{compute_intensity_distri_metrics}} function. } \examples{ +\donttest{ file <- system.file("extdata", "acc.agd", package = "activAnalyzer") mydata <- prepare_dataset(data = file) mydata_with_wear_marks <- mark_wear_time( @@ -146,5 +147,6 @@ recap_by_day( start_last_bin = 10000, bin_width = 500 ) +} }