Opasnet Suomi
Puijon Pakertajat ry on Kuopiossa toimiva partiolippukunta.
Ilmoittautumislomake
+ Näytä koodi- Piilota koodi
library(OpasnetBaseUtils)
Obs <- max(op_baseGetData("opasnet_base", "Op_fi2699")[,"obs"])+1
data <- data.frame(
obs = rep(Obs, 5),
Parameter = c("Nimi", "Tilaisuus", "Ilmoitus", "Huoltaja", "Lisätietoja"),
Result = c(nimi, tilaisuus, ilmoitus, huoltaja, lisätietoja))
data
opbase.upload(dsn = "opasnet_base_write", input = data, ident = "Op_fi2699", acttype = 5, who = wiki_username, unit = "-")
cat("Kiitos ilmoituksestasi!")
Ilmoittautuneet
+ Näytä koodi- Piilota koodi
library(OpasnetBaseUtils)
library(xtable)
data <- op_baseGetData("opasnet_base", "Op_fi2699")[, -c(1,4)]
data <- reshape(data, timevar = "Parameter", idvar = "obs", direction = "wide")
colnames(data) <- c("obs", "Huoltaja", "Ilmoitus", "Lisätietoja", "Nimi", "Tilaisuus")
data <- data[data$Tilaisuus == tilaisuus, -4]
print(xtable(data), type='html')
Katso myös
