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 .} {