Nothing
## -----------------------------------------------------------------------------
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>"
)
## -----------------------------------------------------------------------------
library(broom)
library(dplyr)
library(stringr)
method_df <- function(method_name) {
m <- as.vector(methods(method_name))
tibble::tibble(
class = str_remove(m, str_c(method_name, "[.]")),
!!method_name := "x"
)
}
method_df("tidy") |>
left_join(method_df("glance")) |>
left_join(method_df("augment")) |>
mutate_all(tidyr::replace_na, "") |>
knitr::kable()
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.