Keskustelu:Ympäristöministeriön tulevaisuuskatsaus

Keskustelu otakantaa.fi:stä

Kommentteja kyselystä

• Vaelluskalojen suojeluun ja kaivospolitiikkaan tulisi osoittaa huomiota.

• Ympäristökasvatus on keskeinen päämäärä, joka tulisi ehdottomasti näkyä myös Ympäristöministeriön toimissa, ei vain Opetus- ja kulttuuriministeriössä. Ellemme kasvata kansalaisia kohti ympäristökansalaisuutta ja kestävää elämäntapaa, on määritettyjä päämääriä mahdoton saavuttaa.

• On tärkeää, ettei tavoitteita tulkita niin, että tulevaisuudessa energiaintensiivistä teollisuutta on mahdotonta harjoittaa Suomessa. Se on kuitenkin edelleen meidän BKT:mme selkäranka. Myös nykyisin paljon esillä oleva Cleantech ja biotalous ovat hyvinkin energiaintensiivistä toimintaa. Asioita voi silti tehdä energia- ja resurssitehokkaasti. Toimimattomat kierrätysmarkkinat selkeä puute toistaiseksi. Jätteiden polttamisen tulisi olla vihoviimeinen vaihtoehto, kun jakeista on otettu irti kaikki mahdollinen, ml. biopolttoainetuotanto.

• kannanotto: vesien ja Itämeren puhtaudet, kaivosten toiminta ja ydinvoiman käyttö

• Vihreä "luontouskonto" pitäisi irroittaa valtionhallinnosta!

• Kyllä puuttuu. Erittäin tärkeää on se perusta jolle kaikki luodaan ja se on kilpailukykyinen täysintyöllistetty kansa, ellei vauraudesta huolehdita mikään muukaan ei toteudu.

• Puuttuu: sopeutumistoimien etsiminen ilmastonmuutokseen siten että talouden kilpailukyvystä pidetään huolta. Tämä on mielestäni oleellinen tavoite.

• Tavoite 1: Energiatehokas Suomi (riittää tavoitteeksi)

• Tavoite 3: Pitää määritellä, mikä on hyvä ympäristön tila.

• Tavoite 4: Monimuotoinen luonto (riittää tavoitteeksi)

• Tavoite 5: Huonosti muotoiltu ja siinä on sekoitettu kilpailukyky yhteyteen, johon se ei kuulu.

• Koko Suomen pitäminen asuttuna ja elinkelpoisena. Hyvinvoiva ja elävä maaseutu. Vapaus valita asuinpaikkansa ja elinympäristönsä.

• Kommentti: Vastustan väestön keskittämistä ns palvelukeskuksiin ja lopun luonnon suojelemista nk reservaattiajatteluna. Jo tällä hetkellä palvelut ovat hämmästyttävän huonossa kunnossa haja-asutusalueilla, joten ihmiset tietävät että pitää olla elämäntapaintiaani jos aikoo siellä elää ja menestyä.

• Luonnoksen ratkaiseva rakennevika on ympäristöasioiden ja ilmaston vaihtelun kytkeminen toisiinsa. Ne eivät liity eivätkä vaikuta toisiinsa millään tavalla. Ihminen pystyy vaikuttamaan elinympäristönsä mukavuuteen ja terveellisyyteen paljonkin, kun taas ilmaston vaihtelu on kokonaan ihmisen vaikutusmahdollisuuksien ulkopuolella. Asioiden keinotekoisen ja virheellisen kytkennän takia on ajauduttu nykyiseen tilanteeseen, jossa asioiden käsittely johdatellaan aina ilmaston vaihtelun kautta ja päädytään vaatimaan esim. energiantuotannossa, maankäytössä ja rakentamisessa ratkaisuja, jotka eivät vaikuta ilmaston vaihteluun mitenkään, mutta huonontavat elinympäristön mukavuutta ja terveellisyyttä. Suomi voisi olla edelläkävijä ja katkaista keinotekoisen, virheellisen ja vahingollisen poliittisen kytkennän ympäristöasioitten ja ilmaston vaihtelun väliltä. Ilmaston vaihtelua pitää tutkia, jotta opittaisiin ennustamaan sitä ja varautumaan sen vaikutuksiin, mutta kuvitelmat siihen vaikuttamisesta ovat vailla perusteita. Luonnontieteellinen tiedemaailma on asiasta jokseenkin yksimielinen, mutta se on syrjäytetty poliittista valtaa pitävän 'humanistisen ilmastonmuutosuskon' tiedotuskanavista.

• Pragmaattisesti tavoitteet voisi jakaa kahteen osaan: 1) Suomi tavoittelee tiukkoja kv-sopimuksia ja 2) olemassa olevien sopimusten sisällä Suomi hakee kilpailukykyistä asemaa ympäristökuormitukset huomioon ottaen.

• Monimuotoinen luonto ja kestävät ekosysteemipalvelut - teema tulosi nimetä uudelleen ja tarkastella kokonaisuutta yhdessä maa - ja metsätalouden ja kalatalouden tavoitteiden kanssa. Koska skenaariot yli 2asteen lämpenemisestä >+3-6C, aiheuttavat vakavia seurauksia koko maapallon ruokahuollolle, ym olisi syytä koota tämä teema uudeksi strategiseksi kokonaisuudeksi. Miten turvaamme kestävän elintarviketuotannon käyttäen hyväksi parasta ja vähähiilisintä teknologiaa ja sitä kehittäen. Ravinteiden kierto, alueiden lähiruoan tuotannon kehittäminen niiltä osin kuin se voidaan osoittaa vähähiiliseksi koko elinkaaren ajalta ja julkishallinnolle velvoitteet osallistua elintarvikkeiden hankkijana kestävä ruokahuollon esikuvana edistäisi välttämätöntä elintarviketuotannon kehittämistä. Ruokaturva eri lämpenemisskenaarioissa tulisi olla läpileikkaavana, kun tiedämme että vesi- ja ruoka tulevat olemaan tulevan sukupolven suurimpia huolenaiheita maailmassa ja myös sotien syitä. Myös nyt viljelyssä olevien ja viljelyyn hyvin soveltuvien alueiden maankäyttöpolitiikasta tulisi tehdä selvät linjaukset, tarvittaessa MRL täydentäen, jotta muiden esim kaivosteollisuuden ristiriitaisten intressien suhteen olisi rakennettu selkeä tahtotila miten paikallisesti viljelyyn sopivat alueet ja laajoja alueita muuhun käyttöön kuten kaivokset ja niiden aiheuttamat ympäristöriskit priorisoidaan.

• 1. Mittareiden määrittely, mittariston kehittäminen ja käyttöön otto on tarpeen tavoitteiden asettamisen, johtamisen ja seurannan sekä vaikutusten arvioinnin kannalta.

• 2. Digitaalisen tiedon kokoaminen avoimesti käytettäväksi (esim. energiakulutusta koskeva tieto).

• 3. Säädösten ja muun julkisen ohjauksen keventäminen ja kehittäminen samalla siten, että se mahdollistaa kehityksen ja innovaatiot.

• 4. MRLn uudistaminen siten, että - siinä on omat osuudet, joissa käsitellään jo rakennettujen kaupunkialueiden kehittämistä - edistetään kiinteistöjen, ulkoalueiden, rakennusten ja tilojen moni- ja yhteiskäyttöisyyttä, uudistamista ja käyttötarkoitusmuutoksia ja niihin liittyviä kokeiluja. Tavoitteena tehokas ja palvelukykyinen kestävästi kehittyvä rakennettu ympäristö, joka vastaa joustavasti jatkuvasti muuttuviin tarpeisiin. - kullakin ammattimaisella toimijalla ensisijainen vastuu omasta suorituksesta/osuudesta

• 5. Julkisten palveluiden kokoaminen helposti saavutettaviksi yhdyskuntarakennetta eheyttäviksi ajassa eläviksi palveluytimiksi, jotka tarjoavat samalla hyvän sijainnin kaupallisille lähipalveluille ja kolmannen sektorin toiminnalle sekä työpaikkojen sijoittamiselle.

• 6. Rakennettuun ympäristöön kohdistuvien muutosten, muutospaineiden ja mahdollisuuksien ennakointi ja huomiointi. Yhden ja kahden hengen asuntokuntien asuntotarpeisiin vastaaminen. Julkisen ja yksityisen sektorin laadullisesti ja sijainnillisesti muuttuviin ja määrällisesti väheneviin toimitilatarpeisiin vastaaminen.

• 7. Rakennuskannan viisas ylläpito ja uudistaminen huomioiden käytettävissä olevat ammattilais- ja talousresurssit. Tuottavuuden ja laaduntuottokyvyn parantamisesta sekä toimenpiteiden viisaasta kohdentamisesta kestävä lääke korjausvajeen poistamiseen ja tarpeen- ja ajanmukaisena pitämiseen.

Kommentointipuolen kommentteja

• Asunto- ja muussa kaupunkirakentamisessa puu hiiltä sitovana, kotimaisena raaka-aineena, kaikissa uusissa jo maailmalla pilotoiduissa monenlaissa elementeissä ja muodoissaan, nopeasti vähähiilisen kaupunkirakentamisen lippulaivaksi. Teema edistää sekä vähähiilisen rakentamisen, biotalouden, asuntotuotannon, että järkevän luonnonvarojen käytön ja jalostamisen toimia. Julkishallinnon rakennushankkeisiin ja julkisrahoitusta saaviin asuntohankkeisiin vahvat puurakentamista edistävät mekanismit. Silloin teemme kaupunkeihin hiilinieluja ja kasvava uusi metsä sitoo hiiltä. Hiiltä sitova asuntotuotanto ja korjausrakentaminen tavoitteeksi ja siinä samalla oman vientiin tähtäävän puurakennustuotannon kehittäminen kansainvälisesti kilpailukykyiseksi. Ympäristöministeriön ohjauksella vahva tahtotila ja sitovat tavoitteet - puu kaupunkiin.

• Ympäristöhallinnon itsenäisyys, riippumattomuus ja voimavarat tulee turvata seuraavallakin hallituskaudella sekä ministeriöissä että aluehallinnossa. YM:ää ja MMM:ää ei voi yhdistää, koska ilman YM:n "check and balances" biotalous menee helposti kestämättömille urille. Ruotsin valtioneuvostomallikaan ei tuo lisäarvoa. Yksi mahdollisuus on koota aluehallinto yhteen Suomen ympäristövirastoon, kuten on tehty Suomen riistakeskus ja Suomen metsäkeskus.

• Kansalaisten ympäristöoikeuksia tulee vahvistaa tilanteessa missä julkista valtaa ajetaan alas sekä valtion että kuntien taholta. Ympäristöjärjestöjen valtiontuet kannattaa kustannustehokkaina pitää nykyisellä tasolla. Luonnonsuojelulahjoituksien verovähennyskelpoisuutta kannattaa edistää.

• Keskeistä on karsia haitallisia tukia, suunnata niitä ympäristötuiksi ja muutenkin edistää kohtuutaloutta.

Tägikone

{{#opasnet_base_link:Op_fi4530}}

Versiot

Versiot(OldID)

Obs	Versio	Sivu	Ident	Result
1	1	Ympäristöministeriön tulevaisuuskatsaus	Op_fi4443	24666

Jakeet

Kaikkien kenttien arvot saa erotella pilkuilla tässä haussa

Sivu jolta jakeita haetaan: Kaikilta Ympäristöministeriön tulevaisuuskatsaus Anna halutessasi jakeen ID(:t): Versio: + Näytä koodi- Piilota koodi library(OpasnetUtils) library(plyr) objects.latest("Op_fi4325", "apufunktiot") # Erottelu pilkuilla ja välilyöntien poisto if (!is.null(sivu)) sivu <- gsub("^\\s*|\\s*$", "", strsplit(sivu, ",")[[1]]) if (tolower(jaeid == "hae kaikki")) { jaeid <- NULL } else { jaeid <- gsub("^\\s*|\\s*$", "", strsplit(jaeid, ",")[[1]]) } version <- gsub("^\\s*|\\s*$", "", strsplit(version, ",")[[1]]) a <- tolower(version) == "nykyinen" if (any(a)) { version <- version[!a] version <- c(version, get_current_version(ident)) } version <- as.numeric(version) out <- jaehakukone(ident, sivu = sivu, versio = version, jae = jaeid) if (nrow(out) > 0) { oprint(out, include.rownames = FALSE) } else { cat("Jakeita ei löytynyt!\n") }

Poistettavan jakeen sivu: Ympäristöministeriön tulevaisuuskatsaus Poistettavan jakeen ID (pilkulla eroteltuna useampia): Versio: Poiston syy: - Valitse syy - Tekninen jae Jae ei liity sivun aiheeseen Jae on häiriköintiä (käytä säästellen) + Näytä koodi- Piilota koodi library(OpasnetUtils) jaeid <- strsplit(jaeid, ",", fixed = TRUE)[[1]] jaeid <- gsub(" ", "", jaeid) if (sum(nchar(jaeid)) == 0) stop("Anna jakeen ID") if (tolower(version) == "nykyinen") { objects.latest("Op_fi4325", "apufunktiot") version <- get_current_version(ident) } else { version <- as.numeric(version) } out <- data.frame( Versio = version, Sivu = sivu, Aika = date(), Käyttäjä = wiki_username, Syy = syy, Result = as.character(jaeid) ) opbase.upload( out, who = wiki_username, name = pagename, subset = "Jakeenpoistot", act_type = "append", language = "fin" )

Sivu jolle jae lisätään: Ympäristöministeriön tulevaisuuskatsaus Versio: Jakeen sisältö: + Näytä koodi- Piilota koodi library(OpasnetUtils) objects.latest("Op_fi4325", "apufunktiot") if (tolower(version) == "nykyinen") { version <- get_current_version(ident) } else { version <- as.numeric(version) } out <- data.frame( Versio = version, Sivu = sivu, Aika = date(), Käyttäjä = wiki_username, JaeID = NA, Result = sisalto ) ident.subset <- paste(ident, "Jakeenlisaykset", sep = ".") filter <- list() filter$Versio <- version filter$Sivu <- sivu upload_with_autoid( out, ident.subset, id_name = "JaeID", pagename = pagename, prefix = "L", filter = filter )

Jakeiden päivitys

Päivitä Versiot-tauluun sivut ja ikilinkin IDt ja aja alla oleva koodi

+ Näytä koodi- Piilota koodi library(OpasnetUtils) objects.latest("Op_fi4325", "apufunktiot") versiot <- get_meta_data(ident) #version <- max(as.numeric(as.character(versiot$Versio))) #names <- as.character(versiot$Sivu[versiot$Versio == version]) url <- gsub(" ", "_", versiot$Sivu) old_id <- versiot$Result old_id <- paste("&oldid=", old_id, sep = "") out <- data.frame() for (i in 1:length(url)) { temp <- parse_page(url[i], old_id[i]) temp$Sivu <- versiot$Sivu[i] temp$Versio <- versiot$Versio[i] out <- rbind(out, temp) } #out$Versio <- version out <- out[c("Versio", "Sivu", "Aihe", "JaeID", "Result")] opbase.upload( out, name = pagename, who = wiki_username, subset = "Jakeet" )

Avainsanat

Sivu jonka avainsanoja haetaan: Kaikki Ympäristöministeriön tulevaisuuskatsaus Anna halutessasi jakeen ID(:t): Versio: + Näytä koodi- Piilota koodi library(OpasnetUtils) library(plyr) objects.latest("Op_fi4325", "apufunktiot") # Erottelu pilkuilla ja välilyöntien poisto if (!is.null(sivu)) sivu <- gsub("^\\s*|\\s*$", "", strsplit(sivu, ",")[[1]]) if (tolower(jaeid == "hae kaikki")) { jaeid <- NULL } else { jaeid <- gsub("^\\s*|\\s*$", "", strsplit(jaeid, ",")[[1]]) } version <- gsub("^\\s*|\\s*$", "", strsplit(version, ",")[[1]]) a <- tolower(version) == "nykyinen" if (any(a)) { version <- version[!a] version <- c(version, get_current_version(ident)) } version <- as.numeric(version) filter <- list() filter$Sivu <- sivu filter$Versio <- version filter$JaeID <- jaeid out <- try_dl_rm( paste(ident, "Avainsanat", sep = "."), filter = filter, rm_id = paste(ident, "Avainsananpoistot", sep = "."), rm_ind = "AvainsanaID" ) if (nrow(out) > 0) { oprint(out, include.rownames = FALSE) } else { cat("Avainsanoja ei löytynyt!\n") }

Minkä sivun jakeelle haluat lisätä avainsanoja?: Ympäristöministeriön tulevaisuuskatsaus Mikä on jakeen versio?: Mikä on jakeen ID?: Valitse alla olevasta listasta yleisiä avainsanoja.: A Päätös (jae sisältää päätös- tai toimintaehdotuksen) B Vaikutus (jae kuvaa ilmiötä tai vaikutusta) C Arvo (jakeessa on arvoarvostelma tai kuvaa asian merkitystä) D Katsaustyön tekemiseen liittyvä E Ei mikään edellisistä (valitse ainakin yksi A-E) Tavoitteet Ratkaisut Terveydenhuolto Terveys Hyvinvointi Ilmastonmuutos Kestävä kehitys Energiatehokkuus Resurssitehokkuus Uusiutuva energia Vihreä kasvu Pienhiukkaspäästöt Päästöt Liikenne Kansainvälinen yhteistyö Ympäristöpolitiikka Luonnonvarojen kestävä käyttö Riskinhallinta Ympäristövaikutukset Ympäristöhaitat Terveyshaitat Vähähiilinen yhteiskunta Sopeutuminen muuttuvaan ilmastoon Elinkelpoisuus Euroopan Unioni Kulutustottumukset Hallinto Lainsäädäntö Palvelut Cleantech Jätteidenhuolto Jätteet Itämeri Pintavedet Pohjavesi Luonnonsuojelu Kiertokulku Luonnon monimuotoisuus Ekosysteemipalvelut Väestökehitys Laita halutessasi yllä listaamattomattomia avainsanoja tähän pilkulla eroteltuna.: + Näytä koodi- Piilota koodi avainsanat <- strsplit(avainsanat, ",", fixed = TRUE)[[1]] avainsanat <- gsub(" ", "", avainsanat) avainsanat <- avainsanat[nchar(avainsanat) > 0] avainsanat <- c(yl_avainsanat, avainsanat) if (length(avainsanat) == 0) stop("Yhtään avainsanaa ei annettu!") library(OpasnetUtils) objects.latest("Op_fi4325", "apufunktiot") if (tolower(version) == "nykyinen") { version <- get_current_version(ident) } else { version <- as.numeric(version) } dat <- data.frame( AvainsanaID = NA, Versio = version, Aika = date(), Käyttäjä = wiki_username, Sivu = sivu, JaeID = as.character(jae), Result = avainsanat ) ident.subset <- paste(ident, "Avainsanat", sep = ".") filter <- list() filter$Versio <- version upload_with_autoid( dat, ident.subset, id_name = "AvainsanaID", pagename = pagename, filter = filter ) cat("Avainsanojen lisääminen onnistui.\n")

Poistettavan avainsanan ID (pilkulla eroteltuna useampia): Mikä versio on kyseessä?: Poiston syy: - Valitse syy - Avainsana ei päde uudessa versiossa Virheellinen avainsana + Näytä koodi- Piilota koodi library(OpasnetUtils) avid <- strsplit(avid, ",", fixed = TRUE)[[1]] avid <- gsub(" ", "", avid) if (tolower(version) == "nykyinen") { objects.latest("Op_fi4325", "apufunktiot") version <- get_current_version(ident) } else { version <- as.numeric(version) } dat <- data.frame( Versio = version, Aika = date(), Käyttäjä = wiki_username, Syy = syy, Result = avid ) opbase.upload( dat, ident = ident, name = pagename, subset = "Avainsananpoistot", act_type = "append", language = "fin", who = wiki_username ) cat("Avainsana poistettiin onnistuneesti.\n")

Relaatiot

Sivu jonka relaatioita haetaan: Kaikki Ympäristöministeriön tulevaisuuskatsaus Anna halutessasi jakeen ID(:t): Versio: + Näytä koodi- Piilota koodi library(OpasnetUtils) library(plyr) objects.latest("Op_fi4325", "apufunktiot") # Erottelu pilkuilla ja välilyöntien poisto if (!is.null(sivu)) sivu <- gsub("^\\s*|\\s*$", "", strsplit(sivu, ",")[[1]]) if (tolower(jaeid == "hae kaikki")) { jaeid <- NULL } else { jaeid <- gsub("^\\s*|\\s*$", "", strsplit(jaeid, ",")[[1]]) } version <- gsub("^\\s*|\\s*$", "", strsplit(version, ",")[[1]]) a <- tolower(version) == "nykyinen" if (any(a)) { version <- version[!a] version <- c(version, get_current_version(ident)) } version <- as.numeric(version) filter <- list() filter$Sivu1 <- sivu filter$Versio <- version filter$JaeID1 <- jaeid rel1 <- try_dl_rm( paste(ident, "Relaatiot", sep = "."), filter = filter, rm_id = paste(ident, "Relaationpoistot", sep = "."), rm_ind = "RelaatioID" ) if (is.null(jaeid)) { rel2 <- data.frame() } else { filter$JaeID1 <- NULL filter$Sivu1 <- NULL filter$JaeID2 <- jaeid filter$Sivu2 <- sivu rel2 <- try_dl_rm( paste(ident, "Relaatiot", sep = "."), filter = filter, rm_id = paste(ident, "Relaationpoistot", sep = "."), rm_ind = "RelaatioID" ) } out <- rbind(rel1, rel2) if (nrow(out) > 0) { oprint( out, include.rownames = FALSE, caption = "Relaatiot", caption.placement = "top" ) } else { cat("Relaatioita ei löytynyt!\n") }

Mikä on lähtöjakeen sivu?: Ympäristöministeriön tulevaisuuskatsaus Mikä on lähtöjakeen ID?: Mikä on lähtöjakeen versio?: Mikä on kohdejakeen sivu?: Ympäristöministeriön tulevaisuuskatsaus Mikä on kohdejakeen ID?: Kuinka lähtöjae liittyy kohdejakeeseen?: - Valitse - tukee tai on linjassa vastustaa tai on ristiriidassa on neutraali suhteessa on uusi linjaus tai painotus kuuluu ryhmään/kokoelmaan VAPAAEHTOINEN Voit antaa oman jakeiden välisen relaation vapaakenttään.: + Näytä koodi- Piilota koodi relaatio <- ifelse(lisarelaatio == '', relaatio, lisarelaatio) if (nchar(gsub(" ", "", relaatio)) == 0) stop("Relaatiota ei annettu!") library(OpasnetUtils) objects.latest("Op_fi4325", "apufunktiot") jaeid1 <- strsplit(jaeid1, ",", fixed = TRUE)[[1]] jaeid1 <- gsub(" ", "", jaeid1) jaeid2 <- strsplit(jaeid2, ",", fixed = TRUE)[[1]] jaeid2 <- gsub(" ", "", jaeid2) if (tolower(version) == "nykyinen") { version <- get_current_version(ident) } else { version <- as.numeric(version) } if(sivu2 == "Sama") sivu2 <- sivu1 ident.subset <- paste(ident, "Relaatiot", sep = ".") filter <- list() filter$Versio <- version dat <- data.frame( RelaatioID = NA, Versio = version, Aika = date(), Käyttäjä = wiki_username, Sivu1 = sivu1, JaeID1 = jaeid1, Sivu2 = sivu2, JaeID2 = jaeid2, Result = relaatio ) upload_with_autoid( dat, ident.subset, id_name = "RelaatioID", pagename = pagename, filter = filter ) cat("Relaation lisääminen onnistui.\n")

Mikä on lähtöjakeen sivu?: Ympäristöministeriön tulevaisuuskatsaus Mikä on lähtöjakeen ID?: Mikä on lähtöjakeen versio?: Mikä on kohdejakeen sivu?: Sama kuin lähtöjakeella Ympäristöministeriön tulevaisuuskatsaus Mikä on kohdejakeen ID (uudemmassa versiossa)?: Sisällytettiinkö ehdotus uudempaan versioon?: - Valitse - ehdotus huomioitu ja liittyvää painotusta muutettu ehdotus huomioitu ja uusi kohta lisätty ehdotus ei ole antanut aihetta muutoksiin vaan sisältyy olennaisesti jo kirjattuun ehdotus ei ole antanut aihetta muutoksiin + Näytä koodi- Piilota koodi if (nchar(gsub(" ", "", sisallytys)) == 0) stop("Sisällytyksen tyyppiä ei annettu!") library(OpasnetUtils) objects.latest("Op_fi4325", "apufunktiot") jaeid1 <- strsplit(jaeid1, ",", fixed = TRUE)[[1]] jaeid1 <- gsub(" ", "", jaeid1) jaeid2 <- strsplit(jaeid2, ",", fixed = TRUE)[[1]] jaeid2 <- gsub(" ", "", jaeid2) if (tolower(version) == "edellinen") { version <- get_current_version(ident) - 1 } else { version <- as.numeric(version) } if(sivu2 == "Sama") sivu2 <- sivu1 ident.subset <- paste(ident, "Relaatiot", sep = ".") filter <- list() filter$Versio <- version dat <- data.frame( RelaatioID = NA, Versio = version, Aika = date(), Käyttäjä = wiki_username, Sivu1 = sivu1, JaeID1 = jaeid1, Sivu2 = sivu2, JaeID2 = jaeid2, Result = sisallytys ) upload_with_autoid( dat, ident.subset, id_name = "RelaatioID", pagename = pagename, filter = filter ) cat("Sisällytyksen lisääminen onnistui.\n")

Poistettavan relaation ID (pilkulla eroteltuna useampia): Mikä versio on kyseessä?: Poiston syy: - Valitse syy - Relaatio ei päde uudessa versiossa Virheellinen relaatio + Näytä koodi- Piilota koodi library(OpasnetUtils) relid <- strsplit(relid, ",", fixed = TRUE)[[1]] relid <- gsub(" ", "", relid) if (tolower(version) == "nykyinen") { objects.latest("Op_fi4325", "apufunktiot") version <- get_current_version(ident) } else { version <- as.numeric(version) } dat <- data.frame( Versio = version, Aika = date(), Käyttäjä = wiki_username, Syy = syy, Result = relid ) opbase.upload( dat, ident = ident, name = pagename, subset = "Relaationpoistot", act_type = "append", language = "fin", who = wiki_username ) cat("Relaatio poistettiin onnistuneesti.\n")

Kehittyneemmät hakukoneet

Hae jakeita ja niihin liittyviä avainsanoja

Sivu jolta jakeita haetaan: Kaikilta Ympäristöministeriön tulevaisuuskatsaus Anna halutessasi jakeen ID(:t): Versio: + Näytä koodi- Piilota koodi library(OpasnetUtils) library(plyr) objects.latest("Op_fi4325", "apufunktiot") # Erottelu pilkuilla ja välilyöntien poisto if (!is.null(sivu)) sivu <- gsub("^\\s*|\\s*$", "", strsplit(sivu, ",")[[1]]) if (tolower(jaeid == "hae kaikki")) { jaeid <- NULL } else { jaeid <- gsub("^\\s*|\\s*$", "", strsplit(jaeid, ",")[[1]]) } version <- gsub("^\\s*|\\s*$", "", strsplit(version, ",")[[1]]) a <- tolower(version) == "nykyinen" if (any(a)) { version <- version[!a] version <- c(version, get_current_version(ident)) } version <- as.numeric(version) out <- jaehakukone(ident, sivu = sivu, versio = version, jae = jaeid) if (nrow(out) == 0) { stop("Jakeita ei löytynyt!") } filter <- list() filter$Sivu <- sivu filter$Versio <- version filter$JaeID <- jaeid tags <- try_dl_rm( paste(ident, "Avainsanat", sep = "."), filter = filter, rm_id = paste(ident, "Avainsananpoistot", sep = "."), rm_ind = "AvainsanaID" ) if (nrow(tags) == 0) { cat("Avainsanoja ei löytynyt!\n") } else { colnames(tags)[colnames(tags) == "Result"] <- "Avainsana" out <- join( tags[c("Versio", "Sivu", "JaeID", "AvainsanaID", "Avainsana")], out[c("Versio", "Sivu", "JaeID", "Result")] ) # Jos annettiin vain yksi versio ja/tai sivu niin niitä ei tarvitse printata filter_ind <- NULL if (length(version) != 1) filter_ind <- c(filter_ind, "Versio") if (length(sivu) != 1) filter_ind <- c(filter_ind, "Sivu") filter_ind <- c(filter_ind, "JaeID") oprint(out[c(filter_ind, "Result", "AvainsanaID", "Avainsana")], include.rownames = FALSE) }

Hae relaatioita ja niihin kuuluvia jakeita

Sivu jolta relaatioita haetaan: Kaikilta Ympäristöministeriön tulevaisuuskatsaus Anna halutessasi jakeen ID(:t): Liittymistyyppi: Kaikki Tukee tai on linjassa Vastustaa tai on ristiriidassa On neutraali suhteessa On uusi linjaus tai painotus Sisällytys: Kaikki Ehdotus huomioitu ja liittyvää painotusta muutettu Ehdotus huomioitu ja uusi kohta lisätty Ehdotus ei ole antanut aihetta muutoksiin Ehdotus ei ole antanut aihetta muutoksiin vaan sisältyy olennaisesti jo kirjattuun Versio: + Näytä koodi- Piilota koodi # Eri sisältymistyypit pitää määritellä niin että ne voidaan käsitellä erillään muista relaatioista sis_opt <- c( 'ehdotus huomioitu ja liittyvää painotusta muutettu', 'ehdotus huomioitu ja uusi kohta lisätty', 'ehdotus ei ole antanut aihetta muutoksiin', 'ehdotus ei ole antanut aihetta muutoksiin vaan sisältyy olennaisesti jo kirjattuun' ) #liit_opt <- c( # 'tukee tai on linjassa', # 'vastustaa tai on ristiriidassa', # 'on neutraali suhteessa', # 'on uusi linjaus tai painotus' #) library(OpasnetUtils) library(plyr) objects.latest("Op_fi4325", "apufunktiot") # Erottelu pilkuilla ja välilyöntien poisto if (!is.null(sivu)) sivu <- gsub("^\\s*|\\s*$", "", strsplit(sivu, ",")[[1]]) if (tolower(jaeid == "hae kaikki")) { jaeid <- NULL } else { jaeid <- gsub("^\\s*|\\s*$", "", strsplit(jaeid, ",")[[1]]) } version <- gsub("^\\s*|\\s*$", "", strsplit(version, ",")[[1]]) a <- tolower(version) == "nykyinen" if (any(a)) { version <- version[!a] version <- c(version, get_current_version(ident)) } version <- as.numeric(version) # Add previous and next versions to check for inclusion from previous and into next original_version <- version if (!(1 %in% version)) { prev <- TRUE version <- c(min(version, na.rm = TRUE) - 1, version) } version <- c(version, max(version, na.rm = TRUE) + 1) filter <- list() filter$Sivu1 <- sivu filter$Versio <- version filter$JaeID1 <- jaeid rel1 <- try_dl_rm( paste(ident, "Relaatiot", sep = "."), filter = filter, rm_id = paste(ident, "Relaationpoistot", sep = "."), rm_ind = "RelaatioID" ) if (is.null(jaeid)) { rel2 <- data.frame() } else { filter$JaeID1 <- NULL filter$Sivu1 <- NULL filter$JaeID2 <- jaeid filter$Sivu2 <- sivu rel2 <- try_dl_rm( paste(ident, "Relaatiot", sep = "."), filter = filter, rm_id = paste(ident, "Relaationpoistot", sep = "."), rm_ind = "RelaatioID" ) } rel <- rbind(rel1, rel2) if (!any(original_version %in% rel$Versio)) stop("Annetuilla versiolla ei löytynyt relaatioita.") if (!is.null(liit)|!is.null(sis)) rel <- rel[rel$Result == c(liit,sis), ] if (nrow(rel) == 0) { cat("Jakeelle ei löytynyt kysyttyjä relaatioita tietokannassa.\n") } else { jakeet <- jaehakukone( ident, sivu = unique(c( as.character(rel$Sivu1), as.character(rel$Sivu2) )), versio = version, jae = unique(c( as.character(rel$JaeID1), as.character(rel$JaeID2) )) ) if (nrow(jakeet) == 0) stop("Relaatioissa listattuja jakeita ei löytynyt!") # Relaatiot if (nrow(rel[!(rel$Relaatio %in% sis_opt),]) > 0) { jakeet <- jakeet[c("Versio", "Sivu", "JaeID", "Result")] colnames(jakeet)[colnames(jakeet) == "JaeID"] <- "JaeID1" colnames(jakeet)[colnames(jakeet) == "Sivu"] <- "Sivu1" colnames(jakeet)[colnames(jakeet) == "Result"] <- "Jae1" rel <- rel[c("RelaatioID", "Versio", "Sivu1", "JaeID1", "Result", "Sivu2", "JaeID2")] colnames(rel)[colnames(rel) == "Result"] <- "Relaatio" out <- join( rel[(!(rel$Relaatio %in% sis_opt)) & rel$Versio %in% original_version,], jakeet, match = "first" # versio - sivu - jaeid -> yksi yhteen ) colnames(jakeet)[colnames(jakeet) == "JaeID1"] <- "JaeID2" colnames(jakeet)[colnames(jakeet) == "Sivu1"] <- "Sivu2" colnames(jakeet)[colnames(jakeet) == "Jae1"] <- "Jae2" out <- join(out, jakeet, match = "first") oprint( out[c("Versio", "RelaatioID", "Sivu1", "JaeID1", "Jae1", "Relaatio", "Sivu2", "JaeID2", "Jae2")], include.rownames = FALSE, caption = "Relaatiot", caption.placement = "top" ) } else { cat("Ei relaatioita!\n") } # Sisällytykset if (nrow(rel[(rel$Relaatio %in% sis_opt),]) > 0) { colnames(jakeet)[colnames(jakeet) %in% c("JaeID","JaeID2")] <- "JaeID1" colnames(jakeet)[colnames(jakeet) %in% c("Sivu", "Sivu2")] <- "Sivu1" colnames(jakeet)[colnames(jakeet) %in% c("Result", "Jae2")] <- "Jae1" colnames(rel)[colnames(rel) == "Relaatio"] <- "Sisällytys" out <- join( rel[rel$Sisällytys %in% sis_opt & rel$Versio %in% version[-length(version)],], jakeet, match = "first" # versio - sivu - jaeid -> yksi yhteen ) colnames(jakeet)[colnames(jakeet) == "JaeID1"] <- "JaeID2" colnames(jakeet)[colnames(jakeet) == "Sivu1"] <- "Sivu2" colnames(jakeet)[colnames(jakeet) == "Jae1"] <- "Jae2" jakeet$Versio <- as.numeric(as.character(jakeet$Versio)) - 1 out <- join(out, jakeet, match = "first") oprint( out[c("Versio", "RelaatioID", "Sivu1", "JaeID1", "Jae1", "Sisällytys", "Sivu2", "JaeID2", "Jae2")], include.rownames = FALSE, caption = "Sisällytys (uudempaan versioon)", caption.placement = "top" ) } else { cat("Ei sisällytyksiä!\n") } }

Ympäristökasvatukseen pitäisi panostaa

←--#: . Päämäärissä tulisi määrittää ympäristökasvatukselliset tavoitteet, joiden avulla luonnostellut päämäärät on mahdollista saavuttaa. Vasta jos yhteiskuntamme jäsenet sisäistävät kestävän kansalaisuuden ja kasvavat ympäristökansalaisiksi, päämäärien saavuttaminen on mahdollista. --Heta (keskustelu) 23. heinäkuuta 2014 kello 08.11 (UTC) (type: truth; paradigms: science: defence)

⇤--#: . Kyllä tätä ympäristö "kasvatus" propagandaa on jo tullut ihan liikaa, heikkohermoiset ovat jo ihan paniikissa kun luulevat maailmanlopun olevan jo ovella! --Heta (keskustelu) 23. heinäkuuta 2014 kello 08.11 (UTC) (type: truth; paradigms: science: attack)

⇤--#: . Juuri tällaiset kommentit osoittavat hyvin ympäristökasvatuksen jatkon tarvetta ;) --Heta (keskustelu) 23. heinäkuuta 2014 kello 08.11 (UTC) (type: truth; paradigms: science: attack)

⇤--#: . Ei kuulosta ollenkaan hyvältä ajatukselta kun asiaa peilaa viimeisen vuosikymmenen aikana mediasta suollettuun ilmastopelotteluun.

Kasvatuksen pitää olla objektiivistä ja varsinkin ilmastomuutoksesta puhuttaessa pitää aina mainita että kyseessä on pelkkä teoria jonka tukena on puutteelliset ilmastomallit eikä ilmasto ole lämmennyt viimeiseen 17 vuoteen. --Heta (keskustelu) 23. heinäkuuta 2014 kello 08.11 (UTC) (type: truth; paradigms: science: attack)