tests/testthat/test-create_fig_res_by_day.R

In pydemull/activAnalyzer: A 'Shiny' App to Analyze Accelerometer-Measured Daily Physical Behavior Data

test_that("Create a figure with metrics for each day", {
  
  # Preparing data
  file <- system.file("extdata", "acc.agd", package = "activAnalyzer")
  mydata <- prepare_dataset(data = file)
  mydata_with_wear_marks <- mark_wear_time(
    dataset = mydata, 
    TS = "TimeStamp", 
    cts  = "vm", 
    frame = 90, 
    allowanceFrame = 2, 
    streamFrame = 30
  )
  mydata_with_intensity_marks <- mark_intensity(
    data = mydata_with_wear_marks, 
    col_axis = "vm", 
    equation = "Sasaki et al. (2011) [Adults]",
    sed_cutpoint = 200, 
    mpa_cutpoint = 2690, 
    vpa_cutpoint = 6167, 
    age = 32,
    weight = 67,
    sex = "male",
  )
  summary_by_day <- recap_by_day(
    data = mydata_with_intensity_marks, 
    age = 32, 
    weight = 67, 
    sex = "male",
    valid_wear_time_start = "07:00:00",
    valid_wear_time_end = "22:00:00"
  )$df_all_metrics

  
  # Creating graphic objects
  test_object_en_all <- create_fig_res_by_day(summary_by_day, 
                        minimum_wear_time_for_analysis = 10, 
                        start_day_analysis = "00:00:00", 
                        end_day_analysis = "23:59:00", 
                        language = "en", metrics = "all")
  
  test_object_en_volume <- create_fig_res_by_day(summary_by_day, 
                                              minimum_wear_time_for_analysis = 10, 
                                              start_day_analysis = "00:00:00", 
                                              end_day_analysis = "23:59:00", 
                                              language = "en", metrics = "volume")
  
  test_object_en_step <- create_fig_res_by_day(summary_by_day, 
                                              minimum_wear_time_for_analysis = 10, 
                                              start_day_analysis = "00:00:00", 
                                              end_day_analysis = "23:59:00", 
                                              language = "en", metrics = "step_acc")
  
  test_object_en_int <- create_fig_res_by_day(summary_by_day, 
                                              minimum_wear_time_for_analysis = 10, 
                                              start_day_analysis = "00:00:00", 
                                              end_day_analysis = "23:59:00", 
                                              language = "en", metrics = "int_distri")
  
  test_object_fr_all <- create_fig_res_by_day(summary_by_day, 
                                              minimum_wear_time_for_analysis = 10, 
                                              start_day_analysis = "00:00:00", 
                                              end_day_analysis = "23:59:00", 
                                              language = "fr", metrics = "all")
  
  test_object_fr_volume <- create_fig_res_by_day(summary_by_day, 
                                                 minimum_wear_time_for_analysis = 10, 
                                                 start_day_analysis = "00:00:00", 
                                                 end_day_analysis = "23:59:00", 
                                                 language = "fr", metrics = "volume")
  
  test_object_fr_step <- create_fig_res_by_day(summary_by_day, 
                                               minimum_wear_time_for_analysis = 10, 
                                               start_day_analysis = "00:00:00", 
                                               end_day_analysis = "23:59:00", 
                                               language = "fr", metrics = "step_acc")
  
  test_object_fr_int <- create_fig_res_by_day(summary_by_day, 
                                              minimum_wear_time_for_analysis = 10, 
                                              start_day_analysis = "00:00:00", 
                                              end_day_analysis = "23:59:00", 
                                              language = "fr", metrics = "int_distri")
  # Tests
  expect_s3_class(test_object_en_all, "ggplot")
  expect_s3_class(test_object_en_volume, "ggplot")
  expect_s3_class(test_object_en_step, "ggplot")
  expect_s3_class(test_object_en_int, "ggplot")
  expect_s3_class(test_object_fr_all, "ggplot")
  expect_s3_class(test_object_fr_volume, "ggplot")
  expect_s3_class(test_object_fr_step, "ggplot")
  expect_s3_class(test_object_fr_int, "ggplot")
  
  
  
  })