# NOT RUN {
pl_search()
pl_search_loc()
pl_search_names()
pl_search_places()
pl_search_loc("SELECT * FROM locations limit 5")
pl_search_names("SELECT * FROM names limit 5")
pl_search_places("SELECT * FROM places limit 5")
library(dplyr)
locs <- pl_search("SELECT * FROM locations limit 1000") %>%
select(pid, reprLat, reprLong)
nms <- pl_search("SELECT * FROM names limit 1000") %>% select(pid)
left_join(locs, nms, "pid", copy = TRUE) %>% collect %>% NROW
# }
Run the code above in your browser using DataLab