tests/testthat/test-movebank_get_vocabulary.R

In move2: Processing and Analysing Animal Trajectories

test_that("unknown error", {
  skip_if_offline()
  expect_length(movebank_get_vocabulary(c("study_id", "i_am_collaborator")), 2L)
  expect_true(grepl(
    pattern = "http://vocab.nerc.ac.uk/collection/MVB/current",
    movebank_get_vocabulary("location_long", return_type = "uri")[[1L]]
  ))
  expect_identical(
    movebank_get_vocabulary(c("study_id", "i_am_collaborator")),
    movebank_get_vocabulary(c("study_id", "i_am_collaborator"),
      xml = url("http://vocab.nerc.ac.uk/collection/MVB/current/",
        headers = c("Accept" = "application/rdf+xml")
      )
    )
  )
  m <- mt_read(mt_example())
  expect_named(
    movebank_get_vocabulary(m),
    unique(c(setdiff(names(m), "geometry"), names(mt_track_data(m))))
  )
  expect_gt(length(a <- movebank_get_vocabulary(return_type = "uri")), 200L)
  expect_true("gps hdop" %in% names(a))
  expect_true("sensor type" %in% names(a))
  expect_true("contact person" %in% names(a))
})
test_that("test if preferred term is used correctly", {
  skip_if_offline()
  expect_identical(
    movebank_get_vocabulary("animal id", return_type = "list")[[1L]]$prefLabel[[1L]],
    "animal ID"
  )
  expect_identical(
    movebank_get_vocabulary("individual local identifier",
      return_type = "list"
    )[[1L]]$prefLabel[[1L]],
    "animal ID"
  )
  expect_identical(
    movebank_get_vocabulary("animal id",
      return_type = "list", omit_deprecated = FALSE
    )[[1L]]$prefLabel[[1L]],
    "animal ID"
  )
  expect_identical(
    movebank_get_vocabulary("individual local identifier",
      omit_deprecated = FALSE, return_type = "list"
    )[[1L]]$prefLabel[[1L]],
    "individual local identifier"
  )
})