%>%
City_PriceToRentRatio_AllHomes group_by(RegionID, RegionName, State, Metro, CountyName, SizeRank) %>%
summarise(Nobs = n()) %>%
arrange(SizeRank) %>%
if (is_html_output()) datatable(., filter = 'top', rownames = F) else .} {
%>%
City_PriceToRentRatio_AllHomes group_by(date) %>%
summarise(Nobs = n()) %>%
if (is_html_output()) datatable(., filter = 'top', rownames = F) else .} {