library(RKorAPClient)
df <- new("KorAPConnection") %>%
  frequencyQuery( query = c("Shop", "Boutique"),
                  vc = sprintf("textType = /Zeit.*/ & pubDate in %d", c(2000:2021))) %>% ipm()