Code
wharton_land_regulation %>%
{if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}Data - Elasticity
wharton_land_regulation %>%
{if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}wharton_land_regulation_long %>%
{if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}