R/get_factor_fields.r

In jwutil: Tools for Data Manipulation and Testing

#' @title get names of the factor fields in a data frame
#' @description Get the names of those fields in a data frame which are factors.
#' @param x data frame
#' @param consider character vector of field names of the data frame to test,
#'   default is to use all of them.
#' @return vector
#' @export
get_factor_fields <- function(x, consider = names(x)) {
  if (length(names(x)) <= 0 || length(consider) <= 0) {
    return()
  }

  consider[vapply(x[1, consider], is.factor, logical(1))]
  # TODO if any duplicated
}

#' @describeIn get_factor_fields Get the fields which are not factors, instead.
#' @export
get_non_factor_fields <- function(x, consider = names(x)) {
  consider[consider %nin% getFactorNames(x, consider)]
}

#' @describeIn get_factor_fields Deprecated
#' @export
getFactorNames <- get_factor_fields

#' @describeIn get_factor_fields Deprecated
#' @export
getNonFactorNames <- get_non_factor_fields