Inspect or change SOURCE.
Examples
# Set SOURCE for all languages
x1 <-
px(population_gl) |>
px_source('Statistics Greenland')
# Print SOURCE
px_source(x1)
#> [1] "Statistics Greenland"
# Set SOURCE for individual languages
library(tibble)
x2 <-
x1 |>
px_languages(c('en', 'kl')) |>
px_source(tribble(~language, ~value,
'en', 'Statistics Greenland',
'kl', 'Naatsorsueqqissaartarfik'))
px_source(x2)
#> # A tibble: 2 × 2
#> language value
#> <chr> <chr>
#> 1 en Statistics Greenland
#> 2 kl Naatsorsueqqissaartarfik
# Remove SOURCE
x3 <- px_source(x2, NULL)
px_source(x3)
#> NULL