Skip to content

Commit fccd7c6

Browse files
joelgombinjoelgombin
committed
pre CRAN submission
1 parent 9ba6ae9 commit fccd7c6

File tree

2 files changed

+802
-0
lines changed

2 files changed

+802
-0
lines changed

‎vignettes/geocode.R‎

Lines changed: 204 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,204 @@
1+
## ----setup--------------------------------------------------------------------
2+
library("tibble")
3+
library("dplyr")
4+
library("banR")
5+
6+
table_test <- tibble::tibble(
7+
adress = c("39 quai André Citroën", "64 Allée de Bercy", "20 avenue de Ségur"),
8+
postal_code = c("75015", "75012", "75007"),
9+
z = rnorm(3)
10+
)
11+
12+
## ----geocode, eval=FALSE------------------------------------------------------
13+
# geocode(query = "39 quai André Citroën, Paris") %>%
14+
# glimpse()
15+
16+
## ----geocode-output, echo=FALSE, comment=""-----------------------------------
17+
cat("Rows: 1
18+
Columns: 19
19+
$ label <chr> \"39 Quai André Citroën 75015 Paris\"
20+
$ score <dbl> 0.9801645
21+
$ housenumber <chr> \"39\"
22+
$ id <chr> \"75115_0318_00039\"
23+
$ name <chr> \"39 Quai André Citroën\"
24+
$ postcode <chr> \"75015\"
25+
$ citycode <chr> \"75115\"
26+
$ x <dbl> 647082.8
27+
$ y <dbl> 6861010
28+
$ city <chr> \"Paris\"
29+
$ district <chr> \"Paris 15e Arrondissement\"
30+
$ context <chr> \"75, Paris, Île-de-France\"
31+
$ type <chr> \"housenumber\"
32+
$ importance <dbl> 0.78181
33+
$ street <chr> \"Quai André Citroën\"
34+
$ `_type` <chr> \"address\"
35+
$ type_geo <chr> \"Point\"
36+
$ longitude <dbl> 2.278922
37+
$ latitude <dbl> 48.84696")
38+
39+
## ----geocode-tbl, eval=FALSE--------------------------------------------------
40+
# geocode_tbl(tbl = table_test, adresse = adress) %>%
41+
# glimpse()
42+
43+
## ----geocode-tbl-output, echo=FALSE, comment=""-------------------------------
44+
cat("Rows: 3
45+
Columns: 21
46+
$ postal_code <chr> \"75015\", \"75012\", \"75007\"
47+
$ z <dbl> -1.316912, 2.787876, 1.313769
48+
$ adress <chr> \"39 quai André Citroën\", \"64 Allée de Bercy\", \"20 a…
49+
$ longitude <dbl> 2.278922, 2.376011, 2.308628
50+
$ latitude <dbl> 48.84696, 48.84254, 48.85070
51+
$ result_score <dbl> 0.9801645, 0.9729327, 0.9716455
52+
$ result_score_next <chr> \"0.8013699999999999\", NA, \"0.9532445454545454\"
53+
$ result_label <chr> \"39 Quai André Citroën 75015 Paris\", \"64 Allée de B…
54+
$ result_type <chr> \"housenumber\", \"housenumber\", \"housenumber\"
55+
$ result_id <chr> \"75115_0318_00039\", \"75112_0874_00064\", \"75107_8909…
56+
$ result_housenumber <chr> \"39\", \"64\", \"20\"
57+
$ result_name <chr> \"39 Quai André Citroën\", \"64 Allée de Bercy\", \"20 A…
58+
$ result_street <chr> \"Quai André Citroën\", \"Allée de Bercy\", \"Avenue de …
59+
$ result_postcode <chr> \"75015\", \"75012\", \"75007\"
60+
$ result_city <chr> \"Paris\", \"Paris\", \"Paris\"
61+
$ result_context <chr> \"75, Paris, Île-de-France\", \"75, Paris, Île-de-Fran…
62+
$ result_citycode <chr> \"75115\", \"75112\", \"75107\"
63+
$ result_oldcitycode <chr> NA, NA, NA
64+
$ result_oldcity <chr> NA, NA, NA
65+
$ result_district <chr> \"Paris 15e Arrondissement\", \"Paris 12e Arrondisseme…
66+
$ result_status <chr> \"ok\", \"ok\", \"ok\"")
67+
68+
## ----geocode-tbl-postalcode, eval=FALSE---------------------------------------
69+
# geocode_tbl(tbl = table_test, adresse = adress, code_postal = postal_code) %>%
70+
# glimpse()
71+
72+
## ----geocode-tbl-postalcode-output, echo=FALSE, comment=""--------------------
73+
cat("Rows: 3
74+
Columns: 21
75+
$ z <dbl> -0.1769586, 1.2007049, -0.3180847
76+
$ adress <chr> \"39 quai André Citroën\", \"64 Allée de Bercy\", \"20 a…
77+
$ postal_code <chr> \"75015\", \"75012\", \"75007\"
78+
$ longitude <dbl> 2.278922, 2.376011, 2.308628
79+
$ latitude <dbl> 48.84696, 48.84254, 48.85070
80+
$ result_score <dbl> 0.9801645, 0.9729327, 0.9716455
81+
$ result_score_next <chr> NA, \"0.600363971291866\", \"0.38506487603305783\"
82+
$ result_label <chr> \"39 Quai André Citroën 75015 Paris\", \"64 Allée de B…
83+
$ result_type <chr> \"housenumber\", \"housenumber\", \"housenumber\"
84+
$ result_id <chr> \"75115_0318_00039\", \"75112_0874_00064\", \"75107_8909…
85+
$ result_housenumber <chr> \"39\", \"64\", \"20\"
86+
$ result_name <chr> \"39 Quai André Citroën\", \"64 Allée de Bercy\", \"20 A…
87+
$ result_street <chr> \"Quai André Citroën\", \"Allée de Bercy\", \"Avenue de …
88+
$ result_postcode <chr> \"75015\", \"75012\", \"75007\"
89+
$ result_city <chr> \"Paris\", \"Paris\", \"Paris\"
90+
$ result_context <chr> \"75, Paris, Île-de-France\", \"75, Paris, Île-de-Fran…
91+
$ result_citycode <chr> \"75115\", \"75112\", \"75107\"
92+
$ result_oldcitycode <chr> NA, NA, NA
93+
$ result_oldcity <chr> NA, NA, NA
94+
$ result_district <chr> \"Paris 15e Arrondissement\", \"Paris 12e Arrondisseme…
95+
$ result_status <chr> \"ok\", \"ok\", \"ok\"")
96+
97+
## ----geocode-tbl-codeinsee, eval=FALSE----------------------------------------
98+
# data("paris2012")
99+
# paris2012 %>%
100+
# slice(1:100) %>%
101+
# mutate(
102+
# adresse = paste(numero, voie, nom),
103+
# code_insee = paste0("751", arrondissement)
104+
# ) %>%
105+
# geocode_tbl(adresse = adresse, code_insee = code_insee) %>%
106+
# glimpse()
107+
108+
## ----geocode-tbl-codeinsee-output, echo=FALSE, comment=""---------------------
109+
cat("Rows: 100
110+
Columns: 27
111+
$ arrondissement <chr> \"06\", \"06\", \"06\", \"06\", \"06\", \"06\", \"06\", \"06\", \"06…
112+
$ bureau <chr> \"09\", \"09\", \"09\", \"09\", \"09\", \"09\", \"09\", \"09\", \"09…
113+
$ numero <int> 4, 5, 6, 7, 8, 11, 12, 13, 14, 16, 3, 4, 5, 6, 7, 8…
114+
$ voie <chr> \"RUE DE L\", \"RUE DE L\", \"RUE DE L\", \"RUE DE L\", \"RU…
115+
$ nom <chr> \"ABBAYE\", \"ABBAYE\", \"ABBAYE\", \"ABBAYE\", \"ABBAYE\", \"…
116+
$ nb <int> 1, 1, 20, 2, 17, 2, 9, 15, 17, 8, 13, 6, 6, 3, 9, 1…
117+
$ ID <chr> \"0609\", \"0609\", \"0609\", \"0609\", \"0609\", \"0609\", \"06…
118+
$ adresse <chr> \"4 RUE DE L ABBAYE\", \"5 RUE DE L ABBAYE\", \"6 RUE DE…
119+
$ code_insee <chr> \"75106\", \"75106\", \"75106\", \"75106\", \"75106\", \"75106…
120+
$ longitude <dbl> 2.335715, 2.335172, 2.335352, 2.335041, 2.334903, 2…
121+
$ latitude <dbl> 48.85405, 48.85407, 48.85414, 48.85410, 48.85425, 4…
122+
$ result_score <dbl> 0.9663627, 0.9663627, 0.9663627, 0.9663627, 0.96636…
123+
$ result_score_next <chr> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,…
124+
$ result_label <chr> \"4 Rue de l'Abbaye 75006 Paris\", \"5 Rue de l'Abbaye…
125+
$ result_type <chr> \"housenumber\", \"housenumber\", \"housenumber\", \"house…
126+
$ result_id <chr> \"75106_0002_00004\", \"75106_0002_00005\", \"75106_0002…
127+
$ result_housenumber <chr> \"4\", \"5\", \"6\", \"7\", \"8\", \"11\", \"12\", \"13\", \"14\", \"1…
128+
$ result_name <chr> \"4 Rue de l'Abbaye\", \"5 Rue de l'Abbaye\", \"6 Rue de…
129+
$ result_street <chr> \"Rue de l'Abbaye\", \"Rue de l'Abbaye\", \"Rue de l'Abb…
130+
$ result_postcode <chr> \"75006\", \"75006\", \"75006\", \"75006\", \"75006\", \"75006…
131+
$ result_city <chr> \"Paris\", \"Paris\", \"Paris\", \"Paris\", \"Paris\", \"Paris…
132+
$ result_context <chr> \"75, Paris, Île-de-France\", \"75, Paris, Île-de-Fran…
133+
$ result_citycode <chr> \"75106\", \"75106\", \"75106\", \"75106\", \"75106\", \"75106…
134+
$ result_oldcitycode <chr> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,…
135+
$ result_oldcity <chr> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,…
136+
$ result_district <chr> \"Paris 6e Arrondissement\", \"Paris 6e Arrondissement…
137+
$ result_status <chr> \"ok\", \"ok\", \"ok\", \"ok\", \"ok\", \"ok\", \"ok\", \"ok\", \"ok…")
138+
139+
## ----reverse-geocode, eval=FALSE----------------------------------------------
140+
# reverse_geocode(long = 2.279092, lat = 48.84683) %>%
141+
# glimpse()
142+
143+
## ----reverse-geocode-output, echo=FALSE, comment=""---------------------------
144+
cat("Rows: 10
145+
Columns: 23
146+
$ type <chr> \"housenumber\", \"housenumber\", \"housenumber\", \"housenumber\"…
147+
$ name <chr> \"39a Quai André Citroën\", \"39 Quai André Citroën\", \"43a Qu…
148+
$ label <chr> \"39a Quai André Citroën 75015 Paris\", \"39 Quai André Citro…
149+
$ street <chr> \"Quai André Citroën\", \"Quai André Citroën\", \"Quai André Ci…
150+
$ postcode <chr> \"75015\", \"75015\", \"75015\", \"75015\", \"75015\", \"75015\", \"750…
151+
$ citycode <chr> \"75115\", \"75115\", \"75115\", \"75115\", \"75115\", \"75115\", \"751…
152+
$ city <chr> \"Paris\", \"Paris\", \"Paris\", \"Paris\", \"Paris\", \"Paris\", \"Par…
153+
$ oldcitycode <lgl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA
154+
$ oldcity <lgl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA
155+
$ district <chr> \"Paris 15e Arrondissement\", \"Paris 15e Arrondissement\", \"P…
156+
$ context <chr> \"75, Paris, Île-de-France\", \"75, Paris, Île-de-France\", \"7…
157+
$ importance <dbl> 0.78181, 0.78181, 0.78181, 0.78181, 0.82311, 0.78181, 0.82…
158+
$ housenumber <chr> \"39a\", \"39\", \"43a\", \"41\", \"8a\", \"37\", \"8\", \"10\", \"43\", \"12\"
159+
$ id <chr> \"75115_0318_00039_a\", \"75115_0318_00039\", \"75115_0318_0004…
160+
$ banId <lgl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA
161+
$ x <dbl> 647094.3, 647082.8, 647087.1, 647071.8, 647110.9, 647095.8…
162+
$ y <dbl> 6860995, 6861010, 6860976, 6860999, 6861016, 6861024, 6861…
163+
$ distance <int> 1, 19, 21, 24, 26, 29, 30, 32, 36, 40
164+
$ score <dbl> 0.9999, 0.9981, 0.9979, 0.9976, 0.9974, 0.9971, 0.9970, 0.…
165+
$ `_type` <chr> \"address\", \"address\", \"address\", \"address\", \"address\", \"ad…
166+
$ type_geo <chr> \"Point\", \"Point\", \"Point\", \"Point\", \"Point\", \"Point\", \"Poi…
167+
$ longitude <dbl> 2.279081, 2.278922, 2.278985, 2.278774, 2.279305, 2.279098…
168+
$ latitude <dbl> 48.84683, 48.84696, 48.84665, 48.84686, 48.84701, 48.84709…")
169+
170+
## ----reverse-geocode-tbl, eval=FALSE------------------------------------------
171+
# test_df <- tibble::tibble(
172+
# nom = sample(letters, size = 10, replace = FALSE),
173+
# lon = runif(10, 2.19, 2.47),
174+
# lat = runif(10, 48.8, 48.9)
175+
# )
176+
#
177+
# test_df %>%
178+
# reverse_geocode_tbl(lon, lat) %>%
179+
# glimpse()
180+
181+
## ----reverse-geocode-tbl-output, echo=FALSE, comment=""-----------------------
182+
cat("Rows: 10
183+
Columns: 20
184+
$ nom <chr> \"p\", \"n\", \"i\", \"j\", \"f\", \"c\", \"o\", \"u\", \"q\", \"a\"
185+
$ longitude <dbl> 2.209505, 2.245517, 2.286644, 2.382297, 2.193622, 2…
186+
$ latitude <dbl> 48.82198, 48.89566, 48.85378, 48.83758, 48.88390, 4…
187+
$ result_longitude <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA
188+
$ result_latitude <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA
189+
$ result_distance <int> 14, 10, 46, 4, 35, NA, 4, 8, 45, 3
190+
$ result_label <chr> \"Rue Léon Cladel 92310 Sèvres\", \"71 Rue Segoffin 92…
191+
$ result_type <chr> \"street\", \"housenumber\", \"housenumber\", \"housenumbe…
192+
$ result_id <chr> \"92072_1130\", \"92026_8535_00071\", \"75115_4313_00016…
193+
$ result_housenumber <chr> NA, \"71\", \"16a\", \"55\", \"69\", NA, \"203\", \"52\", \"39\",…
194+
$ result_name <chr> \"Rue Léon Cladel\", \"71 Rue Segoffin\", \"16a Quai de …
195+
$ result_street <chr> NA, \"Rue Segoffin\", \"Quai de Grenelle\", \"Rue de Ber…
196+
$ result_postcode <chr> \"92310\", \"92400\", \"75015\", \"75012\", \"92000\", NA, \"7…
197+
$ result_city <chr> \"Sèvres\", \"Courbevoie\", \"Paris\", \"Paris\", \"Nanterre…
198+
$ result_context <chr> \"92, Hauts-de-Seine, Île-de-France\", \"92, Hauts-de-…
199+
$ result_citycode <chr> \"92072\", \"92026\", \"75115\", \"75112\", \"92050\", NA, \"7…
200+
$ result_oldcitycode <lgl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA
201+
$ result_oldcity <lgl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA
202+
$ result_district <chr> NA, NA, \"Paris 15e Arrondissement\", \"Paris 12e Arro…
203+
$ result_status <chr> \"ok\", \"ok\", \"ok\", \"ok\", \"ok\", \"not-found\", \"ok\", \"o…")
204+

0 commit comments

Comments
 (0)