Ero sivun ”Kaupunkipyörä/pyörätelineet” versioiden välillä
Siirry navigaatioon
Siirry hakuun
Ei muokkausyhteenvetoa |
pEi muokkausyhteenvetoa |
||
| (4 välissä olevaa versiota toisen käyttäjän tekemänä ei näytetä) | |||
| Rivi 1: | Rivi 1: | ||
[[Luokka:Kaupunkipyörä]] | |||
{{Piilota sivupalkki}} | {{Piilota sivupalkki}} | ||
<rcode live=1 label="Näytä kaikki pyörätelineet" showcode=-1> | |||
<rcode | |||
library(OpasnetUtils) | library(OpasnetUtils) | ||
library(OpasnetUtilsExt) | library(OpasnetUtilsExt) | ||
library(rgdal) | library(rgdal) | ||
library(raster) | #library(raster) | ||
dat <- opbase.data("Op_fi3857", subset = "Pyörätelineet") | dat <- opbase.data("Op_fi3857", subset = "Pyörätelineet") | ||
oprint(dat) | oprint(dat) | ||
coordinates( | coordinates(dat)=c("LO","LA") | ||
out <- google.point_kml( | out <- google.point_kml( | ||
| Rivi 20: | Rivi 20: | ||
kmldescription = "KML-tiedostona", | kmldescription = "KML-tiedostona", | ||
name = dat$Teline, | name = dat$Teline, | ||
description = | description = dat$Teline | ||
) | ) | ||
cat("Kartalla näet kaikki pyörätelineet.\n") | |||
google.show_kml_data_on_maps(out) | google.show_kml_data_on_maps(out) | ||
| Rivi 28: | Rivi 30: | ||
{{Kaupunkipyörä}} | |||