fix mistake in documented default value of keep_original_cols

[EmilHvitfeldt]

to close #1276 and close #1267

library(tidyverse)
library(recipes)

steps <- ls(getNamespace("recipes")) |>
  stringr::str_subset("^step_") |>
  stringr::str_subset("_new$", negate = TRUE)


get_arg <- function(x) {
  res <- getFromNamespace(x, getNamespace("recipes"))
  res <- formals(res)
  res$keep_original_cols
}

get_doc <- function(x) {
  readLines(paste0("man/", x, ".Rd")) |>
    paste(collapse = " ") |>
    str_extract("\\item\\{keep_original_cols\\}\\{.*?\\item") |>
    str_remove("\\item\\{keep_original_cols\\}\\{") |>
    str_remove("\\} *\\\\item") |>
    str_remove(".*\\{") |>
    str_remove("\\}.*") |>
    as.logical()
}

tibble(
  name = steps
) |>
  mutate(default = purrr::map(steps, get_arg)) |>
  filter(lengths(default) > 0) |>
  mutate(default = unlist(default)) |>
  mutate(doc = map_lgl(name, get_doc)) |>
  filter(default != doc)

#> # A tibble: 10 × 3
#> name                      default doc  
#> <chr>                     <lgl>   <lgl>
#> 1 step_classdist          TRUE    FALSE
#> 2 step_classdist_shrunken TRUE    FALSE
#> 3 step_count              TRUE    FALSE
#> 4 step_depth              TRUE    FALSE
#> 5 step_geodist            TRUE    FALSE
#> 6 step_indicate_na        TRUE    FALSE
#> 7 step_interact           TRUE    FALSE
#> 8 step_lag                TRUE    FALSE
#> 9 step_regex              TRUE    FALSE
#> 10 step_window            TRUE    FALSE

[github-actions]

This pull request has been automatically locked. If you believe you have found a related problem, please file a new issue (with a reprex https://reprex.tidyverse.org) and link to this issue.