Code
canton2016 %>%
select(1, 2, 3, 10) %>%
{if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}Data - INSEE
canton2016 %>%
select(1, 2, 3, 10) %>%
{if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}