|
|
| Rivi 1: |
Rivi 1: |
| {{Piilota sivupalkki}} | | {{Piilota sivupalkki}} |
| [[Kaupunkipyörä/etusivu|palaa]]
| |
|
| |
|
| | | <rcode live=1 label="Näytä kaikki pyörätelineet" showcode=-1> |
| <rcode embed=1 label="Näytä kaikki pyörätelineet" showcode=-1> | |
|
| |
|
| library(OpasnetUtils) | | library(OpasnetUtils) |
| Rivi 23: |
Rivi 21: |
| ) | | ) |
|
| |
|
| google.show_kml_data_on_maps(out)
| | cat("Kartalla näet kaikki pyörätelineet.\n") |
| | |
| </rcode>
| |
| | |
| | |
| <rcode name="pyörälliset_telineet" label="Näytä telineet, joissa on pyöriä" embed=1>
| |
| | |
| library(OpasnetUtils)
| |
| library(OpasnetUtilsExt)
| |
| library(rgdal)
| |
| | |
| objects.latest("Op_fi3857", code_name = "alusta")
| |
| | |
| dat <- pyörät.nyt()
| |
| | |
| dat <- dropall(dat)
| |
| | |
| dat <- as.data.frame(as.table(tapply(as.character(dat$Tyyppi), dat[c("Teline", "LA", "LO")], function(x) paste(x, sep = "", collapse = " "))))
| |
| dat <- dat[!is.na(dat$Freq) , ]
| |
| | |
| dat$LA <- as.numeric(levels(dat$LA)[dat$LA])
| |
| dat$LO <- as.numeric(levels(dat$LO)[dat$LO])
| |
| | |
| oprint(dat)
| |
| | |
| coordinates(dat)=c("LO","LA")
| |
| | |
| out <- google.point_kml(
| |
| obj = dat,
| |
| kmlname = "Helsingin pyörätelineet",
| |
| kmldescription = "KML-tiedostona",
| |
| name = dat$Freq,
| |
| description = dat$Freq
| |
| ) | |
|
| |
|
| google.show_kml_data_on_maps(out) | | google.show_kml_data_on_maps(out) |
| Rivi 63: |
Rivi 28: |
|
| |
|
|
| |
|
| | | {{Kaupunkipyörä}} |
| [[Kaupunkipyörä/lainaus|lainaus]]
| |
| | |
| [[Kaupunkipyörä/huolto|huolto]]
| |
| | |
| [[Kaupunkipyörä/jäsenet|jäsenet]]
| |
| | |
| [[Kaupunkipyörä/pyörät|pyörät]]
| |
| | |
| [[Kaupunkipyörä/pyörätelineet|pyörätelineet]]
| |
| | |
| [[Kaupunkipyörä|tarkempi kuvaus]]
| |