nrow(test_custom) (`actual`) not equal to 1 (`expected`).

  `actual`: 0
`expected`: 1

test_manual <- transect_glance(test_transect) # manual download
if (nrow(suppressMessages(download_transect(4492))) != 0) {
transect_glance()  # includes omernik classification

nrow(test_omernik) (`actual`) not equal to 1 (`expected`).

  `actual`: 0
`expected`: 1

ncol(test) (`actual`) not equal to 6 (`expected`).

`actual` is NULL
`expected` is a double vector (6)

test <- transect_phys(test_transect) # manual download
test_raw <- download_transect(4492) # normal database
test_raw <- download_transect(7025) # custom database
test_raw <- download_transect(6444) # includes omernik

<subscriptOutOfBoundsError/error/condition>
Error in `test[[2]]`: subscript out of bounds