tests/testthat/test-transect_list_glance.R

In fqar: Floristic Quality Assessment Tools for R

test_that("transect_list_glance works", {

  expect_message(transect_list_glance("hi"))
  expect_message(transect_list_glance(faithful))

  test_list <- list(test_transect, test_transect)
  test_df <- transect_list_glance(test_list)

  expect_equal(ncol(test_df), 55)
  expect_equal(typeof(test_df$total_mean_c), "double")
  expect_equal(nrow(test_df), 2)

  test_vec <- c(6875, 6736)
  test_list <- suppressMessages(download_transect_list(63, id %in% test_vec))

  if (length(test_list) != 0) {
    test_df <- suppressMessages(transect_list_glance(test_list))

    expect_equal(ncol(test_df), 55)
    expect_equal(typeof(test_df$total_mean_c), "double")
  }
})