Code
coicop %>%
{if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}Data - Eurostat
coicop %>%
{if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}coicop %>%
filter(nchar(coicop) == 4,
grepl("CP", coicop)) %>%
{if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}coicop %>%
filter(nchar(coicop) == 5,
grepl("CP", coicop)) %>%
{if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}coicop %>%
filter(nchar(coicop) == 6,
grepl("CP", coicop)) %>%
{if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}coicop %>%
filter(nchar(coicop) == 7,
grepl("CP", coicop)) %>%
{if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}coicop %>%
filter(nchar(coicop) == 8,
grepl("CP", coicop)) %>%
{if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}coicop %>%
filter(nchar(coicop) == 9,
grepl("CP", coicop)) %>%
{if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}coicop %>%
filter(nchar(coicop) == 10,
grepl("CP", coicop)) %>%
{if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}