38 lines
1.3 KiB
R
38 lines
1.3 KiB
R
|
## ----include = FALSE----------------------------------------------------------
|
||
|
knitr::opts_chunk$set(
|
||
|
collapse = TRUE,
|
||
|
comment = "#>"
|
||
|
)
|
||
|
options("lifecycle:::calling_package" = "tibble")
|
||
|
|
||
|
## -----------------------------------------------------------------------------
|
||
|
data_frame <- function(...) {
|
||
|
lifecycle::deprecate_warn("1.1.0", "data_frame()", "tibble()")
|
||
|
tibble::tibble(...)
|
||
|
}
|
||
|
|
||
|
## -----------------------------------------------------------------------------
|
||
|
df1 <- data_frame(x = 1, y = 2)
|
||
|
#> This warning is displayed once every 8 hours.
|
||
|
#> Call `lifecycle::last_lifecycle_warnings()` to see where this warning was generated.
|
||
|
df2 <- data_frame(a = "apple", b = "banana")
|
||
|
|
||
|
## ----eval = FALSE-------------------------------------------------------------
|
||
|
# lifecycle::last_lifecycle_warnings()
|
||
|
# #> [[1]]
|
||
|
# #> <deprecated>
|
||
|
# #> message: `data_frame()` was deprecated in tibble 1.1.0.
|
||
|
# #> Please use `tibble()` instead.
|
||
|
# #> Backtrace:
|
||
|
# #> 1. global::data_frame(x = 1)
|
||
|
|
||
|
## -----------------------------------------------------------------------------
|
||
|
options(lifecycle_verbosity = "warning")
|
||
|
df1 <- data_frame(x = 1, y = 2)
|
||
|
df2 <- data_frame(a = "apple", b = "banana")
|
||
|
|
||
|
## ----error = TRUE-------------------------------------------------------------
|
||
|
options("lifecycle_verbosity" = "error")
|
||
|
df1 <- data_frame(x = 1, y = 2)
|
||
|
|