Skip to content

Instantly share code, notes, and snippets.

@giacecco

giacecco/3.R

Created July 22, 2015 09:02
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save giacecco/ef77d4f2769577166d1c to your computer and use it in GitHub Desktop.
Save giacecco/ef77d4f2769577166d1c to your computer and use it in GitHub Desktop.
Download ZIP
Raw
3.R
# sanity check vs the entries in Land Registry's Price Paid
lr_pp <- tbl(src_postgres("olaf"), sql("SELECT DISTINCT town, pcd FROM lr_pp"))
target_town_lr_postcodes <- collect(lr_pp %>% filter(town == target_town))$pcd
# display how many we got
length(target_town_lr_postcodes)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment