Ero sivun ”Ympäristöterveydenhuollon paikat” versioiden välillä
Siirry navigaatioon
Siirry hakuun
(keskentekoinen) |
(testidata tallennetaan) |
||
| Rivi 3: | Rivi 3: | ||
<rcode showcode="-1" include="page:OpasnetBaseUtils|name:generic" label="Tallenna tiedot" variables=" | <rcode showcode="-1" include="page:OpasnetBaseUtils|name:generic" label="Tallenna tiedot" variables=" | ||
name:var1|description:Paikan tyyppi|options:NA;Valitse;'Huoneisto';Huoneisto/tila/alue;'Auto';Auto (sis.perävaunut);'Laiva';Laiva;'Junanvaunu';Junanvaunu;'Lentokone';Lentokone tai muu lentävä laite;'Kontti';Kontti;'Vesistö';Vesistö;'Muu';Muu | name:var1|description:Tunniste (rekisterinumero, muu tunnus) *|type:text| | ||
name:var2|description:Paikan tyyppi|type:selection|options:NA;Valitse;'Huoneisto';Huoneisto/tila/alue;'Auto';Auto (sis.perävaunut);'Laiva';Laiva;'Junanvaunu';Junanvaunu;'Lentokone';Lentokone tai muu lentävä laite;'Kontti';Kontti;'Vesistö';Vesistö;'Muu';Muu| | |||
name:var3|description:Rekisteröintimaa (jos auto) tai kotisatama (jos laiva) *|type:text| | name:var3|description:Rekisteröintimaa (jos auto) tai kotisatama (jos laiva) *|type:text| | ||
name:var4|description:Nimi *|type:text| | name:var4|description:Nimi *|type:text| | ||
| Rivi 11: | Rivi 11: | ||
name:var6|description:Katuosoite *|type:text|category:Huoneistoa tai paikkaa koskevat tiedot| | name:var6|description:Katuosoite *|type:text|category:Huoneistoa tai paikkaa koskevat tiedot| | ||
name:var7|description:Postinumero *|type:text| | name:var7|description:Postinumero *|type:text| | ||
name: | name:var11|description:Kiinteistörekisteritunnus|type:text| | ||
name:var9|description:Pohjoinen koordinaatti|type:text| | name:var9|description:Pohjoinen koordinaatti|type:text|category:Huoneistoa, paikkaa ja vesistöä koskevat tiedot| | ||
name:var10|description:Itäinen koordinaatti|type:text| | name:var10|description:Itäinen koordinaatti|type:text| | ||
name:var12|description:Koordinaattijärjestelmä|type:text| | name:var12|description:Koordinaattijärjestelmä|type:text| | ||
name:var13|description:Vesistötyyppi|type:selection|options:NA;Valitse;'Meri';Meri;'Järvi';Järvi;'Joki';Joki|category:Vesistöalueeseen liittyvät tiedot| | name:var13|description:Vesistötyyppi|type:selection|options:NA;Valitse;'Meri';Meri;'Järvi';Järvi;'Joki';Joki|category:Vesistöalueeseen liittyvät tiedot| | ||
name:var14|description:Vesienhoitoalue|type:selection|options:NA;Valitse | name:var14|description:Vesienhoitoalue|type:selection|options:NA;Valitse;'Vuoksi';Vuoksi;'Kymijoki-Suomenlahti';Kymijoki-Suomenlahti;'Kokemäenjoki-Saaristomeri-Selkämeri';Kokemäenjoki-Saaristomeri-Selkämeri;'Oulunjoki-Iijoki';Oulunjoki-Iijoki;'Kemijoki';Kemijoki;'Torniojoki';Torniojoki;'Teno-, Näätämö- ja Paatsjoki';Teno-, Näätämö- ja Paatsjoki;'Ahvenanmaa';Ahvenanmaa| | ||
name:var15|description:BWID *|type:text | name:var15|description:BWID (muotoa FI + 9 numeroa. BWID pyydettävä THL:stä ennen kohteen perustamista) *|type:text | ||
"> | "> | ||
library(OpasnetBaseUtils) | library(OpasnetBaseUtils) | ||
library(xtable) | library(xtable) | ||
if(var1 == "") { | if(var1 == "") { | ||
cat(" | cat("Tunniste on annettava.\n") | ||
} else { | } else { | ||
data <- data.frame( | data <- data.frame( | ||
| Rivi 29: | Rivi 28: | ||
Tunniste = var1, | Tunniste = var1, | ||
Ominaisuus = c("Paikan tyyppi", "Rekisteröintimaa", "Nimi", "Lyhyt nimi", "Lisätieto", "Katuosoite", | Ominaisuus = c("Paikan tyyppi", "Rekisteröintimaa", "Nimi", "Lyhyt nimi", "Lisätieto", "Katuosoite", | ||
"Postinumero | "Postinumero", "Pohjoinen koordinaatti", "Itäinen koordinaatti", "Kiinteistörekisteritunnus", | ||
"Koordinaattijärjestelmä", "Vesistötyyppi", "Vesienhoitoalue" | "Koordinaattijärjestelmä", "Vesistötyyppi", "Vesienhoitoalue" | ||
), | ), | ||
Result = c(var1, var3, var4, var5, var6, var7 | Result = c(var1, var3, var4, var5, var6, var7, var9, var10, var11, var12, var13, var14, var15 | ||
) | ) | ||
) | ) | ||
data | |||
data <- data[!data$Result %in% c("", NA), ] | data <- data[!data$Result %in% c("", NA), ] | ||
data | |||
if(nrow(data) > 0) { | if(nrow(data) > 0) { | ||
data | |||
opbase.upload(dsn = "opasnet_base_write", input = data, ident = " | op_baseWrite(dsn = "opasnet_base", input = data, ident = "Op_fi2951", objtype_id = 1, acttype = 4, who = wiki_username, unit = "-", name = "Ympäristöterveydenhuollon paikat") | ||
# opbase.upload(dsn = "opasnet_base_write", input = data, ident = "Op_fi2951", acttype = 5, who = wiki_username, unit = "-") | |||
cat("Nämä tiedot on onnistuneesti tallennettu. Jos haluat muuttaa tietoja, tallenna lomake uudestaan.\n") | cat("Nämä tiedot on onnistuneesti tallennettu. Jos haluat muuttaa tietoja, tallenna lomake uudestaan.\n") | ||
| Rivi 48: | Rivi 49: | ||
} | } | ||
cat("Tässä ovat | cat("Tässä ovat paikan nykyiset tiedot tietokannasta.\n") | ||
nykytiedot <- op_baseGetData("opasnet_base", " | nykytiedot <- op_baseGetData("opasnet_base", "Op_fi2951") | ||
nykytiedot <- tidy(nykytiedot) | nykytiedot <- tidy(nykytiedot) | ||
| Rivi 58: | Rivi 59: | ||
</rcode> | </rcode> | ||
<t2b index="Tietolaji,Tunniste,Ominaisuus" obs="Result" unit="-"> | |||
Paikka|JKL-80|Rekisteröintimaa|Suomi | |||
Paikka|JKL-80|Paikan tyyppi|Auto | |||
</t2b> | |||
| Rivi 63: | Rivi 69: | ||
<rcode showcode="-1" label="Hae tiedot" include="page:OpasnetBaseUtils|name:generic" | <rcode showcode="-1" label="Hae tiedot" include="page:OpasnetBaseUtils|name:generic" | ||
variables="name:var1|description: | variables="name:var1|description:Tunniste *|type:text"> | ||
library(OpasnetBaseUtils) | library(OpasnetBaseUtils) | ||
library(xtable) | library(xtable) | ||
cat("Tässä ovat | cat("Tässä ovat paikan nykyiset tiedot tietokannasta.\n") | ||
nykytiedot <- op_baseGetData("opasnet_base", " | nykytiedot <- op_baseGetData("opasnet_base", "Op_fi2951") | ||
nykytiedot <- tidy(nykytiedot) | nykytiedot <- tidy(nykytiedot) | ||
Versio 23. huhtikuuta 2012 kello 03.24
Tämä sivu on tutkimus.
Sivutunniste: Op_fi2951 |
|---|
| Moderaattori:Jouni (katso kaikki)
Sivun edistymistä ei ole arvioitu. Arvostuksen määrää ei ole arvioitu (ks. peer review). |
| Lisää dataa
|
Ympäristöterveydenhuollon paikat ovat kuvauksia niistä paikoista, joissa tapahtuu ympäristöterveydenhuollon kannalta olennaisia asioita.
| Obs | Tietolaji | Tunniste | Ominaisuus | Result |
|---|---|---|---|---|
| 1 | Paikka | JKL-80 | Rekisteröintimaa | Suomi |
| 2 | Paikka | JKL-80 | Paikan tyyppi | Auto |
Tällä voit hakea tietoja tietokannasta.
{{#opasnet_base_link:Op_fi2951}}