~/data/zillow/

RegionID

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

date

City_PriceToRentRatio_AllHomes %>%
  group_by(date) %>%
  summarise(Nobs = n()) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}