library(pxmake)
library(tidyverse)
x_before <-
population_gl %>%
px() %>%
px_languages(c("en", "da", "kl"))
x_after <- px_language(x_before, "en")
# All languages are still defined
px_languages(x_after)
# But 'da' and 'kl has been removed table2, variables2, and cells2
x_before %>% purrr::pluck("table2")
x_after %>% purrr::pluck("table2")