micro-files.R
In pxmake: Make PX-Files in R

## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

## ----include = FALSE----------------------------------------------------------
set.seed(0)
micro_dir <- file.path("micro_files")
unlink(micro_dir, recursive = TRUE)

## -----------------------------------------------------------------------------
library(pxmake)

greenlanders |> dplyr::sample_n(10) |> dplyr::arrange_all()

## -----------------------------------------------------------------------------
# Create px object
x <- px(greenlanders)

# Create folder for micro files
micro_dir <- file.path("micro_files")
dir.create(micro_dir)

# Write micro files to folder
px_micro(x, out_dir = micro_dir)

## -----------------------------------------------------------------------------
list.files(micro_dir)

## -----------------------------------------------------------------------------
# Print HEADING variables
px_heading(x)

# Print non-HEADING variables
c(px_stub(x), px_figures(x))

## -----------------------------------------------------------------------------
x2 <-
  x |>
  px_stub('age') |>    # Change age to STUB
  px_heading('cohort') # Change cohort to HEADING

## -----------------------------------------------------------------------------
# Clear folder
unlink(file.path(micro_dir, "*.px"))

px_micro(x2, out_dir = micro_dir)

## -----------------------------------------------------------------------------
list.files(micro_dir)

## -----------------------------------------------------------------------------
px(file.path(micro_dir, 'age.px'))$data

px(file.path(micro_dir, 'gender.px'))$data

px(file.path(micro_dir, 'municipality.px'))$data

## ----eval = FALSE-------------------------------------------------------------
# # Change CONTACT in all micro files
# x2 |>
#   px_contact("Johan Ejstrud") |>
#   px_micro(out_dir = micro_dir)

## -----------------------------------------------------------------------------
individual_keywords <- tibble::tribble(~variable     ,      ~px_description,
                                       "age"         ,    "Age count 18-99",
                                       "gender"      ,       "Gender count",
                                       "municipality",  "Municipality 2024"
                                       )

## -----------------------------------------------------------------------------
px_micro(x2, out_dir = micro_dir, keyword_values = individual_keywords)

## -----------------------------------------------------------------------------
px(file.path(micro_dir, 'age.px')) %>% px_description()
px(file.path(micro_dir, 'gender.px')) %>% px_description()
px(file.path(micro_dir, 'municipality.px')) %>% px_description()

## -----------------------------------------------------------------------------
x3 <-
  x2 |>
  px_language("en") |>
  px_languages(c("en", "kl"))


individual_keywords_ml <- 
  tibble::tribble(
       ~variable, ~language,     ~px_description, ~px_matrix,
           "age",      "en",   "Age count 18-99",      "AGE",
           "age",      "kl",       "Ukiut 18-99",         NA,
        "gender",      "en",      "Gender count",      "GEN",
        "gender",      "kl",      " Suiaassuseq",         NA,
  "municipality",      "en", "Municipality 2024",      "MUN",
  "municipality",      "kl",      "Kommuni 2024",         NA
  )

px_micro(x3, out_dir = micro_dir, keyword_values = individual_keywords_ml)

## -----------------------------------------------------------------------------
individual_keywords2 <- 
  individual_keywords |>
  dplyr::mutate(filename = paste0(variable, "_2024", ".px"))

# Clear folder
unlink(file.path(micro_dir, "*.px"))

px_micro(x2, out_dir = micro_dir, keyword_values = individual_keywords2)

list.files(micro_dir)