R/func_check_data.r

In pratikunterwegs/watlastools: Tools for High Resolution Tracking Data from WATLAS

#' Check data has required columns.
#'
#' @param data The tracking data to check for required columns.
#' @param names_expected The names expected.
#'
#' @return Nothing. Breaks a pipeline if the asserts fail.
wat_check_data <- function(data,
                           names_expected = c("x", "y", "time")) {

  # get the colmumn names
  data_names <- colnames(data)

  purrr::walk(names_expected, function(nr) {
    assertthat::assert_that(nr %in% data_names,
      msg = glue::glue("wat_check_data: {nr} is
                         required but missing from data!")
    )
  })

  # check there is data
  assertthat::assert_that(nrow(data) > 0,
    msg = "wat_check_data: cols present
                                 but dataframe is empty"
  )
}