R/utils.R

In INyabuto/dhis2r: An R Client for DHIS2 Web API

#' API version
#'
#' Sets an API version. Last three versions of DHIS2 are supported.
#'
#' @param version An integer. The API version.
#' @return Integer
#' @keywords internal
api_version <- function(version = 29) {
  if (as.integer(version) %in% 30:28) {
    version
  } else {
    stop("unsupported API version", call. = F)
  }
}




#' #' %>%
#' #'
#' #' @rdname pipe
#' #' @keywords internal
#' #' @export
#' #' @importFrom magrittr %>%
#' #' @usage lhs \%>\% rhs
#' NULL


# # empty list
# is.empty <- function(...){
#   args <- list(...)
#   identical(length(args), 0L)
# }
#
# # named list
# has_names <- function(...){
#   args <- list(...)
#   names <- names(args)
#   !is.null(names)
# }

#' Parse arguments separated by commas
#'
#' @param ... Arguments to be separated by commas.
#' @return A comma separated string.
#' @keywords internal
#' @noRd
commas <- function(...) paste0(..., collapse = ",")


# list2 <- function(...) eval(substitute(alist(...)))

is_named <- function(args) {
  if (!is.list(args)) {
    stop("`args` must of type of `list`")
  }

  arg_names <- names(args)

  if (is.null(arg_names)) {
    rep(FALSE, length(args))
  } else {
    nzchar(arg_names)
  }
}