tests/testthat/test-activities.R

In fitbitr: Interface with the 'Fitbit' API

test_that("Activites summary downloads", {
  skip_on_cran()
  skip_on_ci()

  tmp <- get_activity_summary(date)

  expect_equal(nrow(tmp), 1)
  expect_equal(ncol(tmp), 14)
  expect_equal(colnames(tmp)[1], "date")
  checkmate::expect_date(tmp$date)
})

test_that("Activity time series download correctly", {
  skip_on_cran()
  skip_on_ci()

  run_many <- function(f, start_date) {
    purrr::walk(
      round(runif(1, 1, 100)),
      ~ {
        response <- f(start_date, start_date + lubridate::days(.x))

        expect_equal(nrow(response), .x + 1)
        expect_equal(ncol(response), 2)
        expect_equal(colnames(response)[1], "date")
        checkmate::expect_date(response$date)
      }
    )
  }

  run_many(get_activity_calories, lubridate::as_date(start_date))
  run_many(get_calories_bmr, lubridate::as_date(start_date))
  run_many(get_calories, lubridate::as_date(start_date))
  run_many(get_distance, lubridate::as_date(start_date))
  run_many(get_elevation, lubridate::as_date(start_date))
  run_many(get_floors, lubridate::as_date(start_date))
  run_many(get_minutes_sedentary, lubridate::as_date(start_date))
  run_many(get_minutes_lightly_active, lubridate::as_date(start_date))
  run_many(get_minutes_fairly_active, lubridate::as_date(start_date))
  run_many(get_minutes_very_active, lubridate::as_date(start_date))
  run_many(get_steps, lubridate::as_date(start_date))
})


test_that("Bests and totals", {
  skip_on_cran()
  skip_on_ci()

  tracker_best <- get_bests_and_totals(TRUE, TRUE)
  tracker_total <- get_bests_and_totals(FALSE, TRUE)
  lifetime_best <- get_bests_and_totals(TRUE, FALSE)
  lifetime_total <- get_bests_and_totals(FALSE, FALSE)

  purrr::walk(
    names(tracker_best),
    ~ expect_true(.x %in% names(tracker_total))
  )

  purrr::walk(
    names(lifetime_best),
    ~ expect_true(.x %in% names(lifetime_total))
  )

  expect_identical(
    names(tracker_best),
    names(lifetime_best)
  )

  expect_identical(
    names(tracker_total),
    names(lifetime_total)
  )
})