|
|
| (2 välissä olevaa versiota toisen käyttäjän tekemänä ei näytetä) |
| Rivi 1: |
Rivi 1: |
| {{Piilota sivupalkki}}
| | [[Luokka:Kaupunkipyörä]] |
| [[Kaupunkipyörä/etusivu|palaa]] | |
|
| |
|
| <rcode name="pyörät" label="Lisää pyörä" embed=1 showcode=-1 variables=" | | <rcode name="pyörien sijainnit" label="Näytä vapaat pyörät" graphics=0 live=1 showcode=-1> |
| name:nimi|description:Anna pyörälle lempinimi|type:text|
| |
| name:tyyppi|description:Minkätyyppinen pyörä on?|type:selection|options:
| |
| 'Vaihteeton peruspyörä';Vaihteeton peruspyörä;
| |
| 'Hybridi';Hybridi;
| |
| '3-7-vaihteinen';3-7-vaihteinen;
| |
| 'Kilpapyörä';Kilpapyörä|default:'Vaihteeton peruspyörä'|
| |
| name:koko|description:Minkä kokoinen pyörä on?|type:selection|options:
| |
| 'Miesten koko';Miesten koko;
| |
| 'Naisten koko';Naisten koko;
| |
| 'Lasten koko';Lasten koko|default:'Miesten koko'|
| |
| name:omistaja|description:Kuka pyörän omistaa?|type:text|default:Kaupunkipyöräyhdistys
| |
| ">
| |
| library(OpasnetUtils)
| |
| | |
| nro <- opbase.data("Op_fi3857", subset = "Pyörät")$Pyöränro
| |
| nro <- max(as.numeric(levels(nro)[nro])) + 1
| |
| | |
| out <- data.frame(
| |
| Pyöränro = nro,
| |
| Pyörä = nimi,
| |
| Tyyppi = tyyppi,
| |
| Koko = koko,
| |
| Omistaja = omistaja,
| |
| Result = 0
| |
| )
| |
| | |
| opbase.upload(input = out, ident = "Op_fi3857", name = "Kaupunkipyörä", subset = "Pyörät",
| |
| obj_type = "variable", act_type = "append", language = "fin", who = wiki_username
| |
| )
| |
| | |
| cat("Uudet tiedot tallennettu. Ota pyörän numero talteen.\n")
| |
| | |
| oprint(out)
| |
| | |
| </rcode>
| |
| | |
| | |
| <rcode name="pyörien sijainnit" graphics=1 embed=1 showcode=-1>
| |
| library(OpasnetUtils) | | library(OpasnetUtils) |
|
| |
|
| Rivi 62: |
Rivi 23: |
|
| |
|
| out <- merge(out, teline) | | out <- merge(out, teline) |
| out <- out[ , !colnames(out) %in% c("Result", "Laina", "Asiakasnro", "Avain")] | | out <- out[ , !colnames(out) %in% c("Result", "Laina", "Asiakasnro", "Avain", "Aika")] |
|
| |
|
| cat("Käytettävissä olevien pyörien sijainti tällä hetkellä.\n") | | cat("Käytettävissä olevien pyörien sijainti tällä hetkellä.\n") |
| Rivi 70: |
Rivi 31: |
| </rcode> | | </rcode> |
|
| |
|
| [[Kaupunkipyörä/lainaus|lainaus]]
| | {{kaupunkipyörä}} |
| | |
| [[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]]
| |