|
|
| (2 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}} |
| [[Kaupunkipyörä/etusivu|palaa]]
| |
|
| |
|
| | | <rcode live=1 label="Näytä kaikki pyörätelineet" showcode=-1> |
| <rcode embed=1 label="Näytä pyörätelineet" showcode=-1> | |
|
| |
|
| 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") |
| Rivi 22: |
Rivi 22: |
| description = dat$Teline | | 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ä}} |
| <rcode name="pyörätelineet" label="Lisää pyöräteline" embed=1 showcode=-1 variables="
| |
| name:nimi|description:Anna pyörätelineelle lempinimi|type:text|
| |
| name:location|description:Raahaa nasta kartalla pyörätelinnen kohdalle|type:location|
| |
| name:paikkoja|description:Montako paikkaa telineessä on?|default:5
| |
| ">
| |
| library(OpasnetUtils)
| |
| location
| |
| | |
| nro <- opbase.data("Op_fi3857", subset = "Pyörätelineet")$Telinenro
| |
| nro <- max(as.numeric(levels(nro)[nro])) + 1
| |
| | |
| out <- data.frame(
| |
| Telinenro = nro,
| |
| Teline = nimi,
| |
| LA = location[1],
| |
| LO = location[2],
| |
| Paikkoja = paikkoja,
| |
| Result = 0
| |
| )
| |
| | |
| opbase.upload(input = out, ident = "Op_fi3857", name = "Kaupunkipyörä", subset = "Pyörätelineet",
| |
| obj_type = "variable", act_type = "append", language = "fin", who = wiki_username
| |
| )
| |
| | |
| cat("Uudet tiedot tallennettu. Ota pyörätelineen numero talteen.\n")
| |
| | |
| oprint(out)
| |
| | |
| </rcode>
| |
| | |
| | |
| | |
| [[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]]
| |