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", "Lainassa")[paikka]

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

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

out <- dat
out$Result <- as.character(as.POSIXct(out$Result, origin = "1970-01-01 00:00.00 UTC"))
oprint(out, include.rownames = FALSE)

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

Kuopion kaupunkipyörä/lainaus

Navigointivalikko