Ero sivun ”Vieraslajit Suomessa” versioiden välillä

Opasnet Suomista
Siirry navigaatioon Siirry hakuun
(aikaa parannettu)
Rivi 6: Rivi 6:
== Merkkaa uusi esiintymä ==
== Merkkaa uusi esiintymä ==


<rcode name="merkkaa" label="Merkkaa esiintymä" embed=1 showcode=-1 recall_inputs=1 variables="
<rcode name="merkkaa" label="Merkkaa esiintymä" embed=0 showcode=0 recall_inputs=1 variables="
name:location|description:Raahaa nasta esiintymän kohdalle|type:location|
name:location|description:Raahaa nasta esiintymän kohdalle|type:location|
name:laji|description:Mikä laji on kyseessä?|type:selection|options:
name:laji|description:Mikä laji on kyseessä?|type:selection|options:
Rivi 34: Rivi 34:
'70-90 %';90-95 %;
'70-90 %';90-95 %;
'yli 95 %';Yli 95 %|
'yli 95 %';Yli 95 %|
name:aika|description:Aikaleima|type:date|
name:aika|description:Havainnon tekoaika|type:selection|options:
'Nyt';Nyt;
'Muu';Muu aika|
name:kuvaus|description:Vapaa kuvaus|type:text|
name:kuvaus|description:Vapaa kuvaus|type:text|
name:user|description:Kirjaaja (vapaaehtoinen)|type:text|
name:user|description:Kirjaaja|type:text|
name:lajimuu|description:Mikä muu laji?|type:text|
name:lajimuu|description:Mikä muu laji?|type:text|
category:Muun lajin tieto|
category:Muun lajin tieto|
category_conditions:laji;'Muu'
category_conditions:laji;'Muu'|
name:aikaleima|description:Havainnon tekoaika|type:date|
category:Aikaleima|
category_conditions:aika;'Muu'
">
">


Rivi 45: Rivi 50:


if(laji == "Muu") laji <- lajimuu
if(laji == "Muu") laji <- lajimuu
if(user == "") user <- wiki_username
if(aika == "Nyt") aika <- Sys.Date()
out <- data.frame(
out <- data.frame(
Kasvusto = kasvusto,
Kasvusto = kasvusto,
Rivi 76: Rivi 83:
#library(ggplot2)
#library(ggplot2)
library(maptools)
library(maptools)
#library(RColorBrewer)
library(RColorBrewer) # brewer.pal
#library(classInt)
#library(classInt)
library(RgoogleMaps)
library(RgoogleMaps)
Rivi 82: Rivi 89:
objects.latest("Op_en6007", code_name = "answer") # [[OpasnetUtils/Drafts]] findrest
objects.latest("Op_en6007", code_name = "answer") # [[OpasnetUtils/Drafts]] findrest


dat <- opbase.data("Op_fi5730", subset = "Esiintymät", include = list(Käyttäjätunnus = user))  
dat <- opbase.data("Op_fi5730", subset = "Esiintymät", include = list(Kirjaaja = user))  


ajat <- unique(dat$Aika)
ajat <- unique(dat$Aika)

Versio 19. kesäkuuta 2017 kello 06.16

Vieraslajit ovat kasvi- ja eläinlajeja, jotka eivät ole Suomen alkuperäistä lajistoa, ja jotka luontoon levitessään syrjäyttävät kotoperäisiä lajeja. Siksi monia niitä hävitetään aktiivisesti.

Tällä sivulla voit raportoida vieraslajien esiintymispaikoista. Myöhemmin saamme toivottavasti myös työkalun, jossa voit varata itsellesi tiettyjä kasvustoja kitkettäväksi ja raportoida kitkemisen onnistumisesta.

Merkkaa uusi esiintymä

Raahaa nasta esiintymän kohdalle:

Mikä laji on kyseessä?:

Anna esiintymän kuvaus:

Kuinka suurella alueella kasvusto on?:

Paljonko kitkit äsken mainitusta esiintymästä?:

Havainnon tekoaika:

Vapaa kuvaus:

Kirjaaja:

Muun lajin tieto

Mikä muu laji?:

Aikaleima

Havainnon tekoaika:
..

+ Näytä koodi

Näytä kirjatut esiintymät

Kenen kirjauksia katsotaan?:




http://fi.opasnet.org/fi_wiki/index.php/Rastilenkin_suunnittelija?merkkaa[käyttäjänro]=234&rastit[käyttäjänro]=234&rastit[aika]=2013-12-27 Linkin muotoilu, jossa annetaan koodeille merkkaa ja rastit parametrien arvot käyttäjänro = 234 ja aika = 2013-12-27.