tests/testthat/fixtures/tt_submission_extra/cleaning.R

In tidytuesdayR: Access the Weekly 'TidyTuesday' Project Dataset

library(tidyverse)
library(janitor)

states <- state.x77 |>
  tibble::as_tibble(rownames = "state") |>
  janitor::clean_names() |>
  dplyr::mutate(
    dplyr::across(
      c("population", "income", "frost", "area"),
      as.integer
    )
  )