Kuopion kaupunkipyörä/lainaus

+ Näytä koodi - Piilota koodi

# This is code Op_fi####/lainaus on page [[Kuopion kaupunkipyörä/lainaus]]
# Parameters:
## paikka: place where the bike was returned: selection (text string)

library(OpasnetUtils)

paikka <- c("Kaupungintalo", "Vavi-talo", "Pääterveysasema", "Lainaus")[paikka]

dat <- data.frame(
	User = wiki_username, 
	Group = paikka,
	Result = as.numeric(Sys.time())
)

opbase.upload(
	dat, 
	ident = "Op_fi5439", 
	name = "Kuopion kaupunkipyörä", 
	subset = "Lainaukset", 
	act_type = "replace", 
	language = "eng", 
	who = wiki_username
)

oprint(dat, include.rownames = FALSE)

cat("Tieto on onnistuneesti tallennettu.\n")

Kuopion kaupunkipyörä/lainaus

Navigointivalikko