Ero sivun ”Ympäristöterveydenhuollon paikat” versioiden välillä

Opasnet Suomista
Siirry navigaatioon Siirry hakuun
(testidata tallennetaan)
pEi muokkausyhteenvetoa
 
(2 välissä olevaa versiota toisen käyttäjän tekemänä ei näytetä)
Rivi 1: Rivi 1:
[[Luokka:Ympäristöterveydenhuolto]]
[[Luokka:Sisältää R-koodia]]
{{tutkimus|moderator=Jouni}}
{{tutkimus|moderator=Jouni}}
'''Ympäristöterveydenhuollon paikat''' ovat kuvauksia niistä paikoista, joissa tapahtuu ympäristöterveydenhuollon kannalta olennaisia asioita.
'''Ympäristöterveydenhuollon paikat''' ovat kuvauksia niistä paikoista, joissa tapahtuu ympäristöterveydenhuollon kannalta olennaisia asioita.
==Syötä tietoja==


<rcode showcode="-1" include="page:OpasnetBaseUtils|name:generic" label="Tallenna tiedot" variables="
<rcode showcode="-1" include="page:OpasnetBaseUtils|name:generic" label="Tallenna tiedot" variables="
Rivi 31: Rivi 35:
"Koordinaattijärjestelmä", "Vesistötyyppi", "Vesienhoitoalue"
"Koordinaattijärjestelmä", "Vesistötyyppi", "Vesienhoitoalue"
),
),
Result = c(var1, var3, var4, var5, var6, var7, var9, var10, var11, var12, var13, var14, var15
Result = c(var2, 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_fi2951", acttype = 5, who = wiki_username, unit = "-")
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 60: Rivi 60:
</rcode>
</rcode>


<t2b index="Tietolaji,Tunniste,Ominaisuus" obs="Result" unit="-">
==Hae yhden paikan tiedot==
Paikka|JKL-80|Rekisteröintimaa|Suomi
Paikka|JKL-80|Paikan tyyppi|Auto
</t2b>
 


'''Tällä voit hakea tietoja tietokannasta.
'''Tällä voit hakea tietoja tietokannasta.
Rivi 77: Rivi 73:


nykytiedot <- op_baseGetData("opasnet_base", "Op_fi2951")
nykytiedot <- op_baseGetData("opasnet_base", "Op_fi2951")
nykytiedot <- tidy(nykytiedot)
nykytiedot <- tidy(nykytiedot)
nykytiedot <- nykytiedot[nykytiedot$Tunniste == var1, ]
nykytiedot <- nykytiedot[nykytiedot$Tunniste == var1, ]
Rivi 84: Rivi 79:


</rcode>
</rcode>
==Hae useita tietoja==
'''Tällä voit hakea useita paikkatietoja tietokannasta kerralla.
<rcode showcode="-1" label="Hae tiedot" include="page:OpasnetBaseUtils|name:generic">
library(OpasnetBaseUtils)
library(xtable)
cat("Tässä ovat paikkojen nykyiset tiedot tietokannasta.\n")
nykytiedot <- op_baseGetData("opasnet_base", "Op_fi2951")
nykytiedot <- tidy(nykytiedot)
nykytiedot <- nykytiedot[!duplicated(nykytiedot[, c("Ominaisuus", "Tunniste")], fromLast = TRUE), ]
print(xtable(nykytiedot), type = 'html', html.table.attributes = "class='sortable'")
</rcode>
==Katsele paikkoja kartalla==
'''Tällä voit katsoa paikkoja kartalla.
<rcode showcode="-1" name='kuorakonmaps'>
library(rgdal)
library(maptools)
library(RColorBrewer)
library(classInt)
library(OpasnetBaseUtils)
shp<-readOGR('PG:host=localhost user=postgres dbname=spatial_db','kuopio_house')
plotvar<-shp@data$ika
nclr<-8
plotclr<-brewer.pal(nclr,"BuPu")
class<-classIntervals(plotvar,nclr,style="quantile")
colcode<-findColours(class,plotclr)
epsg4326String <- CRS("+proj=longlat +ellps=WGS84 +datum=WGS84 +no_defs")
proj4string(shp)<-("+init=epsg:3067")
shp2<-spTransform(shp,epsg4326String)
kmlname<-"Kuopio house data"
kmldescription<-"Random stuff about here"
icon<-"http://maps.google.com/mapfiles/kml/pal2/icon18.png"
name<-paste("ika value: ", shp2$ika)
description <- paste("<b>Value:</b>",shp2$ika,"<br><b>Description:</b>",shp2$kayttotark)
MyPointKML<-function(obj = NULL, kmlname = "", kmldescription = "", name = NULL, description = "", icon = "http://maps.google.com/mapfiles/kml/pal4/icon24.png",col=NULL)
{
    if (is.null(obj))
        return(list(header = c("<?xml version=\"1.0\" encoding=\"UTF-8\"?>",
            "<kml xmlns=\"http://earth.google.com/kml/2.2\">",
            "<Document>", paste("<name>", kmlname, "</name>",
                sep = ""), paste("<description><![CDATA[", kmldescription,
                "]]></description>", sep = "")), footer = c("</Document>",
            "</kml>")))
    if (class(obj) != "SpatialPointsDataFrame")
        stop("obj must be of class 'SpatialPointsDataFrame' [package 'sp']")
    if (is.null(name)) {
        name = c()
        for (i in 1:nrow(obj)) name <- append(name, paste("site",
            i))
    }
    if (length(name) < nrow(obj)) {
        if (length(name) > 1)
            warning("kmlPoints: length(name) does not match nrow(obj). The first name will be replicated.")
        name <- rep(name, nrow(obj))
    }
    if (length(description) < nrow(obj)) {
        if (length(description) > 1)
            warning("kmlPoints: length(description) does not match nrow(obj). The first description will be replicated.")
        description <- rep(description, nrow(obj))
    }
    if (length(icon) < nrow(obj)) {
        if (length(icon) > 1)
            warning("kmlPoints: length(icon) does not match nrow(obj). Only the first one will be used.")
        icon <- icon[1]
    }
    col2kmlcolor <- function(col) paste(rev(sapply(col2rgb(col, TRUE), function(x) sprintf("%02x", x))), collapse = "")
    kml <- kmlStyle <- ""
    kmlHeader <- c("<?xml version=\"1.0\" encoding=\"UTF-8\"?>","<kml xmlns=\"http://earth.google.com/kml/2.2\">", "<Document>")
    kmlFooter <- c("</Document>", "</kml>")
    #for (i in 1:nrow(obj)) {
    for (i in 1:100) {
        point <- obj[i, ]
        pt_name = name[i]
        pt_description = description[i]
        pt_style <- paste("#style", ifelse(length(icon) == 1, 1, i), sep = "")
        kml <- append(kml, "<Placemark>")
        kml <- append(kml, paste("  <description><![CDATA[",pt_description, "]]></description>", sep = ""))
#kml <- append(kml, "<Style><IconStyle>")
#kml <- append(kml, paste("<color>", col2kmlcolor(col[i]), "</color>", sep =""))
        #kml <- append(kml, paste("  <Icon><href>", icon, "</href></Icon>", sep = ""))
#kml <- append(kml, "<scale>0.300000</scale>")
#kml <- append(kml, "</IconStyle></Style>")
        kml <- append(kml, "  <Point>")
        kml <- append(kml, "    <coordinates>")
        kml <- append(kml, paste(point@coords[1], point@coords[2], sep = ","))
        kml <- append(kml, "    </coordinates>")
        kml <- append(kml, "  </Point>")
        kml <- append(kml, "</Placemark>")
    }
   
    return(paste(paste(c(kmlHeader, kmlStyle, kml, kmlFooter), sep = "", collapse = "\n"), collapse="\n", sep = ""))
   
}
data <- MyPointKML(shp2,kmlname,kmldescription,name,description,icon,colcode)
google.show_kml_data_on_maps(data)
</rcode>


<br/>
<br/>


{{tuloslinkki}}
{{tuloslinkki}}

Nykyinen versio 22. elokuuta 2013 kello 10.15




Ympäristöterveydenhuollon paikat ovat kuvauksia niistä paikoista, joissa tapahtuu ympäristöterveydenhuollon kannalta olennaisia asioita.

Syötä tietoja

Tunniste (rekisterinumero, muu tunnus) *:

Paikan tyyppi:

Rekisteröintimaa (jos auto) tai kotisatama (jos laiva) *:

Nimi *:

Lyhyt nimi:

Lisätieto:

Huoneistoa tai paikkaa koskevat tiedot

Katuosoite *:

Postinumero *:

Kiinteistörekisteritunnus:

Huoneistoa, paikkaa ja vesistöä koskevat tiedot

Pohjoinen koordinaatti:

Itäinen koordinaatti:

Koordinaattijärjestelmä:

Vesistöalueeseen liittyvät tiedot

Vesistötyyppi:

Vesienhoitoalue:

BWID (muotoa FI + 9 numeroa. BWID pyydettävä THL:stä ennen kohteen perustamista) *:

Hae yhden paikan tiedot

Tällä voit hakea tietoja tietokannasta.

Tunniste *:

Hae useita tietoja

Tällä voit hakea useita paikkatietoja tietokannasta kerralla.

Katsele paikkoja kartalla

Tällä voit katsoa paikkoja kartalla.



{{#opasnet_base_link:Op_fi2951}}