data-raw/erikmisc_DATA.R

In erikerhardt/erikmisc: Erik Erhardt's miscellaneous functions for solving complex data analysis workflows

library(tidyverse)

# ----------------------------------------
## Examples: dat_mtcars_e

dat_mtcars_e <-
  datasets::mtcars |>
  tibble::as_tibble(
    rownames = "model"
  ) |>
  dplyr::mutate(
    cyl = cyl |> factor(levels = c(4, 6, 8), labels = c("four", "six", "eight"))
  , vs  = vs  |> factor(levels = c(0, 1), labels = c("V-shaped", "straight"))
  , am  = am  |> factor(levels = c(0, 1), labels = c("automatic", "manual"))
  )

# Label columns
dat_labels <-
  tibble::tribble(
    ~var    , ~label
  , "model" , "Model"
  , "mpg"   , "Miles/(US) gallon"
  , "cyl"   , "Number of cylinders"
  , "disp"  , "Displacement (cu.in.)"
  , "hp"    , "Gross horsepower"
  , "drat"  , "Rear axle ratio"
  , "wt"    , "Weight (1000 lbs)"
  , "qsec"  , "1/4 mile time"
  , "vs"    , "Engine"                     # (0 = V-shaped, 1 = straight)"
  , "am"    , "Transmission"               # (0 = automatic, 1 = manual)"
  , "gear"  , "Number of forward gears"
  , "carb"  , "Number of carburetors"
  )

for (i_row in 1:nrow(dat_labels)) {
  labelled::var_label(dat_mtcars_e[[dat_labels[["var"]][i_row] ]]) <- dat_labels[["label"]][i_row]
}

str(dat_mtcars_e)

usethis::use_data(
    dat_mtcars_e
  , overwrite = TRUE
  )

# save(
#     dat_mtcars_e
#   , file = "data/dat_mtcars_e.RData"
#   )



# ----------------------------------------
## Examples: dat_ergoStool_e

dat_ergoStool_e <-
  nlme::ergoStool |>
  tibble::as_tibble() |>
  dplyr::rename(
    Effort = effort
  )
attr(dat_ergoStool_e, "formula"     ) <- NULL
attr(dat_ergoStool_e, "labels"      ) <- NULL
attr(dat_ergoStool_e, "units"       ) <- NULL
attr(dat_ergoStool_e, "FUN"         ) <- NULL
attr(dat_ergoStool_e, "order.groups") <- NULL

# Label columns
dat_labels <-
  tibble::tribble(
    ~var    , ~label
  , "Effort"  , "Effort (Borg scale) required to arise from a stool"
  , "Type"    , "Stool type"
  , "Subject" , "Unique identifier for the subject"
  )

for (i_row in 1:nrow(dat_labels)) {
  labelled::var_label(dat_ergoStool_e[[dat_labels[["var"]][i_row] ]]) <- dat_labels[["label"]][i_row]
}

str(dat_ergoStool_e)

usethis::use_data(
    dat_ergoStool_e
  , overwrite = TRUE
  )



# ----------------------------------------
## Unicode: dat_unicode_tables_sel_byhand_e

# read unicode ascii table
dat_unicode_tables_sel_byhand_e <-
  readr::read_csv(
  , file = "D:/Dropbox/StatAcumen/consult/Rpackages/erikmisc/data-raw/unicode/unicode_tables_sel_byhand.csv"
  )
# remove attributes after readr::read_csv()
attr(dat_unicode_tables_sel_byhand_e, "spec"    ) <- NULL
attr(dat_unicode_tables_sel_byhand_e, "problems") <- NULL
# save to package
usethis::use_data(
  dat_unicode_tables_sel_byhand_e
, overwrite = TRUE
)