Lähdekoodi sivulle Kaupunkipyörä/jäsenet

[[Luokka:Kaupunkipyörä]]

<rcode name="jäsenet" label="Liity jäseneksi" embed=1 showcode=-1 variables="
	name:nimi|description:Oikea nimi|type:text|
	name:nimimerkki|description:Julkinen nimimerkki|type:text|
	name:osoite|description:Osoite|type:text|
	name:sähköposti|description:Sähköposti|type:text|
	name:puhelin|description:Puhelinnumero|type:text
">
library(OpasnetUtils)

nro <- opbase.data("Op_fi3857", subset = "Jäsenet")$Jäsennro
nro <- max(as.numeric(levels(nro)[nro])) + 1

out <- data.frame(
	Jäsennro = nro,
	Jäsen = nimi,
	Nimimerkki = nimimerkki,
	Osoite = osoite, 
	Sähköposti = sähköposti,
	Puhelin = puhelin,
	Result = 0
)

opbase.upload(input = out, ident = "Op_fi3857", name = "Kaupunkipyörä", subset = "Jäsenet", 
	obj_type = "variable", act_type = "append", language = "fin", who = wiki_username
)

cat("Kiitos rekisteröinnistä. Lähetämme sinulle pian varmistusviestin puhelimeesi ja sähköpostiisi.\nJäsennumerosi on", nro, "\n")

oprint(out[colnames(out) != "Result"])

</rcode>

{{kaupunkipyörä}}