Lähdekoodi sivulle Ilmoitus homevauriosta tai -oireesta

[[Luokka:Kosteusvaurio]]
[[Luokka:Sisältää R-koodia]]
{{muuttuja|moderator=Jouni|stub=Yes}}

Raportoi kosteusvaurioita:

<rcode variables ="
	name:nimi|description:Mikä on nimesi?|type:text|
	name:ongelma|description:Kuvaile ongelmaa|type:text|
	name:sijainti|description:Missä ongelma sijaitsee?|type:text
"
label="Tallenna tiedot">

library(OpasnetBaseUtils)
library(xtable)

Obs <- max(op_baseGetData("opasnet_base", "Op_fi3138")[,"obs"]) + 1

data <- data.frame(
	Tyyppi = "Ilmoitus homevauriosta",
	Tunniste = Obs,
	Ominaisuus = c("Nimi", "Ongelma", "Sijainti"), 
	Result = c(nimi, ongelma, sijainti)
)

opbase.upload(
	dsn = "opasnet_base_write", 
	input = data, 
	ident = "Op_fi3138", 
	name = "Imoitus homevauriosta tai oireesta", 
	objtype_id = 1, 
	acttype = 5, 
	who = wiki_username, 
	unit = "-"
)
	
cat("Nämä tiedot on onnistuneesti tallennettu. Jos haluat muuttaa tietoja, tallenna lomake uudestaan.\n")
print(xtable(data), type = 'html')

</rcode>

{{tuloslinkki}}

==Katso myös==

* [[INSULAVO]]

==Avainsanat==

==Viitteet==

<references/>

==Aiheeseen liittyviä tiedostoja==

{{mfiles}}