# \donttest{
bbox <- c(-83.751812,42.272984,-83.741255,42.279716)
if (isTRUE(file.exists("streetscape_token.sysdata"))) {
data <- streetscape::strview_searchByGeo(bbox = bbox,
epsg = 2253,
token = "",
is_pano = TRUE)
data <- streetscape::strview_searchByGeo(x = -83.741289,
y = 42.270146,
r = 100,
epsg = 2253,
token = "",
is_pano = TRUE)
}
# }
# \donttest{
if (isTRUE(file.exists("streetscape_token.sysdata"))) {
data <- streetscape::strview_search_nnb(
x = -83.743460634278,
y = 42.277848830294,
epsg = 2253,
token = '')
}
# }
# \donttest{
bbox <- c(-83.752041,42.274896,-83.740711,42.281945)
if (isTRUE(file.exists("streetscape_token.sysdata"))) {
data <- streetscape::strview_search_osm(
bbox = bbox,
epsg = 2253,
token = '',
size = 100)
}
# }
# \donttest{
x <- c(-83.752041, -83.740711)
y <- c(42.274896, 42.281945)
viewpoints <- cbind(x, y)
if (isTRUE(file.exists("streetscape_token.sysdata"))) {
data <- streetscape::strview_search_multi(
viewpoints = viewpoints,
epsg = 2253,
token = '')
}
# }
Run the code above in your browser using DataLab