library(berdata)
get_data(time_series_code = c("P6141_2-sales6143"),
output_format = "names") %>%
::drop_na() tidyr
# A tibble: 229 × 2
date type of dealer-wholesale trade in construction and building mate…¹
<date> <dbl>
1 2004-09-01 3859
2 2004-10-01 4422
3 2004-11-01 4246
4 2004-12-01 3332
5 2005-01-01 3053
6 2005-02-01 3365
7 2005-03-01 3451
8 2005-04-01 3705
9 2005-05-01 3876
10 2005-06-01 3757
# ℹ 219 more rows
# ℹ abbreviated name:
# ¹`type of dealer-wholesale trade in construction and building materials`