R/predraft.R

In kiernann/fflr: Retrieve ESPN Fantasy Football Data

is_predraft <- function(dat) {
  if ("draftDetail" %in% names(dat)) {
    if (!dat$draftDetail$drafted) {
      message("League has not yet drafted this season")
      return(TRUE)
    }
  }
  return(FALSE)
}

skip_predraft <- function(dat) {
  if (is_installed("testthat") & "draftDetail" %in% names(dat)) {
    if (!dat$draftDetail$drafted) {
      testthat::skip(message = "League has not drafted")
    }
  }
}

skip_empty <- function(dat) {
  if (is_installed("testthat") & is.data.frame(dat)) {
    if (nrow(dat) == 0) {
      testthat::skip(message = "Function returned no data, likely predraft")
    }
  }
}