# Set CELLNOTE for a value
library(tibble)
x1 <-
population_gl |>
px() |>
px_cellnote(
tribble(~gender, ~age, ~year, ~cellnote,
'male', '0-6', '2004', 'Approximation'))
x2 <-
x1 |>
px_cellnote(
tribble(~gender, ~age, ~year, ~cellnote,
'female', '*', '2014', 'Uncertainty in ages'))
# Print CELLNOTE
px_cellnote(x2)
# Set CELLNOTE in multiple languagese
x3 <-
x1 |>
px_languages(c('en', 'kl')) |>
px_cellnote(
tribble(~age, ~year, ~language, ~cellnote,
'*', '2003', 'en', 'Some of the figures are from 2003',
'*', '2003', 'kl', 'Kisitsisit ilaat 2003-imeersuupput'))
px_cellnote(x3)
# Remove CELLNOTE
x4 <- px_cellnote(x3, NULL)
px_cellnote(x4)
Run the code above in your browser using DataLab