Ero sivun ”Kuopion kaupunkipyörä/lainaus” versioiden välillä

Versio 4. maaliskuuta 2016 kello 15.19

# 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 = "replace", 
	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")

@@ Rivi 1: / Rivi 1: @@
 <rcode name="lainaus" label="Tee kirjaus" embed=1 variables="
 	name:paikka|description:Mihin palautat pyörän?|type:selection|options:
-;Kaupungintalo;
+;Kaupungintalolle;
-;Vavi-talo;
+;Vavi-talolle;
-;Pääterveysasema;
+;Pääterveysasemalle;
 ;En palauta vaan otan lainaan|default:4
 ">
@@ Rivi 12: / Rivi 12: @@
 library(OpasnetUtils)
-paikka <- c("Kaupungintalo", "Vavi-talo", "Pääterveysasema", "Lainaus")[paikka]
+paikka <- c("Kaupungintalo", "Vavi-talo", "Pääterveysasema", "Lainassa")[paikka]
 dat <- data.frame(
-	User = wiki_username,
+	Lainaaja = wiki_username,
-	Group = paikka,
+	Sijainti = paikka,
 	Result = as.numeric(Sys.time())
 )
@@ Rivi 30: / Rivi 30: @@
 )
-oprint(dat, include.rownames = FALSE)
+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")
 </rcode>

Ero sivun ”Kuopion kaupunkipyörä/lainaus” versioiden välillä

Versio 4. maaliskuuta 2016 kello 15.19

Navigointivalikko