R/as-data-frame.R

In hrbrmstr/hdrs: Have Some Fun with 'HTTP' Headers

#' Turn `httr::headers()`` objects into a data frame
#'
#' @param x an object returned from a call to [httr::headers()]. This is
#'        a `list` classed as `insensitive` which is pretty generic but
#'        this method has a pretty thin use case and shouldn't cause issues.
#' @param row.names	`NULL` or a character vector giving the row names for the
#'        data frame. Missing values are not allowed.
#' @param optional ignored
#' @param tbl if `TRUE` (the default) will class the output as a tibble
#' @param ... ignored
#' @param stringsAsFactors _always_ `FALSE` (unless you say otherwise)
#' @export
as.data.frame.insensitive <- function(x, row.names = NULL, optional = FALSE, tbl=TRUE, ..., stringsAsFactors = FALSE) {

  data.frame(
    name = names(x),
    value = unlist(x, use.names = FALSE),
    row.names = row.names,
    check.names = FALSE,
    stringsAsFactors = stringsAsFactors
  ) -> out

  if (tbl) class(out) <- c("tbl_df", "tbl", "data.frame")

  out

}