(viilailua) |
pEi muokkausyhteenvetoa |
||
| Rivi 25: | Rivi 25: | ||
name = "Kuopion kaupunkipyörä", | name = "Kuopion kaupunkipyörä", | ||
subset = "Lainaukset", | subset = "Lainaukset", | ||
act_type = " | act_type = "append", | ||
language = "eng", | language = "eng", | ||
who = wiki_username | who = wiki_username | ||
# 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")
|