|
|
| Rivi 1: |
Rivi 1: |
| {{Piilota sivupalkki}}
| |
| [[Kaupunkipyörä/etusivu|palaa]]
| |
|
| |
|
| <rcode name="pyörien sijainnit" label="Näytä vapaat pyörät" graphics=1 embed=1 showcode=-1> | | <rcode name="pyörien sijainnit" label="Näytä vapaat pyörät" graphics=0 live=1 showcode=-1> |
| library(OpasnetUtils) | | library(OpasnetUtils) |
|
| |
|
| Rivi 24: |
Rivi 22: |
|
| |
|
| 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 32: |
Rivi 30: |
| </rcode> | | </rcode> |
|
| |
|
| | | {{kaupunkipyörä}} |
| | |
| <rcode name="pyörät" label="Lisää pyörä" embed=1 showcode=-1 variables="
| |
| 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>
| |
| | |
| | |
| [[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]]
| |