Nothing
#' What Kind of Object is This?
#'
#' Returns a string describing what kind of object the input is.
#'
#' @param x Any R object
#'
#' @return A `character` description of the type of `x`
#'
#'
#' @keywords what
#' @family what
#'
#' @export
#'
#' @examples
#' what_is_it("abc")
#' what_is_it(1L)
#' what_is_it(1:10)
#' what_is_it(mtcars)
what_is_it <- function(x) {
lifecycle::deprecate_soft(
when = "1.1.0",
what = "admiraldev::what_is_it()",
details = "This function was primarily used in error messaging, and can be replaced
with 'cli' functionality: `cli::cli_abort('{.obj_type_friendly {letters}}')`."
)
if (is.null(x)) {
"`NULL`"
} else if (is.factor(x)) {
"a factor"
} else if (is.symbol(x)) {
"a symbol"
} else if (isS4(x)) {
sprintf("a S4 object of class '%s'", class(x)[1L])
} else if (is.atomic(x) && length(x) == 1L) {
if (is.character(x)) {
paste0("`\"", x, "\"`")
} else {
paste0("`", x, "`")
}
} else if (is.atomic(x) || class(x)[1L] == "list") {
friendly_type_of(x)
} else if (is.data.frame(x)) {
"a data frame"
} else {
sprintf("an object of class '%s'", class(x)[1L])
}
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.