Nykyinen versio 13. maaliskuuta 2015 kello 12.10

Tämä sivu on tietokide alatyypiltään arviointi. Sivutunniste: Op_fi4735
Moderaattori:Ei ole (katso kaikki) Kuinka ryhtyä moderaattoriksi? Sivun edistymistä ei ole arvioitu. Arvostuksen määrää ei ole arvioitu (ks. peer review).
Lisää dataa {{#opasnet_base_link:Op_fi4735}}

Linkkejä aineistoon

Havaintoja aineistosta

Dokumentin rikastusasteen status määritellään termein Asiasanoitus ja Linkitys. Edellinen tarkoittaa jakeiden (lauseiden) tägitystä tärkeimmin asiasanoin (ks. minimitägiluettelo kohdasta Lisää tähän omia ehdotuksia asiasanoiksi) ja jälkimmäinen dokumenttien ristiinlinkitystä sopivin predikaatein (ks. kohta Lisää tähän omia ehdotuksia relaatioiksi).

Valtion_konesalistrategia_2014

Status: Asiasanoitus (käynnissä)

Havainnot:

21_polkua_kitkattomaan_Suomeen_-_ICT_2015-työryhmän_loppuraportti

Status: Asiasanoitus (käynnissä)

Havainnot:

Näytä yksityiskohdat
1. Dokumentissa toimenpide-ehdotukset ovat jakeita, jotka alkavat sanoilla "Työryhmä ehdottaa ...". Nämä jakeet ovat päätavoitteita. 2. Dokumentin pdf-versiossa on lauseita, joita ei löydy tietokannasta. Esimerkki 1 (pdf-dokumentti s.28): "ICT 2015-työryhmän ehdotus vuodeksi 2013" alla lukee "Rakennetaan yhtenäinen kansallinen palveluarkkitehtuuri (polku 1, kriittinen)" ei löydy tietokannasta. Tämä on päätavoite. Esimerkki 2 (pdf-dokumentti s.29): "Rakennetaan yritysten reaaliaikaisen talouden vaatima infrastruktuuri (polku 2). Tämäkin on päätavoite.

Asiasanoitus ja relaatiot

YSO-pohjainen asiasanoitus

Yleiseen suomalaiseen ontologiaan pohjautuva asiasanoitus. Täydellinen listaus kategorian Viestintä. Tietoverkot. Tietotekniikka. asiasanoista löytyy laajennettavassa muodossa alta julkisen hallinnon ontologian JUHO:n alta:

Viestintä. Tietoverkot. Tietotekniikka.

Näytä yksityiskohdat
aikakauslehdet arkistoala arkistointi arkistokelpoisuus arkistonmuodostussuunnitelma arkistot arkistotoimi artikkelit arvostelu asiakirjahallinto asiakirjajulkisuus asiakirjaoppaat asiakirjat asiankäsittely asiankäsittelyjärjestelmät asiantuntijajärjestelmät asiasanastot asiointi atk atk-järjestelmät atk-laitteet atk-ohjelmat atk-rikokset audiovisuaalinen aineisto audiovisuaalinen ala audiovisuaalinen laitteisto audiovisuaalinen oppimateriaali audiovisuaalinen politiikka audiovisuaalinen viestintä audiovisuaaliset opetusvälineet audiovisuaaliset palvelut automaatio automaattiset koneet avoin lähdekoodi CD-ROM-levyt digitaalinen tallennus digitaaliradio digitaaliset tallenteet digitaalitekniikka digitaalitelevisio dokumentinhallinta dokumentointi ekstranet elektroniikka-ala elektroniset kirjastot elokuvakasvatus esiintymistaito esitteet etäkäyttö Excel FOCUS Galileo grafiikka GSM hakemistot hakkerointi hakuteokset HTML hydrologia hypermedia hyperteksti hätätiedotteet ilmaisukasvatus ilmaisuvapaus ilmoitukset informaatio informaatiolukutaito informaatiopolitiikka Internet intranet ISDN joukkoviestimet joukkoviestintä journalismi juhlajulkaisut julkaiseminen julkaisut julkaisutoiminta jäljennökset kaapelilähetystoiminta kaapelitelevisio kansallisarkistot kansalliskirjastot katselutottumukset kaukopuhelut kausijulkaisut keskuskirjastot kielikasetit kirjaaminen kirjallinen viestintä kirjastoaineistot kirjastoala kirjastoautot kirjastoluettelot kirjastonhoito kirjastonkäyttö kirjastopalvelut kirjastopolitiikka kirjastorakennukset kirjastot kirjastotoimi kirjastotyö kirjat kirjeet komiteanmietinnöt kopiointi kotiseutuarkistot kotisivu koulukirjastot kriisiviestintä kryptografia kulttuurilehdet kustannustoiminta kustantajat kuuntelutottumukset kuva-arkistot kuvankäsittely kuvateokset käyttäjäkoulutus käyttöjärjestelmät käyttöliittymät laajakaistaverkot lastenkirjastot lehdistö lehdistötuki liikennetiedotus lomakkeet luettelointisäännöt luokitusjärjestelmät lähiverkot maakunta-arkistot maakuntakirjastot matkapuhelimet matkaviestimet matkaviestintä matkaviestinverkot matrikkelit media-ala mediakasvatus mediakulttuuri medialukutaito mediataide metadata mielikuvat mietinnöt mikrotietokoneet mobiililaitteet mobiilipalvelut multimedia musiikkikirjastot nauhoitus nettivalvonta näkyvyysalueet näyttelytilat ohjelmatuotanto ohjelmavälitys ohjelmointi oikeusinformatiikka organisaatioiden välinen tiedonsiirto organisaatioviestintä paikallislehdet paikallispuhelut paikallisradio paikallistelevisio painomenetelmät painotuotteet painovapaus palvelimet pelastussukellus portaalit posti postimaksut postimerkit postinjakelu postipalvelut postitoimipaikat propaganda puhelimet puhelinliikenne puhelinluettelot puhelinpalvelut puhelinsalaisuus puhelinverkot puheviestintä päätteet radio radio-ohjelmat radioasemat radiot radiotaajuudet raportit raportointi raportointijärjestelmät rekisterit salakielet salakuuntelu salaustekniikat sanomalehdet sarjakuvat satelliitit satelliittitelevisio selaimet SGML sisäinen tiedotus sisältötuotanto sosiaalinen media suhdetoiminta sähköinen allekirjoitus sähköinen arkistointi sähköinen asiointi sähköinen joukkoviestintä sähköinen tunnistaminen sähköinen viestintä sähköiset asiakirjat sähköiset henkilökortit sähköiset julkaisut sähköiset lomakkeet sähköiset maksujärjestelmät sähköiset palvelut sähköiset sopimukset sähköposti taajuusalueet tallenteet taulukkolaskenta tekstinkäsittely telehallinto telelaitokset telemaksut telemarkkinat telematiikka telepalvelut telepolitiikka telepäätelaitteet teletoiminta televisio televisio-ohjelmat televisiolupamaksut televisiot teräväpiirtotelevisio tiedonannot tiedonhaku tiedonhakujärjestelmät tiedonhallinta tiedonhankinta tiedonkulku tiedonlähteet tiedonsiirto tiedontallennus tiedonvaihto tiedonvälitys tiedotteet tiedotus tieteellinen julkaisutoiminta tieteellinen kirjoittaminen tieteelliset kirjastot tieto tieto- ja viestintätekniikka tietoarkistot tietohallinto tietohuolto tietojenkäsittely tietojärjestelmät tietokannat tietokoneavusteinen opetus tietokoneavusteiset järjestelmät tietokoneen ajokorttitutkinto tietokoneet tietokonevirukset tietoliikenne tietoliikennejärjestelmät tietoliikennetekniikka tietoliikenneverkot tietopalvelu tietostrategia tietosuoja tietotekniikka tietoteollisuus tietoturva tietotyö tietovarannot tietoverkot tietoyhteiskunta tietämyksenhallinta toimikortit toimistotekniikka UMTS UNIX uusmedia (media-ala) uutiset uutistoimistot valokuvat vapaakappaleet varmenteet verkko-opetus verkko-opiskelu verkko-oppimateriaali verkkojulkaiseminen verkkojulkaisut verkkokauppa verkkolehdet verkkopalvelut verkkotunnukset verkkoviestintä verkostoyhteistyö video videotaide viestintä viestintäala viestintäkampanjat viestintäkasvatus viestintäkulttuuri viestintäpalvelut viestintäpolitiikka viestintätekniikka viestintäteollisuus viestintäverkot viestintävälineet viihdeteollisuus viitetietokannat virallisjulkaisut virtuaalikirjastot virtuaalitodellisuus virustentorjuntaohjelmat visuaalinen viestintä wikit Windows Word for Windows WordPerfect www-sivut yhdistetty avoin tieto yksityisarkistot YLE yleinen mielipide yleiset kirjastot yleisradiotoiminta yleisö yliopistokirjastot älypuhelimet äänikirjat äänitteet

Aluehallinto. Aluepolitiikka.

Näytä yksityiskohdat
infrastruktuurit, kaupungit, osaamiskeskukset

Elinkeinot. Teollisuus. Kilpailu

Näytä yksityiskohdat
elinkaarianalyysi, elinkeinopolitiikka, elinkeinorakenne, julkiset hankinnat, kaapeliteollisuus, kannattavuus, kansainväliset yritykset, kehittämishankkeet, kilpailuetu, kilpailukyky, kilpailuttaminen, kulutushyödykkeet, liiketoiminta, rakennemuutos, robotit, siemenrahoitus, taksit, teknologiayritykset, tukimuodot, tuotekehitys, verkkoliiketoiminta, viestintäteollisuus, yksityinen sektori

Hallinto. Johtaminen. Henkilöstö.

Näytä yksityiskohdat
allekirjoittaminen, ennakointi, henkilöstöhallinto, hallinnonalan kehittäminen, hallintokulttuuri, hallinnonalan ohjaus, hallintopalvelut, hallintopolitiikka, johtamisjärjestelmät, julkinen hallinto, taloushallinto, muutosjohtaminen, ohjaus (neuvominen), ohjausjärjestelmät, taloushallinto, tietohallinto, tulosjohtaminen, prosessijohtaminen, ulkoistaminen,

Lisää tähän omia ehdotuksia asiasanoiksi

Päätös, Vaikutus, Arvo, Data, Huomio, Päätavoite, Tavoite, Toimenpide

Lisää tähän omia ehdotuksia relaatioiksi

tukee tai on linjassa, vastustaa tai on ristiriidassa, on neutraali suhteessa, liittyy, edellyttää, sisältää, vaikuttaa, vaikuttaa taloudellisesti

Tägikone

Käyttöohje

Tägikoneen idea on pitää yllä jaetietokantaa ja määritellään jakeille avainsanoja ja relaatoita joiden tarkoitus on rikastaa sivustolla käydystä keskustelusta analyysikelpoista yleisemmän tason tietoa.

#Jakeet määritellään koodilla joka lukee wikisivuilta tekstiä kappaleittain (myös taulukot ja bullet pointit). Jakeisiin lisätään myös kommentointityökalulla tehdyt kommentit, joita ei vielä ole siirretty wikitekstiin, sekä tämän sivun koodilla lisätyt jakeet. Kullakin jakeella on oma tunniste (JaeID) joka on sivukohtainen. Etsimällä jaehakukoneesta oman kommenttisi ja kopioimalla JaeID:n muihin sivun hakukoneisiin voit tarkastella kommenttiisi liitettyjä tägitietoja.

#Avainsanat ovat jaekohtaisia ja ne lisätään yleensä käsityönä. Avainsanoituksen tekee joko kommentoija itse tai moderaattori.

#Relaatiot voidaan määritellä kahden jakeen välille (myös käsityötä). Relaatiot lisää joko kommentoija itse tai moderaattori.

#Versiot - wikisivuja päivitetään mahdollisesti jatkuvasti, minkä johdosta versiointi on tarpeellista. Hakukoneissa esiintyvä Versio-kentän arvo 'nykyinen' hakee koko hankkeen uusimman version. Koska jakeet ovat versiokohtaisia niin avainsanat ja relaatiot ovat myös versiokohtaisia. Avainsanojen ja relaatioiden automaattista periytymistä on kehitetty, mutta koodi on vielä kesken .

Versiot

Versiot(OldID)
Obs	Versio	Sivu	Ident
1	1	21 polkua kitkattomaan Suomeen - ICT 2015-työryhmän loppuraportti	Op_fi4748
2	1	Asiakaspalvelu 2014 loppuraportti	Op_fi4751
3	1	Julkisen hallinnon asiakkuusstrategia	Op_fi4746
4	1	Julkisen hallinnon ICT:n hyödyntämisen strategia 2012-2020	Op_fi4734
5	1	Kansallinen paikkatietostrategia	Op_fi4744
6	1	Kohti esteetöntä tietoyhteiskuntaa toimenpideohjelma 2011-2015	Op_fi4736
7	1	Kohti uutta liikennepolitiikkaa - Älyä liikenteeseen ja viisautta liikkujille	Op_fi4740
8	1	KIDE-hanke	Op_fi4750
9	1	Opetus- ja kulttuuriministeriön älystrategia	Op_fi4742
10	1	Rakennepoliittinen ohjelma	Op_fi4749
11	1	Sähköisen asioinnin ja demokratian vauhdittamisohjelman toteuttamissuunnitelma 2009-2014	Op_fi4743
12	1	Tuottava ja uudistuva Suomi - Digitaalinen agenda vuosille 2011-2020	Op_fi4739
13	1	Valtioneuvoston periaatepäätös julkisen sektorin digitaalisten tietoaineistojen saatavuuden parantamisesta ja uudelleenkäytön edistämisestä	Op_fi4737
14	1	Valtioneuvoston periaatepäätös kansallisesta älyliikenteen strategiasta	Op_fi4738
15	1	Valtioneuvoston periaatepäätös sähköisestä tunnistamisesta	Op_fi4741
16	1	Valtioneuvoston periaatepäätös valtion pysyvien toimintamenosäästöjen aikaansaamisesta	Op_fi4745
17	1	Vaikuttavuus- ja tuloksellisuusohjelma (VATU)	Op_fi4747
18	1	Valtion_konesalistrategia_2014	Op_fi4724

Jakeiden päivitys

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

--Smxb (keskustelu) 14. joulukuuta 2014 kello 21.33 (UTC)ÄLÄ PÄIVITÄ JAKEITA TOISTAISEKSI (koodi alla mutta poistamalla '<'-merkki alusta on tämä koodinpätkä toistaiseksi poistettu käytöstä varmuuden vuoksi)!

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], res = "sentence") 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" ) </rcode>

Työkalut

Aineiston työstämiseen tarkoittuja koodeja.

Jakeet

Jaehakukone

Hakee jakeita annetuilla kriteereillä. Näyttää myös tekniset sarakkeet. Vapaakenttiin voi laittaa useita arvoja erottelemalla ne pilkuilla.

Sivu jolta jakeita haetaan:

Anna halutessasi jakeen ID(:t):

Versio:

Missä muodossa tulostetaan?:

+ 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) {
	if(tuotos == "Taulukko") {
		oprint(out, include.rownames = FALSE)
	} else {
		pver <- "Tyhjä tieto"
		psiv <- "Tyhjä tieto"
		paih <- "Tyhjä tieto"

		outs <- ""
		for(i in 1:nrow(out)) {
			ver <- as.character(out$Versio[i])
			siv <- as.character(out$Sivu[i])
			aih <- as.character(out$Aihe[i])
	
			if(!is.na(pver != ver)) if(pver != ver) outs <- c(outs, paste("Versio:", ver))
			if(!is.na(psiv != siv)) if(psiv != siv) outs <- c(outs, paste("Sivu:", siv))
			if(!is.na(paih != aih)) if(paih != aih) outs <- c(outs, paste("Aihe:", aih))
	
			outs <- c(outs, paste(as.character(out$JaeID[i]), as.character(out$Result[i])))
	
			pver <- ver
			psiv <- siv
			paih <- aih
		}
		outs <- data.frame(Jakeet = outs, T = "")
		oprint(outs, include.rownames = FALSE, show_all = TRUE)
	}
} else {
	cat("Jakeita ei löytynyt!\n")
}

Jakeenlisäyskone

Lisää tietokantaan vapaasti määriteltävän jakeen. Lisätyt jakeet näkyvät tämän sivun hakukoneissa. Niiden JaeID:llä on "L"-etuliite.

Sivu jolle jae lisätään:

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
)

Jakeenpoistokone

Merkitsee jakeen epäkelvoksi, jolloin se jätetään näyttämättä kaikissa tämän sivun hakukoneissa.

Poistettavan jakeen sivu:

Poistettavan jakeen ID (pilkulla eroteltuna useampia):

Versio:

Poiston syy:

+ 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"
)

Avainsanat

Avainsanahakukone

Hakee jaekohtaisia avainsanoja. Näyttää datan sellaisena kuin se on tietokannassa.

Sivu jonka avainsanoja haetaan:

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")
}

Avainsanoitus

Lisää annetut avainsanat tietokantaan. Avainanoja voidaan lisätä ruksaamalla annetusta listasta (vain yleisimmät) ja syöttämällä vapaakenttään pilkulla eroteltuna.

Minkä sivun jakeelle haluat lisätä avainsanoja?:

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 Data (sisältää numeroarvoja, tekstidataa tai viitteen edellisiin)
E Huomio (jae on sisällöltään huomioitava myöhemmin sen merkityksellisyydestä tai epäselvyydestä johtuen)
H Päätavoite
F Tavoite
G Toimenpide

Laita halutessasi yllä listaamattomattomia avainsanoja tähän pilkulla eroteltuna.:

+ Näytä koodi - Piilota koodi

avainsanat <- strsplit(avainsanat, ",", fixed = TRUE)[[1]]
avainsanat <- gsub("^\\s*|\\s*$", "", 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")

Avainsanan poisto

Merkitsee avainsanan epäkelvoksi, jolloin tämän sivun hakukoneet eivät näytä sitä.

+ 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

Relaatiohakukone

Hakee relaatioita joissa mahdollisesti annetut jakeet esiintyvät. Näyttää datan sellaisena kuin se on tietokannassa.

Sivu jonka relaatioita haetaan:

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")
}

Relaation lisääminen

Lisää uuden relaation tietokantaan. Samantyyppisiä relaatioita voi kerralla lisätä useita, kun erottelee JaeID:t pilkuilla: relaatiot voi tehdä kaikki yhteen, yksi kaikkiin tai yksi yhteen.

Mikä on lähtöjakeen sivu?:

Mikä on lähtöjakeen ID?:

Mikä on lähtöjakeen versio?:

Mikä on kohdejakeen sivu?:

Mikä on kohdejakeen ID?:

Kuinka lähtöjae liittyy kohdejakeeseen?:

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")

Relaation poisto

Merkitsee relaation/sisällytyksen epäkelvoksi, jolloin tämän sivun hakukoneet eivät näytä sitä.

+ 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")

Rikastetun aineiston analysointi - Yhdistelmähakukoneet

Jaekohtainen avainsanalistaus

Hakee jakeita ja näyttää kaikki niihin liittyvät avainsanat

Sivu jolta jakeita haetaan:

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 {
	# Yhdistetään kunkin jakeen avainsanat yhdelle riville
	tags <- ddply(
		tags, 
		c("Versio", "Sivu", "JaeID"), 
		function(x) {a <- x[1,];a$Avainsanat <- paste(x$Result, collapse = ", ");return(a)}
	)

	out <- join(
		out[c("Versio", "Sivu", "JaeID", "Result")],
		tags[c("Versio", "Sivu", "JaeID", "Avainsanat")],
		by = c("Versio", "Sivu", "JaeID"),
		type = "inner",
		match = "first"
	)
	
	# 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", "Avainsanat")], 
		include.rownames = FALSE, 
		show_all = TRUE
	)
}

Jae-relaatio-jae listaus

Hakee jakeita ja niihin liittyviä toisia jakeita listaten myös relaation tyypin

Sivu jolta relaatioita haetaan:

Anna halutessasi jakeen ID(:t):

Liittymistyyppi (tyhjä = kaikki):
tukee tai on linjassa
vastustaa tai on ristiriidassa
on neutraali suhteessa
liittyy
edellyttää
sisältää
vaikuttaa
vaikuttaa taloudellisesti

Versio:

Näytetäänkö tekniset yksityiskohdat?:

+ 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(liitsis)) rel <- rel[rel$Result %in% liitsis, ]

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")
		
if(details) {
		oprint(
				out[c("Versio", "RelaatioID", "Sivu1", "JaeID1", "Jae1", "Relaatio", "Sivu2", "JaeID2", "Jae2")], 
				include.rownames = FALSE, 
				caption = "Relaatiot", 
				caption.placement = "top", 
				show_all = TRUE
		)
} else {
		
			temp <-	out[c("Versio", "RelaatioID", "Sivu1", "JaeID1", "Jae1", "Relaatio", "Sivu2", "JaeID2", "Jae2")]
temp <- data.frame(
Jae1 = paste(temp$Jae1, " (", temp$Sivu1, ")", sep = ""),
Relaatio = temp$Relaatio,
Jae2 = paste(temp$Jae2, " (", temp$Sivu2, ")", sep = "")
)
oprint(temp, 
				include.rownames = FALSE, 
				caption = "Relaatiot", 
				caption.placement = "top", 
				show_all = TRUE
		)
}
	} 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", 
			show_all = TRUE
		)
	} else {
		cat("Ei sisällytyksiä!\n")
	}
}

Avainsana- ja relaatiotietojen analyysi

Hae jakeita annetuilla kriteereillä ja vertaile avainsanojen ja relaatioiden lukumääriä. Halutessasi voit myös listata jaeosumat. Vapaakenttiin voi syöttää useita arvoja erottelemalla ne pilkuilla.

Käytetyt avainsanat:

Näytä yksityiskohdat
3D-tulostus Aikataulut alustus Ammattiryhmät Aurinko Automatisaatio Biopolttoaine Dataliikenne eIDAS Elintaso Eriarvoisuus Erityisryhmät Globaaluis Henkilökortti Hybridi Hybridi-TV Häiriöt Ilmasto Innovatiivisuus Internet Joustavuus Julkinen valta Kasvihuonekaasut Kaupallisuus Kestävyys Kevyen Kilpailu Kilpailukyky Kotimaisuus Koulutus Kuuluvuus Kävely Laiton tarjonta Langattomuus Liikenne Liikenneverkostot Logistiikka Luonnonsuojelu Maatalous Mainonta Meriliikenne Metadata Nopeus Ohjaus Oikeusturva Omavaraisuus Ostovoima Palaute Peruskunto Pilvipalvelut Puelueettomuus Pysäköinti Pääkaupunkiseutu Päästöt Raha Rahoitus Rakennemuutos Rakentaminen Riippuvuus Rikokset Ruuhkautuminen Saatavuus Strategia Suunnittelu Sääntely Säästöt Tarpeet Tasa-arvo Tavaraliikenne Tehokkuus Tekninen tuki Teknologia Terveydenhuolto Terveys Tiedon hallinnointi Tiedon hallinta Tietoliikenne Tietoturva Toimintavarmuus Toimivuus Turvaverkko Tutkimus Työllisyys Työn Vaihtoehtoiset polttoaineet Vaikuttaminen Valinnanvapaus Valtio Vastuu Verkostoituminen Vesiliikenne, Tasavertaisuus Viestintäverkot Yhteiskunta Yhteiskuntamurros Yksityisautoilu Yksityisyydensuoja Yleisradio Ympäristö Ajoneuvokanta Alueellisuus Arvo Asutus Avoimuus Big Data Digitalisoituminen Eettisyys Energia Epäselvä luokka Esineiden internet Globaalius Henkilötiedot Huutokauppa Hyvinvointi Hyvinvointiyhteiskunta Infrastruktuuri Innovatiivisus Investoinnit Joukkoliikenne Kaivosteollisuus Kansainvälisyys Kaupungit Kehitys liikenteen väylät Kevytliikenne Kiinteistöt Konesalit Konkreettisuus Kunnat Kustannustehokkuus Laajakaista Lainsäädäntö Lappi Lentoliikenne Liikkumistili Linja-autot Lämmitys Maakaasu Markkinat Massavalvonta Mobiiliverkko Mopot Ohjelmistot Ohjelmistotoimittaja Operaattori Osaaminen Palvelut Palvelutaso Polttoaine Posti Pyöräily Päivitys Päätöksenteko Päätös Rahtliikenne Rajapinnat Raskas liikenne Rautatiet Robotisaatio Ruuhkamaksu Sateliittipaikannus Sovellukset Sähkö Sähköauto Talous Talouskasvu Tasapuolisuus Tasavertaisuus Tekijänoikeus Tekniikkaneutraalius Teknologianeutraalius Teollisuus testi Tiedon avoimuus Tiedon hyödyntäminen Tieliikenne Toimilupa Toiminta Tuki Turvallisuus Tuuli TV tekemiseen liittyvä Ulkomaat Uudistus Vaikutus Vakuutus Varmenne Varmuus Verotus Vesiliikenne Viranomaiset Yhteensopivuus Yhteistyö Yhteysnopeus YLE Yleispalvelu Yritykset Öljy

Minkä sivun jakeita haluat tarkastella?:

Hae jakeita joilla on ainakin yksi seuraavista avainsanoista:

Hae jakeita joilla on kaikki seuraavat avainsanat:

Haluatko nähdä kaikki löydetyt jakeet?:

Versio:

+ Näytä koodi - Piilota koodi

library(OpasnetUtils)
library(plyr)
objects.latest("Op_fi4325", "apufunktiot")
library(ggplot2)

filter <- list()
if (nchar(gsub(" ", "", avainsanat)) > 0) {
	avainsanat <- strsplit(avainsanat, ",")[[1]]
	avainsanat <- gsub("^\\s*|\\s*$", "", avainsanat)  
} else {
	avainsanat <- NULL
}
if (nchar(gsub(" ", "", avainsanat_all)) > 0) {
	avainsanat_all <- strsplit(avainsanat_all, ",")[[1]]
	avainsanat_all <- gsub("^\\s*|\\s*$", "", avainsanat_all)
	#filter$Avainsana <- avainsanat_all
} else {
	avainsanat_all <- NULL
}
filter$Sivu <- sivu
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$Versio <- version

if (length(filter) == 0) filter <- NULL

tags <- try_dl_rm(
		paste(ident, "Avainsanat", sep = "."), 
		filter = filter, 
		rm_id = paste(ident, "Avainsananpoistot", sep = "."),
		rm_ind = "AvainsanaID"
)

jaeid <- NULL

if (!is.null(avainsanat)|!is.null(avainsanat_all)) {
	tags <- tags[tags$Result %in% c(avainsanat, avainsanat_all), ]
	jaeid <- unique(as.character(tags$JaeID))
}

if(!is.null(avainsanat_all)) {
	temp <- list()
	for (i in 1:nrow(jaeid)) {
		temp[[i]] <- avainsanat_all %in% tags$Result[tags$JaeID == jaeid[i]]
	}
	temp <- lapply(temp, all)
	jaeid <- jaeid[temp]
	tags <- tags[tags$JaeID %in% jaeid,]
}

if (nrow(tags) == 0) {
	cat("Avainsanoja ei löytynyt.\n")
}

if (is.null(filter)) {
	filter2 <- list()
} else {
	filter2 <- filter
}

filter2$JaeID <- jaeid

if (length(filter2) == 0) filter2 <- NULL

if (jaelista) {
	jakeet <- jaehakukone(
		ident, 
		sivu = filter2$Sivu, # *list$non-existent returns NULL
		versio = filter2$Versio, 
		jae = filter2$JaeID
	)
	if (nrow(jakeet) == 0) {
		cat("Avainsanoissa listattuja jakeita ei löytynyt.\n")
	} else {
		colnames(jakeet)[colnames(jakeet) == "Result"] <- "Sisältö"
		tagged <- NULL
		if (nrow(tags) > 0) {
			#tagged <- join(
			#	jakeet[c("Versio", "Sivu", "Aihe", "JaeID")], 
			#	tags[c("Versio", "Sivu", "JaeID", "Result")]
			#)
			#colnames(tagged)[colnames(tagged) == "Result"] <- "Avainsana"
			tagged <- tapply(tags$Result, tags[c("Versio", "Sivu", "JaeID")], paste, collapse = ", ")
			tagged <- as.data.frame(as.table(tagged))
			colnames(tagged)[colnames(tagged) == "Freq"] <- "Avainsanat"
			tagged <- join(
				jakeet[c("Versio", "Sivu", "JaeID", "Sisältö")], 
				tagged[c("Versio", "Sivu", "JaeID", "Avainsanat")],
				type = "inner",
				match = "first"
			)
			oprint(
				tagged[c("Versio", "Sivu", "JaeID", "Sisältö", "Avainsanat")],
				caption = "Jakeet", 
				caption.placement = "top",
				include.rownames = FALSE,
				digits = rep(0, 6)
			)
		}
	}
}

if (nrow(tags) > 0) {
	tags_out <- ddply(tags, "Result", nrow)
	colnames(tags_out) <- c("Avainsana", "Lukumäärä")
	tags_out <- tags_out[order(tags_out$Lukumäärä, decreasing = TRUE),]
	oprint(
		tags_out,
		caption = "Avainsanojen lukumäärät", 
		caption.placement = "top",
		include.rownames = FALSE,
		digits = c(0, 0, 0)
	)
	ggplot(tags_out, aes(x = Avainsana, y = Lukumäärä, fill = Avainsana)) + 
		geom_bar(stat = "identity") + 
		theme_grey(base_size = 24) + 
		theme(axis.text.x = element_blank(), axis.title.x = element_blank()) + 
		ggtitle("Avainsanojen frekvenssit")
}

# 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)

filter3 <- list()
filter3$Sivu1 <- sivu
filter3$Versio <- version
filter3$JaeID1 <- jaeid

rel1 <- try_dl_rm(
	paste(ident, "Relaatiot", sep = "."), 
	filter = filter3, 
	rm_id = paste(ident, "Relaationpoistot", sep = "."),
	rm_ind = "RelaatioID"
)
if (is.null(jaeid)) {
	rel2 <- data.frame()
} else {
	filter3$JaeID1 <- NULL
	filter3$Sivu1 <- NULL
	filter3$JaeID2 <- jaeid
	filter3$Sivu2 <- sivu
	
	rel2 <- try_dl_rm(
		paste(ident, "Relaatiot", sep = "."), 
		filter = filter3, 
		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 (nrow(rel) == 0) {
	cat("Jakeelle ei löytynyt kysyttyjä relaatioita tietokannassa.\n")
} else {
	related <- rel[
		rel$Result %in% c(
			"tukee tai on linjassa", 
			"vastustaa tai on ristiriidassa",
			"on neutraali suhteessa", 
			"liittyy",
			"edellyttää",
			"sisältää",
			"vaikuttaa",
			"vaikuttaa taloudellisesti"
		), ]
	related$Result <- as.character(related$Result)
	affected <- rel[
		rel$Result %in% c(
			"ehdotus ei ole antanut aihetta muutoksiin",
			"ehdotus ei ole antanut aihetta muutoksiin vaan sisältyy olennaisesti jo kirjattuun", 
			"ehdotus huomioitu ja liittyvää painotusta muutettu",
			"ehdotus huomioitu ja uusi kohta lisätty"
		), ]
	affected$Result <- as.character(affected$Result)
	affected$Result[affected$Result == "ehdotus ei ole antanut aihetta muutoksiin"] <- "Ei aihetta muutoksiin"
	affected$Result[affected$Result == "ehdotus ei ole antanut aihetta muutoksiin vaan sisältyy olennaisesti jo kirjattuun"] <- "Sisältyy valmiiksi"
	affected$Result[affected$Result == "ehdotus huomioitu ja liittyvää painotusta muutettu"] <- "Huomioitu painotuksella"
	affected$Result[affected$Result == "ehdotus huomioitu ja uusi kohta lisätty"] <- "Huomioitu lisäyksellä"
	
	related_out <- ddply(related, "Result", nrow)
	colnames(related_out) <- c("Relaatio", "Lukumäärä")
	
	affected_out <- ddply(affected, "Result", nrow)
	colnames(affected_out) <- c("Sisällytys", "Lukumäärä")
}

if (nrow(related_out > 0)) {
	ggplot(related_out, aes(x = Relaatio, y = Lukumäärä, fill = Relaatio)) + 
			geom_bar(stat = "identity") + 
			theme_grey(base_size = 24) + 
			theme(axis.text.x = element_blank(), axis.title.x = element_blank()) + 
			ggtitle("Relaatioiden frekvenssit")# + facet_wrap(~Sivu)
}

if (nrow(affected_out > 0)) {
	ggplot(affected_out, aes(x = Sisällytys, y = Lukumäärä, fill = Sisällytys)) + 
			geom_bar(stat = "identity") + 
			theme_grey(base_size = 24) + 
			theme(axis.text.x = element_blank(), axis.title.x = element_blank()) + 
			ggtitle("Sisällytyksen frekvenssit")# + facet_wrap(~Sivu)
}

Ero sivun ”Strategiadatan analyysi” versioiden välillä

Nykyinen versio 13. maaliskuuta 2015 kello 12.10

Sisällys

Linkkejä aineistoon

Havaintoja aineistosta

Asiasanoitus ja relaatiot

YSO-pohjainen asiasanoitus

Lisää tähän omia ehdotuksia asiasanoiksi

Lisää tähän omia ehdotuksia relaatioiksi

Tägikone

Käyttöohje

Versiot

Jakeiden päivitys

Työkalut

Jakeet

Jaehakukone

Jakeenlisäyskone

Jakeenpoistokone

Avainsanat

Avainsanahakukone

Avainsanoitus

Avainsanan poisto

Relaatiot

Relaatiohakukone

Relaation lisääminen

Relaation poisto

Rikastetun aineiston analysointi - Yhdistelmähakukoneet

Jaekohtainen avainsanalistaus

Jae-relaatio-jae listaus

Avainsana- ja relaatiotietojen analyysi

Navigointivalikko

@@ Rivi 1: / Rivi 1: @@
-{{arviointi}}
+{{arviointi|status=Meneillään oleva arviointi}}
 == Linkkejä aineistoon ==
@@ Rivi 23: / Rivi 23: @@
+== Havaintoja aineistosta ==
+Dokumentin rikastusasteen status määritellään termein Asiasanoitus ja Linkitys. Edellinen tarkoittaa jakeiden (lauseiden) tägitystä tärkeimmin asiasanoin (ks. minimitägiluettelo kohdasta [[Strategiadatan_analyysi#Lis.C3.A4.C3.A4_t.C3.A4h.C3.A4n_omia_ehdotuksia_asiasanoiksi | Lisää tähän omia ehdotuksia asiasanoiksi]]) ja jälkimmäinen dokumenttien ristiinlinkitystä sopivin predikaatein (ks. kohta [[Strategiadatan_analyysi#Lis.C3.A4.C3.A4_t.C3.A4h.C3.A4n_omia_ehdotuksia_relaatioiksi | Lisää tähän omia ehdotuksia relaatioiksi]]).
+*[[Valtion_konesalistrategia_2014]]
+'''Status:''' Asiasanoitus (käynnissä)
+'''Havainnot:'''
+*[[21_polkua_kitkattomaan_Suomeen_-_ICT_2015-työryhmän_loppuraportti]]
+'''Status:''' Asiasanoitus (käynnissä)
+'''Havainnot:'''
+{{piilotettu|
+. Dokumentissa toimenpide-ehdotukset ovat jakeita, jotka alkavat sanoilla "Työryhmä ehdottaa ...". Nämä jakeet ovat '''päätavoitteita'''.<br />
+. Dokumentin pdf-versiossa on lauseita, joita ei löydy tietokannasta.<br />
+Esimerkki 1 (pdf-dokumentti s.28): "ICT 2015-työryhmän ehdotus vuodeksi 2013" alla lukee "Rakennetaan yhtenäinen kansallinen palveluarkkitehtuuri (polku 1, kriittinen)"
+ei löydy tietokannasta. Tämä on '''päätavoite'''.<br />
+Esimerkki 2 (pdf-dokumentti s.29): "Rakennetaan yritysten reaaliaikaisen talouden vaatima infrastruktuuri (polku 2). Tämäkin on '''päätavoite'''.<br />
+}}
 == Asiasanoitus ja relaatiot ==
@@ Rivi 388: / Rivi 413: @@
 === Lisää tähän omia ehdotuksia asiasanoiksi ===
-päätavoite, tavoite, toimenpide
+Päätös, Vaikutus, Arvo, Data, Huomio, Päätavoite, Tavoite, Toimenpide
 === Lisää tähän omia ehdotuksia relaatioiksi ===
-liittyy, edellyttää, sisältää, vaikuttaa, vastaa, tukee, kumoaa,
+tukee tai on linjassa, vastustaa tai on ristiriidassa,
+on neutraali suhteessa, liittyy, edellyttää, sisältää, vaikuttaa, vaikuttaa taloudellisesti
 = Tägikone =
@@ Rivi 433: / Rivi 462: @@
 |Valtion_konesalistrategia_2014|Op_fi4724|
 </t2b>
 === Jakeiden päivitys ===
-'''Päivitä Versiot-tauluun sivut ja ikilinkin IDt ja aja alla oleva koodi''' --[[Käyttäjä:Smxb|Smxb]] ([[Keskustelu käyttäjästä:Smxb|keskustelu]]) 14. joulukuuta 2014 kello 21.33 (UTC)ÄLÄ PÄIVITÄ JAKEITA TOISTAISEKSI!
-<rcode label="Päivitä jakeet" variables="
+'''Päivitä Versiot-tauluun sivut ja ikilinkin IDt ja aja alla oleva koodi'''
+--[[Käyttäjä:Smxb|Smxb]] ([[Keskustelu käyttäjästä:Smxb|keskustelu]]) 14. joulukuuta 2014 kello 21.33 (UTC)ÄLÄ PÄIVITÄ JAKEITA TOISTAISEKSI (koodi alla mutta poistamalla '<'-merkki alusta on tämä koodinpätkä toistaiseksi poistettu käytöstä varmuuden vuoksi)!
+rcode label="Päivitä jakeet" variables="
 	name:ident|type:hidden|default:'{{{1|Op_fi{{PAGEID}}}}}'|
 	name:pagename|type:hidden|default:'{{PAGENAME}}'
@@ Rivi 472: / Rivi 506: @@
 </rcode>
-==Yhdistelmähakukoneet==
-=== Jaekohtainen avainsanalistaus ===
-'''Hakee jakeita ja näyttää kaikki niihin liittyvät avainsanat'''
+==Työkalut==
-<rcode label="Hae" name="avainsanat_disp" embed=1 variables="
-	name:sivu|description:Sivu jolta jakeita haetaan|type:selection|options:
+Aineiston työstämiseen tarkoittuja koodeja.
+=== Jakeet ===
+==== Jaehakukone ====
+'''Hakee jakeita annetuilla kriteereillä. Näyttää myös tekniset sarakkeet. Vapaakenttiin voi laittaa useita arvoja erottelemalla ne pilkuilla.'''
+<rcode label="Näytä jakeet" name="jakeet" embed=0 variables="
+	name:sivu|description:Sivu jolta jakeita haetaan|type:selection|options:
 		NULL;Kaikilta;
 		'21 polkua kitkattomaan Suomeen - ICT 2015-työryhmän loppuraportti';21 polkua kitkattomaan Suomeen - ICT 2015-työryhmän loppuraportti;
@@ Rivi 499: / Rivi 541: @@
 	name:jaeid|description:Anna halutessasi jakeen ID(:t)|type:text|default:hae kaikki|
 	name:version|description:Versio|type:text|default:nykyinen|
+	name:tuotos|description:Missä muodossa tulostetaan?|type:selection|options:'Numeroitu teksti';Numeroitu teksti;'Taulukko';Taulukko|default:'Numeroitu teksti'|
 	name:ident|type:hidden|default:'{{{1|Op_fi{{PAGEID}}}}}'
 ">
@@ Rivi 523: / Rivi 566: @@
 out <- jaehakukone(ident, sivu = sivu, versio = version, jae = jaeid)
-if (nrow(out) == 0) {
+if (nrow(out) > 0) {
-	stop("Jakeita ei löytynyt!")
+	if(tuotos == "Taulukko") {
-}
+		oprint(out, include.rownames = FALSE)
+	} else {
+		pver <- "Tyhjä tieto"
+		psiv <- "Tyhjä tieto"
+		paih <- "Tyhjä tieto"
-filter <- list()
+		outs <- ""
-filter$Sivu <- sivu
+		for(i in 1:nrow(out)) {
-filter$Versio <- version
+			ver <- as.character(out$Versio[i])
-filter$JaeID <- jaeid
+			siv <- as.character(out$Sivu[i])
+			aih <- as.character(out$Aihe[i])
+			if(!is.na(pver != ver)) if(pver != ver) outs <- c(outs, paste("Versio:", ver))
+			if(!is.na(psiv != siv)) if(psiv != siv) outs <- c(outs, paste("Sivu:", siv))
+			if(!is.na(paih != aih)) if(paih != aih) outs <- c(outs, paste("Aihe:", aih))
+			outs <- c(outs, paste(as.character(out$JaeID[i]), as.character(out$Result[i])))
+			pver <- ver
+			psiv <- siv
+			paih <- aih
+		}
+		outs <- data.frame(Jakeet = outs, T = "")
+		oprint(outs, include.rownames = FALSE, show_all = TRUE)
+	}
+} else {
+	cat("Jakeita ei löytynyt!\n")
+}
+</rcode>
-tags <- try_dl_rm(
+==== Jakeenlisäyskone ====
-	paste(ident, "Avainsanat", sep = "."),
-	filter = filter,
-	rm_id = paste(ident, "Avainsananpoistot", sep = "."),
-	rm_ind = "AvainsanaID"
-)
-if (nrow(tags) == 0) {
+'''Lisää tietokantaan vapaasti määriteltävän jakeen. Lisätyt jakeet näkyvät tämän sivun hakukoneissa. Niiden JaeID:llä on "L"-etuliite.'''
-	cat("Avainsanoja ei löytynyt!\n")
+<rcode label="Lisää jae" name="jakeenlisays" embed=1 variables="
-} else {
+	name:sivu|description:Sivu jolle jae lisätään|type:selection|options:
-	# Yhdistetään kunkin jakeen avainsanat yhdelle riville
+		'21 polkua kitkattomaan Suomeen - ICT 2015-työryhmän loppuraportti';21 polkua kitkattomaan Suomeen - ICT 2015-työryhmän loppuraportti;
-	tags <- ddply(
+		'Asiakaspalvelu 2014 loppuraportti';Asiakaspalvelu 2014 loppuraportti;
-		tags,
+		'Julkisen hallinnon asiakkuusstrategia';Julkisen hallinnon asiakkuusstrategia;
-		c("Versio", "Sivu", "JaeID"),
+		'Julkisen hallinnon ICT:n hyödyntämisen strategia 2012-2020';Julkisen hallinnon ICT:n hyödyntämisen strategia 2012-2020;
-		function(x) {a <- x[1,];a$Avainsanat <- paste(x$Result, collapse = ", ");return(a)}
+		'Kansallinen paikkatietostrategia';Kansallinen paikkatietostrategia;
-	)
+		'Kohti esteetöntä tietoyhteiskuntaa toimenpideohjelma 2011-2015';Kohti esteetöntä tietoyhteiskuntaa toimenpideohjelma 2011-2015;
+		'Kohti uutta liikennepolitiikkaa - Älyä liikenteeseen ja viisautta liikkujille';Kohti uutta liikennepolitiikkaa - Älyä liikenteeseen ja viisautta liikkujille;
-	out <- join(
+		'KIDE-hanke';KIDE-hanke;
-		out[c("Versio", "Sivu", "JaeID", "Result")],
+		'Opetus- ja kulttuuriministeriön älystrategia';Opetus- ja kulttuuriministeriön älystrategia;
-		tags[c("Versio", "Sivu", "JaeID", "Avainsanat")],
+		'Rakennepoliittinen ohjelma';Rakennepoliittinen ohjelma;
-		by = c("Versio", "Sivu", "JaeID"),
+		'Sähköisen asioinnin ja demokratian vauhdittamisohjelman toteuttamissuunnitelma 2009-2014';Sähköisen asioinnin ja demokratian vauhdittamisohjelman toteuttamissuunnitelma 2009-2014;
-		type = "inner",
+		'Tuottava ja uudistuva Suomi - Digitaalinen agenda vuosille 2011-2020';Tuottava ja uudistuva Suomi - Digitaalinen agenda vuosille 2011-2020;
-		match = "first"
+		'Valtioneuvoston periaatepäätös julkisen sektorin digitaalisten tietoaineistojen saatavuuden parantamisesta ja uudelleenkäytön edistämisestä';Valtioneuvoston periaatepäätös julkisen sektorin digitaalisten tietoaineistojen saatavuuden parantamisesta ja uudelleenkäytön edistämisestä;
-	)
+		'Valtioneuvoston periaatepäätös kansallisesta älyliikenteen strategiasta';Valtioneuvoston periaatepäätös kansallisesta älyliikenteen strategiasta;
+		'Valtioneuvoston periaatepäätös sähköisestä tunnistamisesta';Valtioneuvoston periaatepäätös sähköisestä tunnistamisesta;
-	# Jos annettiin vain yksi versio ja/tai sivu niin niitä ei tarvitse printata
+		'Valtioneuvoston periaatepäätös valtion pysyvien toimintamenosäästöjen aikaansaamisesta';Valtioneuvoston periaatepäätös valtion pysyvien toimintamenosäästöjen aikaansaamisesta;
-	filter_ind <- NULL
+		'Vaikuttavuus- ja tuloksellisuusohjelma (VATU)';Vaikuttavuus- ja tuloksellisuusohjelma (VATU);
-	if (length(version) != 1) filter_ind <- c(filter_ind, "Versio")
+		'Valtion_konesalistrategia_2014';Valtion_konesalistrategia_2014|
-	if (length(sivu) != 1) filter_ind <- c(filter_ind, "Sivu")
+	name:version|description:Versio|type:text|default:nykyinen|
-	filter_ind <- c(filter_ind, "JaeID")
+	name:sisalto|description:Jakeen sisältö|type:textbox|
+	name:ident|type:hidden|default:'{{{1|Op_fi{{PAGEID}}}}}'|
-	oprint(
+	name:pagename|type:hidden|default:'{{PAGENAME}}'
-		out[c(filter_ind, "Result", "Avainsanat")],
+">
-		include.rownames = FALSE,
+library(OpasnetUtils)
-		show_all = TRUE
+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
+)
 </rcode>
-=== Jae-relaatio-jae listaus ===
+==== Jakeenpoistokone ====
-'''Hakee jakeita ja niihin liittyviä toisia jakeita listaten myös relaation tyypin'''
-<rcode label="Hae" name="relaatiot_disp" embed=1 variables="
+'''Merkitsee jakeen epäkelvoksi, jolloin se jätetään näyttämättä kaikissa tämän sivun hakukoneissa.'''
-	name:sivu|description:Sivu jolta relaatioita haetaan|type:selection|options:
+<rcode label="Poista jae" name="jakeenpoisto" embed=1 variables="
-		NULL;Kaikilta;
+	name:sivu|description:Poistettavan jakeen sivu|type:selection|options:
 		'21 polkua kitkattomaan Suomeen - ICT 2015-työryhmän loppuraportti';21 polkua kitkattomaan Suomeen - ICT 2015-työryhmän loppuraportti;
 		'Asiakaspalvelu 2014 loppuraportti';Asiakaspalvelu 2014 loppuraportti;
@@ Rivi 594: / Rivi 683: @@
 		'Vaikuttavuus- ja tuloksellisuusohjelma (VATU)';Vaikuttavuus- ja tuloksellisuusohjelma (VATU);
 		'Valtion_konesalistrategia_2014';Valtion_konesalistrategia_2014|
-	name:jaeid|description:Anna halutessasi jakeen ID(:t)|type:text|default:hae kaikki|
+	name:jaeid|description:Poistettavan jakeen ID (pilkulla eroteltuna useampia)|type:text|
-	name:liitsis|description:Liittymistyyppi (tyhjä = kaikki)|type:checkbox|options:
-		'tukee tai on linjassa';Tukee tai on linjassa;
-		'vastustaa tai on ristiriidassa';Vastustaa tai on ristiriidassa;
-		'on neutraali suhteessa';On neutraali suhteessa;
-		'on uusi linjaus tai painotus';On uusi linjaus tai painotus;
-		'liittyy';liittyy;
-		'edellyttää';edellyttää;
-		'sisältää';sisältää;
-		'vaikuttaa';vaikuttaa;
-		'vastaa';vastaa;
-		'kumoaa';kumoaa|
 	name:version|description:Versio|type:text|default:nykyinen|
-name:details|description:Näytetäänkö tekniset yksityiskohdat?|type:selection|options:FALSE;Ei, vain jakeiden sisältö;TRUE;Kyllä, myös jakeiden numerot|default:FALSE|
+	name:syy|description:Poiston syy|type:selection|options:
-	name:ident|type:hidden|default:'{{{1|Op_fi{{PAGEID}}}}}'
+		' ';- Valitse syy -;
+		'Tekninen jae';Tekninen jae;
+		'Jae ei liity sivun aiheeseen';Jae ei liity sivun aiheeseen;
+		'Jae on häiriköintiä';Jae on häiriköintiä (käytä säästellen)|
+	name:ident|type:hidden|default:'{{{1|Op_fi{{PAGEID}}}}}'|
+	name:pagename|type:hidden|default:'{{PAGENAME}}'
 ">
-# Eri sisältymistyypit pitää määritellä niin että ne voidaan käsitellä erillään muista relaatioista
+library(OpasnetUtils)
-sis_opt <- c(
-	'ehdotus huomioitu ja liittyvää painotusta muutettu',
+jaeid <- strsplit(jaeid, ",", fixed = TRUE)[[1]]
-	'ehdotus huomioitu ja uusi kohta lisätty',
+jaeid <- gsub(" ", "", jaeid)
-	'ehdotus ei ole antanut aihetta muutoksiin',
-	'ehdotus ei ole antanut aihetta muutoksiin vaan sisältyy olennaisesti jo kirjattuun'
+if (sum(nchar(jaeid)) == 0) stop("Anna jakeen ID")
-)
-#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 (tolower(version) == "nykyinen") {
-if (!is.null(sivu)) sivu <- gsub("^\\s*|\\s*$", "", strsplit(sivu, ",")[[1]])
+	objects.latest("Op_fi4325", "apufunktiot")
-if (tolower(jaeid == "hae kaikki")) {
+	version <- get_current_version(ident)
-	jaeid <- NULL
 } else {
-	jaeid <- gsub("^\\s*|\\s*$", "", strsplit(jaeid, ",")[[1]])
+	version <- as.numeric(version)
-}
-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()
+out <- data.frame(
-filter$Sivu1 <- sivu
+	Versio = version,
-filter$Versio <- version
+	Sivu = sivu,
-filter$JaeID1 <- jaeid
+	Aika = date(),
+	Käyttäjä = wiki_username,
+	Syy = syy,
+	Result = as.character(jaeid)
+)
-rel1 <- try_dl_rm(
+opbase.upload(
-		paste(ident, "Relaatiot", sep = "."),
+	out,
-		filter = filter,
+	who = wiki_username,
-		rm_id = paste(ident, "Relaationpoistot", sep = "."),
+	name = pagename,
-		rm_ind = "RelaatioID"
+	subset = "Jakeenpoistot",
+	act_type = "append",
+	language = "fin"
 )
-if (is.null(jaeid)) {
+</rcode>
-	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.")
+=== Avainsanat ===
-if (!is.null(liitsis)) rel <- rel[rel$Result %in% liitsis, ]
+==== Avainsanahakukone ====
-if (nrow(rel) == 0) {
+'''Hakee jaekohtaisia avainsanoja. Näyttää datan sellaisena kuin se on tietokannassa.'''
-	cat("Jakeelle ei löytynyt kysyttyjä relaatioita tietokannassa.\n")
+<rcode label="Näytä avainsanat" name="avainsanat_display" embed=1 variables="
-} else {
+		name:sivu|description:Sivu jonka avainsanoja haetaan|type:selection|options:
-	jakeet <- jaehakukone(
+		NULL;Kaikki;
-		ident,
+		'21 polkua kitkattomaan Suomeen - ICT 2015-työryhmän loppuraportti';21 polkua kitkattomaan Suomeen - ICT 2015-työryhmän loppuraportti;
-		sivu = unique(c(
+		'Asiakaspalvelu 2014 loppuraportti';Asiakaspalvelu 2014 loppuraportti;
-				as.character(rel$Sivu1),
+		'Julkisen hallinnon asiakkuusstrategia';Julkisen hallinnon asiakkuusstrategia;
-				as.character(rel$Sivu2)
+		'Julkisen hallinnon ICT:n hyödyntämisen strategia 2012-2020';Julkisen hallinnon ICT:n hyödyntämisen strategia 2012-2020;
-		)),
+		'Kansallinen paikkatietostrategia';Kansallinen paikkatietostrategia;
-		versio = version,
+		'Kohti esteetöntä tietoyhteiskuntaa toimenpideohjelma 2011-2015';Kohti esteetöntä tietoyhteiskuntaa toimenpideohjelma 2011-2015;
-		jae = unique(c(
+		'Kohti uutta liikennepolitiikkaa - Älyä liikenteeseen ja viisautta liikkujille';Kohti uutta liikennepolitiikkaa - Älyä liikenteeseen ja viisautta liikkujille;
-			as.character(rel$JaeID1),
+		'KIDE-hanke';KIDE-hanke;
-			as.character(rel$JaeID2)
+		'Opetus- ja kulttuuriministeriön älystrategia';Opetus- ja kulttuuriministeriön älystrategia;
-		))
+		'Rakennepoliittinen ohjelma';Rakennepoliittinen ohjelma;
-	)
+		'Sähköisen asioinnin ja demokratian vauhdittamisohjelman toteuttamissuunnitelma 2009-2014';Sähköisen asioinnin ja demokratian vauhdittamisohjelman toteuttamissuunnitelma 2009-2014;
-	if (nrow(jakeet) == 0) stop("Relaatioissa listattuja jakeita ei löytynyt!")
+		'Tuottava ja uudistuva Suomi - Digitaalinen agenda vuosille 2011-2020';Tuottava ja uudistuva Suomi - Digitaalinen agenda vuosille 2011-2020;
+		'Valtioneuvoston periaatepäätös julkisen sektorin digitaalisten tietoaineistojen saatavuuden parantamisesta ja uudelleenkäytön edistämisestä';Valtioneuvoston periaatepäätös julkisen sektorin digitaalisten tietoaineistojen saatavuuden parantamisesta ja uudelleenkäytön edistämisestä;
-	# Relaatiot
+		'Valtioneuvoston periaatepäätös kansallisesta älyliikenteen strategiasta';Valtioneuvoston periaatepäätös kansallisesta älyliikenteen strategiasta;
-	if (nrow(rel[!(rel$Relaatio %in% sis_opt),]) > 0) {
+		'Valtioneuvoston periaatepäätös sähköisestä tunnistamisesta';Valtioneuvoston periaatepäätös sähköisestä tunnistamisesta;
-		jakeet <- jakeet[c("Versio", "Sivu", "JaeID", "Result")]
+		'Valtioneuvoston periaatepäätös valtion pysyvien toimintamenosäästöjen aikaansaamisesta';Valtioneuvoston periaatepäätös valtion pysyvien toimintamenosäästöjen aikaansaamisesta;
-		colnames(jakeet)[colnames(jakeet) == "JaeID"] <- "JaeID1"
+		'Vaikuttavuus- ja tuloksellisuusohjelma (VATU)';Vaikuttavuus- ja tuloksellisuusohjelma (VATU);
-		colnames(jakeet)[colnames(jakeet) == "Sivu"] <- "Sivu1"
+		'Valtion_konesalistrategia_2014';Valtion_konesalistrategia_2014|
-		colnames(jakeet)[colnames(jakeet) == "Result"] <- "Jae1"
+		name:jaeid|description:Anna halutessasi jakeen ID(:t)|type:text|default:hae kaikki|
-		rel <- rel[c("RelaatioID", "Versio", "Sivu1", "JaeID1", "Result", "Sivu2", "JaeID2")]
+		name:version|description:Versio|type:text|default:nykyinen|
-		colnames(rel)[colnames(rel) == "Result"] <- "Relaatio"
+		name:ident|type:hidden|default:'{{{1|Op_fi{{PAGEID}}}}}'
-		out <- join(
+">
-				rel[(!(rel$Relaatio %in% sis_opt)) & rel$Versio %in% original_version,],
+library(OpasnetUtils)
-				jakeet,
+library(plyr)
-				match = "first" # versio - sivu - jaeid -> yksi yhteen
+objects.latest("Op_fi4325", "apufunktiot")
-		)
+# Erottelu pilkuilla ja välilyöntien poisto
-		colnames(jakeet)[colnames(jakeet) == "JaeID1"] <- "JaeID2"
+if (!is.null(sivu)) sivu <- gsub("^\\s*|\\s*$", "", strsplit(sivu, ",")[[1]])
-		colnames(jakeet)[colnames(jakeet) == "Sivu1"] <- "Sivu2"
+if (tolower(jaeid == "hae kaikki")) {
-		colnames(jakeet)[colnames(jakeet) == "Jae1"] <- "Jae2"
+	jaeid <- NULL
-		out <- join(out, jakeet, match = "first")
-if(details) {
-		oprint(
-				out[c("Versio", "RelaatioID", "Sivu1", "JaeID1", "Jae1", "Relaatio", "Sivu2", "JaeID2", "Jae2")],
-				include.rownames = FALSE,
-				caption = "Relaatiot",
-				caption.placement = "top",
-				show_all = TRUE
-		)
 } else {
+	jaeid <- gsub("^\\s*|\\s*$", "", strsplit(jaeid, ",")[[1]])
-			temp <-	out[c("Versio", "RelaatioID", "Sivu1", "JaeID1", "Jae1", "Relaatio", "Sivu2", "JaeID2", "Jae2")]
+}
-temp <- data.frame(
+version <- gsub("^\\s*|\\s*$", "", strsplit(version, ",")[[1]])
-Jae1 = paste(temp$Jae1, " (", temp$Sivu1, ")", sep = ""),
+a <- tolower(version) == "nykyinen"
-Relaatio = temp$Relaatio,
+if (any(a)) {
-Jae2 = paste(temp$Jae2, " (", temp$Sivu2, ")", sep = "")
+	version <- version[!a]
-)
+	version <- c(version, get_current_version(ident))
-oprint(temp,
-				include.rownames = FALSE,
-				caption = "Relaatiot",
-				caption.placement = "top",
-				show_all = TRUE
-		)
-}
-	} 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",
-			show_all = TRUE
-		)
-	} else {
-		cat("Ei sisällytyksiä!\n")
-	}
 }
+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")
+}
 </rcode>
-=== Avainsana- ja relaatiotietojen analyysi ===
+==== Avainsanoitus ====
-'''Hae jakeita annetuilla kriteereillä ja vertaile avainsanojen ja relaatioiden lukumääriä. Halutessasi voit myös listata jaeosumat. Vapaakenttiin voi syöttää useita arvoja erottelemalla ne pilkuilla.'''
+'''Lisää annetut avainsanat tietokantaan. Avainanoja voidaan lisätä ruksaamalla annetusta listasta (vain yleisimmät) ja syöttämällä vapaakenttään pilkulla eroteltuna.'''
+<rcode label="Lisää avainsana" name="avainsananlisays" embed=1 variables="
-Käytetyt avainsanat:
+	name:sivu|description:Minkä sivun jakeelle haluat lisätä avainsanoja?|type:selection|options:
-{{piilotettu|
+		'21 polkua kitkattomaan Suomeen - ICT 2015-työryhmän loppuraportti';21 polkua kitkattomaan Suomeen - ICT 2015-työryhmän loppuraportti;
-D-tulostus                  Aikataulut                   Ajoneuvokanta                Alueellisuus
+		'Asiakaspalvelu 2014 loppuraportti';Asiakaspalvelu 2014 loppuraportti;
-alustus                      Ammattiryhmät                Arvo                         Asutus
+		'Julkisen hallinnon asiakkuusstrategia';Julkisen hallinnon asiakkuusstrategia;
-Aurinko                      Automatisaatio               Avoimuus                     Big Data
+		'Julkisen hallinnon ICT:n hyödyntämisen strategia 2012-2020';Julkisen hallinnon ICT:n hyödyntämisen strategia 2012-2020;
-Biopolttoaine                Dataliikenne                 Digitalisoituminen           Eettisyys
+		'Kansallinen paikkatietostrategia';Kansallinen paikkatietostrategia;
-eIDAS                        Elintaso                     Energia                      Epäselvä luokka
+		'Kohti esteetöntä tietoyhteiskuntaa toimenpideohjelma 2011-2015';Kohti esteetöntä tietoyhteiskuntaa toimenpideohjelma 2011-2015;
-Eriarvoisuus                 Erityisryhmät                Esineiden internet           Globaalius
+		'Kohti uutta liikennepolitiikkaa - Älyä liikenteeseen ja viisautta liikkujille';Kohti uutta liikennepolitiikkaa - Älyä liikenteeseen ja viisautta liikkujille;
-Globaaluis                   Henkilökortti                Henkilötiedot                Huutokauppa
+		'KIDE-hanke';KIDE-hanke;
-Hybridi                      Hybridi-TV                   Hyvinvointi                  Hyvinvointiyhteiskunta
+		'Opetus- ja kulttuuriministeriön älystrategia';Opetus- ja kulttuuriministeriön älystrategia;
-Häiriöt                      Ilmasto                      Infrastruktuuri              Innovatiivisus
+		'Rakennepoliittinen ohjelma';Rakennepoliittinen ohjelma;
-Innovatiivisuus              Internet                     Investoinnit                 Joukkoliikenne
+		'Sähköisen asioinnin ja demokratian vauhdittamisohjelman toteuttamissuunnitelma 2009-2014';Sähköisen asioinnin ja demokratian vauhdittamisohjelman toteuttamissuunnitelma 2009-2014;
-Joustavuus                   Julkinen valta               Kaivosteollisuus             Kansainvälisyys
+		'Tuottava ja uudistuva Suomi - Digitaalinen agenda vuosille 2011-2020';Tuottava ja uudistuva Suomi - Digitaalinen agenda vuosille 2011-2020;
-Kasvihuonekaasut             Kaupallisuus                 Kaupungit                    Kehitys
+		'Valtioneuvoston periaatepäätös julkisen sektorin digitaalisten tietoaineistojen saatavuuden parantamisesta ja uudelleenkäytön edistämisestä';Valtioneuvoston periaatepäätös julkisen sektorin digitaalisten tietoaineistojen saatavuuden parantamisesta ja uudelleenkäytön edistämisestä;
-Kestävyys                    Kevyen liikenteen väylät     Kevytliikenne                Kiinteistöt
+		'Valtioneuvoston periaatepäätös kansallisesta älyliikenteen strategiasta';Valtioneuvoston periaatepäätös kansallisesta älyliikenteen strategiasta;
-Kilpailu                     Kilpailukyky                 Konesalit                    Konkreettisuus
+		'Valtioneuvoston periaatepäätös sähköisestä tunnistamisesta';Valtioneuvoston periaatepäätös sähköisestä tunnistamisesta;
-Kotimaisuus                  Koulutus                     Kunnat                       Kustannustehokkuus
+		'Valtioneuvoston periaatepäätös valtion pysyvien toimintamenosäästöjen aikaansaamisesta';Valtioneuvoston periaatepäätös valtion pysyvien toimintamenosäästöjen aikaansaamisesta;
-Kuuluvuus                    Kävely                       Laajakaista                  Lainsäädäntö
+		'Vaikuttavuus- ja tuloksellisuusohjelma (VATU)';Vaikuttavuus- ja tuloksellisuusohjelma (VATU);
-Laiton tarjonta              Langattomuus                 Lappi                        Lentoliikenne
+		'Valtion_konesalistrategia_2014';Valtion_konesalistrategia_2014|
-Liikenne                     Liikenneverkostot            Liikkumistili                Linja-autot
+	name:version|description:Mikä on jakeen versio?|type:text|default:nykyinen|
-Logistiikka                  Luonnonsuojelu               Lämmitys                     Maakaasu
+	name:jae|description:Mikä on jakeen ID?|type:text|
-Maatalous                    Mainonta                     Markkinat                    Massavalvonta
+	name:yl_avainsanat|description:Valitse alla olevasta listasta yleisiä avainsanoja.|type:checkbox|options:
-Meriliikenne                 Metadata                     Mobiiliverkko                Mopot
+		'Päätös';A Päätös (jae sisältää päätös- tai toimintaehdotuksen);
-Nopeus                       Ohjaus                       Ohjelmistot                  Ohjelmistotoimittaja
+		'Vaikutus';B Vaikutus (jae kuvaa ilmiötä tai vaikutusta);
-Oikeusturva                  Omavaraisuus                 Operaattori                  Osaaminen
+		'Arvo';C Arvo (jakeessa on arvoarvostelma tai kuvaa asian merkitystä);
-Ostovoima                    Palaute                      Palvelut                     Palvelutaso
+		'Data';D Data (sisältää numeroarvoja, tekstidataa tai viitteen edellisiin);
-Peruskunto                   Pilvipalvelut                Polttoaine                   Posti
+		'Huomio';E Huomio (jae on sisällöltään huomioitava myöhemmin sen merkityksellisyydestä tai epäselvyydestä johtuen);
-Puelueettomuus               Pysäköinti                   Pyöräily                     Päivitys
+		'Päätavoite'; H Päätavoite;
-Pääkaupunkiseutu             Päästöt                      Päätöksenteko                Päätös
+		'Tavoite';F Tavoite;
-Raha                         Rahoitus                     Rahtliikenne                 Rajapinnat
+		'Toimenpide';G Toimenpide|
-Rakennemuutos                Rakentaminen                 Raskas liikenne              Rautatiet
+	name:avainsanat|description:Laita halutessasi yllä listaamattomattomia avainsanoja tähän pilkulla eroteltuna.|type:text|
-Riippuvuus                   Rikokset                     Robotisaatio                 Ruuhkamaksu
+	name:ident|type:hidden|default:'{{{1|Op_fi{{PAGEID}}}}}'|
-Ruuhkautuminen               Saatavuus                    Sateliittipaikannus          Sovellukset
+	name:pagename|type:hidden|default:'{{PAGENAME}}'
-Strategia                    Suunnittelu                  Sähkö                        Sähköauto
+">
-Sääntely                     Säästöt                      Talous                       Talouskasvu
+avainsanat <- strsplit(avainsanat, ",", fixed = TRUE)[[1]]
-Tarpeet                      Tasa-arvo                    Tasapuolisuus                Tasavertaisuus
+avainsanat <- gsub("^\\s*|\\s*$", "", avainsanat)
-Tavaraliikenne               Tehokkuus                    Tekijänoikeus                Tekniikkaneutraalius
+avainsanat <- avainsanat[nchar(avainsanat) > 0]
-Tekninen tuki                Teknologia                   Teknologianeutraalius        Teollisuus
+avainsanat <- c(yl_avainsanat, avainsanat)
-Terveydenhuolto              Terveys                      testi                        Tiedon avoimuus
+if (length(avainsanat) == 0) stop("Yhtään avainsanaa ei annettu!")
-Tiedon hallinnointi          Tiedon hallinta              Tiedon hyödyntäminen         Tieliikenne
-Tietoliikenne                Tietoturva                   Toimilupa                    Toiminta
-Toimintavarmuus              Toimivuus                    Tuki                         Turvallisuus
-Turvaverkko                  Tutkimus                     Tuuli                        TV
-Työllisyys                   Työn tekemiseen liittyvä     Ulkomaat                     Uudistus
-Vaihtoehtoiset polttoaineet  Vaikuttaminen                Vaikutus                     Vakuutus
-Valinnanvapaus               Valtio                       Varmenne                     Varmuus
-Vastuu                       Verkostoituminen             Verotus                      Vesiliikenne
-Vesiliikenne, Tasavertaisuus Viestintäverkot              Viranomaiset                 Yhteensopivuus
-Yhteiskunta                  Yhteiskuntamurros            Yhteistyö                    Yhteysnopeus
-Yksityisautoilu              Yksityisyydensuoja           YLE                          Yleispalvelu
-Yleisradio                   Ympäristö                    Yritykset                    Öljy
-}}
-<rcode label="Näytä tilastoja/jakeita" name="jae_stats" embed=1 graphics=1 variables="
+library(OpasnetUtils)
-	name:sivu|description:Minkä sivun jakeita haluat tarkastella?|type:selection|options:
+objects.latest("Op_fi4325", "apufunktiot")
-		NULL;Kaikki;
-		'21 polkua kitkattomaan Suomeen - ICT 2015-työryhmän loppuraportti';21 polkua kitkattomaan Suomeen - ICT 2015-työryhmän loppuraportti;
+if (tolower(version) == "nykyinen") {
-		'Asiakaspalvelu 2014 loppuraportti';Asiakaspalvelu 2014 loppuraportti;
+	version <- get_current_version(ident)
-		'Julkisen hallinnon asiakkuusstrategia';Julkisen hallinnon asiakkuusstrategia;
+} else {
-		'Julkisen hallinnon ICT:n hyödyntämisen strategia 2012-2020';Julkisen hallinnon ICT:n hyödyntämisen strategia 2012-2020;
+	version <- as.numeric(version)
-		'Kansallinen paikkatietostrategia';Kansallinen paikkatietostrategia;
+}
-		'Kohti esteetöntä tietoyhteiskuntaa toimenpideohjelma 2011-2015';Kohti esteetöntä tietoyhteiskuntaa toimenpideohjelma 2011-2015;
-		'Kohti uutta liikennepolitiikkaa - Älyä liikenteeseen ja viisautta liikkujille';Kohti uutta liikennepolitiikkaa - Älyä liikenteeseen ja viisautta liikkujille;
+dat <- data.frame(
-		'KIDE-hanke';KIDE-hanke;
+	AvainsanaID = NA,
-		'Opetus- ja kulttuuriministeriön älystrategia';Opetus- ja kulttuuriministeriön älystrategia;
+	Versio = version,
-		'Rakennepoliittinen ohjelma';Rakennepoliittinen ohjelma;
+	Aika = date(),
-		'Sähköisen asioinnin ja demokratian vauhdittamisohjelman toteuttamissuunnitelma 2009-2014';Sähköisen asioinnin ja demokratian vauhdittamisohjelman toteuttamissuunnitelma 2009-2014;
+	Käyttäjä = wiki_username,
-		'Tuottava ja uudistuva Suomi - Digitaalinen agenda vuosille 2011-2020';Tuottava ja uudistuva Suomi - Digitaalinen agenda vuosille 2011-2020;
+	Sivu = sivu,
-		'Valtioneuvoston periaatepäätös julkisen sektorin digitaalisten tietoaineistojen saatavuuden parantamisesta ja uudelleenkäytön edistämisestä';Valtioneuvoston periaatepäätös julkisen sektorin digitaalisten tietoaineistojen saatavuuden parantamisesta ja uudelleenkäytön edistämisestä;
+	JaeID = as.character(jae),
-		'Valtioneuvoston periaatepäätös kansallisesta älyliikenteen strategiasta';Valtioneuvoston periaatepäätös kansallisesta älyliikenteen strategiasta;
+	Result = avainsanat
-		'Valtioneuvoston periaatepäätös sähköisestä tunnistamisesta';Valtioneuvoston periaatepäätös sähköisestä tunnistamisesta;
+)
-		'Valtioneuvoston periaatepäätös valtion pysyvien toimintamenosäästöjen aikaansaamisesta';Valtioneuvoston periaatepäätös valtion pysyvien toimintamenosäästöjen aikaansaamisesta;
-		'Vaikuttavuus- ja tuloksellisuusohjelma (VATU)';Vaikuttavuus- ja tuloksellisuusohjelma (VATU);
+ident.subset <- paste(ident, "Avainsanat", sep = ".")
-		'Valtion_konesalistrategia_2014';Valtion_konesalistrategia_2014|
-	name:avainsanat|description:Hae jakeita joilla on ainakin yksi seuraavista avainsanoista|type:text|
-	name:avainsanat_all|description:Hae jakeita joilla on kaikki seuraavat avainsanat|type:text|
-	name:jaelista|description:Haluatko nähdä kaikki löydetyt jakeet?|type:selection|options:FALSE;En;TRUE;Kyllä|default:FALSE|
-	name:version|description:Versio|type:text|default:nykyinen|
-	name:ident|type:hidden|default:'{{{1|Op_fi{{PAGEID}}}}}'
-">
-library(OpasnetUtils)
-library(plyr)
-objects.latest("Op_fi4325", "apufunktiot")
-library(ggplot2)
 filter <- list()
-if (nchar(gsub(" ", "", avainsanat)) > 0) {
+filter$Versio <- version
-	avainsanat <- strsplit(avainsanat, ",")[[1]]
-	avainsanat <- gsub("^\\s*|\\s*$", "", avainsanat)
+upload_with_autoid(
-} else {
+	dat,
-	avainsanat <- NULL
+	ident.subset,
-}
+	id_name = "AvainsanaID",
-if (nchar(gsub(" ", "", avainsanat_all)) > 0) {
+	pagename = pagename,
-	avainsanat_all <- strsplit(avainsanat_all, ",")[[1]]
+	filter = filter
-	avainsanat_all <- gsub("^\\s*|\\s*$", "", avainsanat_all)
+)
-	#filter$Avainsana <- avainsanat_all
-} else {
-	avainsanat_all <- NULL
-}
-filter$Sivu <- sivu
-version <- gsub("^\\s*|\\s*$", "", strsplit(version, ",")[[1]])
-a <- tolower(version) == "nykyinen"
+cat("Avainsanojen lisääminen onnistui.\n")
-if (any(a)) {
+</rcode>
-	version <- version[!a]
-	version <- c(version, get_current_version(ident))
-}
-version <- as.numeric(version)
-filter$Versio <- version
-if (length(filter) == 0) filter <- NULL
+==== Avainsanan poisto ====
-tags <- try_dl_rm(
+'''Merkitsee avainsanan epäkelvoksi, jolloin tämän sivun hakukoneet eivät näytä sitä.'''
-		paste(ident, "Avainsanat", sep = "."),
+<rcode name="avainsananpoisto" embed=1 label="Poista avainsana" showcode=0 variables="
-		filter = filter,
+	name:avid|description:Poistettavan avainsanan ID (pilkulla eroteltuna useampia)|type:text|
-		rm_id = paste(ident, "Avainsananpoistot", sep = "."),
+	name:version|description:Mikä versio on kyseessä?|type:text|default:nykyinen|
-		rm_ind = "AvainsanaID"
+	name:syy|description:Poiston syy|type:selection|options:
-)
+		' ';- Valitse syy -;
+		'Avainsana ei päde uudessa versiossa';Avainsana ei päde uudessa versiossa;
+		'Virheellinen avainsana';Virheellinen avainsana|
+	name:ident|type:hidden|default:'{{{1|Op_fi{{PAGEID}}}}}'|
+	name:pagename|type:hidden|default:'{{PAGENAME}}'
+">
+library(OpasnetUtils)
-jaeid <- NULL
+avid <- strsplit(avid, ",", fixed = TRUE)[[1]]
+avid <- gsub(" ", "", avid)
-if (!is.null(avainsanat)|!is.null(avainsanat_all)) {
+if (tolower(version) == "nykyinen") {
-	tags <- tags[tags$Result %in% c(avainsanat, avainsanat_all), ]
+	objects.latest("Op_fi4325", "apufunktiot")
-	jaeid <- unique(as.character(tags$JaeID))
+	version <- get_current_version(ident)
+} else {
+	version <- as.numeric(version)
 }
-if(!is.null(avainsanat_all)) {
+dat <- data.frame(
-	temp <- list()
+	Versio = version,
-	for (i in 1:nrow(jaeid)) {
+	Aika = date(),
-		temp[[i]] <- avainsanat_all %in% tags$Result[tags$JaeID == jaeid[i]]
+	Käyttäjä = wiki_username,
-	}
+	Syy = syy,
-	temp <- lapply(temp, all)
+	Result = avid
-	jaeid <- jaeid[temp]
+)
-	tags <- tags[tags$JaeID %in% jaeid,]
-}
-if (nrow(tags) == 0) {
+opbase.upload(
-	cat("Avainsanoja ei löytynyt.\n")
+	dat,
-}
+	ident = ident,
+	name = pagename,
+	subset = "Avainsananpoistot",
+	act_type = "append",
+	language = "fin",
+	who = wiki_username
+)
+cat("Avainsana poistettiin onnistuneesti.\n")
+</rcode>
-if (is.null(filter)) {
-	filter2 <- list()
-} else {
-	filter2 <- filter
-}
-filter2$JaeID <- jaeid
+===Relaatiot===
-if (length(filter2) == 0) filter2 <- NULL
+==== Relaatiohakukone ====
-if (jaelista) {
+'''Hakee relaatioita joissa mahdollisesti annetut jakeet esiintyvät. Näyttää datan sellaisena kuin se on tietokannassa.'''
-	jakeet <- jaehakukone(
+<rcode label="Näytä relaatiot" name="relaatiot_display" embed=1 variables="
-		ident,
+	name:sivu|description:Sivu jonka relaatioita haetaan|type:selection|options:
-		sivu = filter2$Sivu, # *list$non-existent returns NULL
+		NULL;Kaikki;
-		versio = filter2$Versio,
+		'21 polkua kitkattomaan Suomeen - ICT 2015-työryhmän loppuraportti';21 polkua kitkattomaan Suomeen - ICT 2015-työryhmän loppuraportti;
-		jae = filter2$JaeID
+		'Asiakaspalvelu 2014 loppuraportti';Asiakaspalvelu 2014 loppuraportti;
-	)
+		'Julkisen hallinnon asiakkuusstrategia';Julkisen hallinnon asiakkuusstrategia;
-	if (nrow(jakeet) == 0) {
+		'Julkisen hallinnon ICT:n hyödyntämisen strategia 2012-2020';Julkisen hallinnon ICT:n hyödyntämisen strategia 2012-2020;
-		cat("Avainsanoissa listattuja jakeita ei löytynyt.\n")
+		'Kansallinen paikkatietostrategia';Kansallinen paikkatietostrategia;
-	} else {
+		'Kohti esteetöntä tietoyhteiskuntaa toimenpideohjelma 2011-2015';Kohti esteetöntä tietoyhteiskuntaa toimenpideohjelma 2011-2015;
-		colnames(jakeet)[colnames(jakeet) == "Result"] <- "Sisältö"
+		'Kohti uutta liikennepolitiikkaa - Älyä liikenteeseen ja viisautta liikkujille';Kohti uutta liikennepolitiikkaa - Älyä liikenteeseen ja viisautta liikkujille;
-		tagged <- NULL
+		'KIDE-hanke';KIDE-hanke;
-		if (nrow(tags) > 0) {
+		'Opetus- ja kulttuuriministeriön älystrategia';Opetus- ja kulttuuriministeriön älystrategia;
-			#tagged <- join(
+		'Rakennepoliittinen ohjelma';Rakennepoliittinen ohjelma;
-			#	jakeet[c("Versio", "Sivu", "Aihe", "JaeID")],
+		'Sähköisen asioinnin ja demokratian vauhdittamisohjelman toteuttamissuunnitelma 2009-2014';Sähköisen asioinnin ja demokratian vauhdittamisohjelman toteuttamissuunnitelma 2009-2014;
-			#	tags[c("Versio", "Sivu", "JaeID", "Result")]
+		'Tuottava ja uudistuva Suomi - Digitaalinen agenda vuosille 2011-2020';Tuottava ja uudistuva Suomi - Digitaalinen agenda vuosille 2011-2020;
-			#)
+		'Valtioneuvoston periaatepäätös julkisen sektorin digitaalisten tietoaineistojen saatavuuden parantamisesta ja uudelleenkäytön edistämisestä';Valtioneuvoston periaatepäätös julkisen sektorin digitaalisten tietoaineistojen saatavuuden parantamisesta ja uudelleenkäytön edistämisestä;
-			#colnames(tagged)[colnames(tagged) == "Result"] <- "Avainsana"
+		'Valtioneuvoston periaatepäätös kansallisesta älyliikenteen strategiasta';Valtioneuvoston periaatepäätös kansallisesta älyliikenteen strategiasta;
-			tagged <- tapply(tags$Result, tags[c("Versio", "Sivu", "JaeID")], paste, collapse = ", ")
+		'Valtioneuvoston periaatepäätös sähköisestä tunnistamisesta';Valtioneuvoston periaatepäätös sähköisestä tunnistamisesta;
-			tagged <- as.data.frame(as.table(tagged))
+		'Valtioneuvoston periaatepäätös valtion pysyvien toimintamenosäästöjen aikaansaamisesta';Valtioneuvoston periaatepäätös valtion pysyvien toimintamenosäästöjen aikaansaamisesta;
-			colnames(tagged)[colnames(tagged) == "Freq"] <- "Avainsanat"
+		'Vaikuttavuus- ja tuloksellisuusohjelma (VATU)';Vaikuttavuus- ja tuloksellisuusohjelma (VATU);
-			tagged <- join(
+		'Valtion_konesalistrategia_2014';Valtion_konesalistrategia_2014|
-				jakeet[c("Versio", "Sivu", "JaeID", "Sisältö")],
+	name:jaeid|description:Anna halutessasi jakeen ID(:t)|type:text|default:hae kaikki|
-				tagged[c("Versio", "Sivu", "JaeID", "Avainsanat")],
+	name:version|description:Versio|type:text|default:nykyinen|
-				type = "inner",
+	name:ident|type:hidden|default:'{{{1|Op_fi{{PAGEID}}}}}'
-				match = "first"
+">
-			)
+library(OpasnetUtils)
-			oprint(
+library(plyr)
-				tagged[c("Versio", "Sivu", "JaeID", "Sisältö", "Avainsanat")],
+objects.latest("Op_fi4325", "apufunktiot")
-				caption = "Jakeet",
-				caption.placement = "top",
-				include.rownames = FALSE,
-				digits = rep(0, 6)
-			)
-		}
-	}
-}
-if (nrow(tags) > 0) {
+# Erottelu pilkuilla ja välilyöntien poisto
-	tags_out <- ddply(tags, "Result", nrow)
+if (!is.null(sivu)) sivu <- gsub("^\\s*|\\s*$", "", strsplit(sivu, ",")[[1]])
-	colnames(tags_out) <- c("Avainsana", "Lukumäärä")
+if (tolower(jaeid == "hae kaikki")) {
-	tags_out <- tags_out[order(tags_out$Lukumäärä, decreasing = TRUE),]
+	jaeid <- NULL
-	oprint(
+} else {
-		tags_out,
+	jaeid <- gsub("^\\s*|\\s*$", "", strsplit(jaeid, ",")[[1]])
-		caption = "Avainsanojen lukumäärät",
-		caption.placement = "top",
-		include.rownames = FALSE,
-		digits = c(0, 0, 0)
-	)
-	ggplot(tags_out, aes(x = Avainsana, y = Lukumäärä, fill = Avainsana)) +
-		geom_bar(stat = "identity") +
-		theme_grey(base_size = 24) +
-		theme(axis.text.x = element_blank(), axis.title.x = element_blank()) +
-		ggtitle("Avainsanojen frekvenssit")
 }
+version <- gsub("^\\s*|\\s*$", "", strsplit(version, ",")[[1]])
-# Add previous and next versions to check for inclusion from previous and into next
+a <- tolower(version) == "nykyinen"
-original_version <- version
+if (any(a)) {
-if (!(1 %in% version)) {
+	version <- version[!a]
-	prev <- TRUE
+	version <- c(version, get_current_version(ident))
-	version <- c(min(version, na.rm = TRUE) - 1, version)
 }
-version <- c(version, max(version, na.rm = TRUE) + 1)
+version <- as.numeric(version)
-filter3 <- list()
+filter <- list()
-filter3$Sivu1 <- sivu
+filter$Sivu1 <- sivu
-filter3$Versio <- version
+filter$Versio <- version
-filter3$JaeID1 <- jaeid
+filter$JaeID1 <- jaeid
 rel1 <- try_dl_rm(
 	paste(ident, "Relaatiot", sep = "."),
-	filter = filter3,
+	filter = filter,
 	rm_id = paste(ident, "Relaationpoistot", sep = "."),
 	rm_ind = "RelaatioID"
@@ Rivi 1 008: / Rivi 985: @@
 	rel2 <- data.frame()
 } else {
-	filter3$JaeID1 <- NULL
+	filter$JaeID1 <- NULL
-	filter3$Sivu1 <- NULL
+	filter$Sivu1 <- NULL
-	filter3$JaeID2 <- jaeid
+	filter$JaeID2 <- jaeid
-	filter3$Sivu2 <- sivu
+	filter$Sivu2 <- sivu
 	rel2 <- try_dl_rm(
 		paste(ident, "Relaatiot", sep = "."),
-		filter = filter3,
+		filter = filter,
 		rm_id = paste(ident, "Relaationpoistot", sep = "."),
 		rm_ind = "RelaatioID"
@@ Rivi 1 021: / Rivi 998: @@
 }
-rel <- rbind(rel1, rel2)
+out <- rbind(rel1, rel2)
-if (!any(original_version %in% rel$Versio)) stop("Annetuilla versiolla ei löytynyt relaatioita.")
+if (nrow(out) > 0) {
+	oprint(
-if (nrow(rel) == 0) {
+		out,
-	cat("Jakeelle ei löytynyt kysyttyjä relaatioita tietokannassa.\n")
+		include.rownames = FALSE,
+		caption = "Relaatiot",
+		caption.placement = "top"
+	)
 } else {
-	related <- rel[
+	cat("Relaatioita ei löytynyt!\n")
-		rel$Result %in% c(
+}
-			"on neutraali suhteessa",
-			"on uusi linjaus tai painotus",
+</rcode>
-			"tukee tai on linjassa",
-			"vastustaa tai on ristiriidassa"
+==== Relaation lisääminen ====
-		), ]
-	related$Result <- as.character(related$Result)
+'''Lisää uuden relaation tietokantaan. Samantyyppisiä relaatioita voi kerralla lisätä useita, kun erottelee JaeID:t pilkuilla: relaatiot voi tehdä kaikki yhteen, yksi kaikkiin tai yksi yhteen. '''
-	affected <- rel[
+<rcode label="Lisää relaatio" name="relaatio" embed=1 variables="
-		rel$Result %in% c(
+	name:sivu1|description:Mikä on lähtöjakeen sivu?|type:selection|options:
-			"ehdotus ei ole antanut aihetta muutoksiin",
+		'21 polkua kitkattomaan Suomeen - ICT 2015-työryhmän loppuraportti';21 polkua kitkattomaan Suomeen - ICT 2015-työryhmän loppuraportti;
-			"ehdotus ei ole antanut aihetta muutoksiin vaan sisältyy olennaisesti jo kirjattuun",
+		'Asiakaspalvelu 2014 loppuraportti';Asiakaspalvelu 2014 loppuraportti;
-			"ehdotus huomioitu ja liittyvää painotusta muutettu",
+		'Julkisen hallinnon asiakkuusstrategia';Julkisen hallinnon asiakkuusstrategia;
-			"ehdotus huomioitu ja uusi kohta lisätty"
+		'Julkisen hallinnon ICT:n hyödyntämisen strategia 2012-2020';Julkisen hallinnon ICT:n hyödyntämisen strategia 2012-2020;
-		), ]
+		'Kansallinen paikkatietostrategia';Kansallinen paikkatietostrategia;
-	affected$Result <- as.character(affected$Result)
+		'Kohti esteetöntä tietoyhteiskuntaa toimenpideohjelma 2011-2015';Kohti esteetöntä tietoyhteiskuntaa toimenpideohjelma 2011-2015;
-	affected$Result[affected$Result == "ehdotus ei ole antanut aihetta muutoksiin"] <- "Ei aihetta muutoksiin"
+		'Kohti uutta liikennepolitiikkaa - Älyä liikenteeseen ja viisautta liikkujille';Kohti uutta liikennepolitiikkaa - Älyä liikenteeseen ja viisautta liikkujille;
-	affected$Result[affected$Result == "ehdotus ei ole antanut aihetta muutoksiin vaan sisältyy olennaisesti jo kirjattuun"] <- "Sisältyy valmiiksi"
+		'KIDE-hanke';KIDE-hanke;
-	affected$Result[affected$Result == "ehdotus huomioitu ja liittyvää painotusta muutettu"] <- "Huomioitu painotuksella"
+		'Opetus- ja kulttuuriministeriön älystrategia';Opetus- ja kulttuuriministeriön älystrategia;
-	affected$Result[affected$Result == "ehdotus huomioitu ja uusi kohta lisätty"] <- "Huomioitu lisäyksellä"
+		'Rakennepoliittinen ohjelma';Rakennepoliittinen ohjelma;
+		'Sähköisen asioinnin ja demokratian vauhdittamisohjelman toteuttamissuunnitelma 2009-2014';Sähköisen asioinnin ja demokratian vauhdittamisohjelman toteuttamissuunnitelma 2009-2014;
-	related_out <- ddply(related, "Result", nrow)
+		'Tuottava ja uudistuva Suomi - Digitaalinen agenda vuosille 2011-2020';Tuottava ja uudistuva Suomi - Digitaalinen agenda vuosille 2011-2020;
-	colnames(related_out) <- c("Relaatio", "Lukumäärä")
+		'Valtioneuvoston periaatepäätös julkisen sektorin digitaalisten tietoaineistojen saatavuuden parantamisesta ja uudelleenkäytön edistämisestä';Valtioneuvoston periaatepäätös julkisen sektorin digitaalisten tietoaineistojen saatavuuden parantamisesta ja uudelleenkäytön edistämisestä;
+		'Valtioneuvoston periaatepäätös kansallisesta älyliikenteen strategiasta';Valtioneuvoston periaatepäätös kansallisesta älyliikenteen strategiasta;
-	affected_out <- ddply(affected, "Result", nrow)
+		'Valtioneuvoston periaatepäätös sähköisestä tunnistamisesta';Valtioneuvoston periaatepäätös sähköisestä tunnistamisesta;
-	colnames(affected_out) <- c("Sisällytys", "Lukumäärä")
+		'Valtioneuvoston periaatepäätös valtion pysyvien toimintamenosäästöjen aikaansaamisesta';Valtioneuvoston periaatepäätös valtion pysyvien toimintamenosäästöjen aikaansaamisesta;
-}
+		'Vaikuttavuus- ja tuloksellisuusohjelma (VATU)';Vaikuttavuus- ja tuloksellisuusohjelma (VATU);
+		'Valtion_konesalistrategia_2014';Valtion_konesalistrategia_2014|
-if (nrow(related_out > 0)) {
+	name:jaeid1|description:Mikä on lähtöjakeen ID?|type:text|
-	ggplot(related_out, aes(x = Relaatio, y = Lukumäärä, fill = Relaatio)) +
+	name:version|description:Mikä on lähtöjakeen versio?|type:text|default:nykyinen|
-			geom_bar(stat = "identity") +
+	name:sivu2|description:Mikä on kohdejakeen sivu?|type:selection|options:
-			theme_grey(base_size = 24) +
+		'Sama';Sama kuin lähtöjakeella;
-			theme(axis.text.x = element_blank(), axis.title.x = element_blank()) +
+		'21 polkua kitkattomaan Suomeen - ICT 2015-työryhmän loppuraportti';21 polkua kitkattomaan Suomeen - ICT 2015-työryhmän loppuraportti;
-			ggtitle("Relaatioiden frekvenssit")# + facet_wrap(~Sivu)
+		'Asiakaspalvelu 2014 loppuraportti';Asiakaspalvelu 2014 loppuraportti;
-}
+		'Julkisen hallinnon asiakkuusstrategia';Julkisen hallinnon asiakkuusstrategia;
+		'Julkisen hallinnon ICT:n hyödyntämisen strategia 2012-2020';Julkisen hallinnon ICT:n hyödyntämisen strategia 2012-2020;
-if (nrow(affected_out > 0)) {
+		'Kansallinen paikkatietostrategia';Kansallinen paikkatietostrategia;
-	ggplot(affected_out, aes(x = Sisällytys, y = Lukumäärä, fill = Sisällytys)) +
+		'Kohti esteetöntä tietoyhteiskuntaa toimenpideohjelma 2011-2015';Kohti esteetöntä tietoyhteiskuntaa toimenpideohjelma 2011-2015;
-			geom_bar(stat = "identity") +
+		'Kohti uutta liikennepolitiikkaa - Älyä liikenteeseen ja viisautta liikkujille';Kohti uutta liikennepolitiikkaa - Älyä liikenteeseen ja viisautta liikkujille;
-			theme_grey(base_size = 24) +
+		'KIDE-hanke';KIDE-hanke;
-			theme(axis.text.x = element_blank(), axis.title.x = element_blank()) +
-			ggtitle("Sisällytyksen frekvenssit")# + facet_wrap(~Sivu)
-}
-</rcode>
-==Työkalut==
-Aineiston työstämiseen tarkoittuja koodeja.
-=== Jakeet ===
-==== Jaehakukone ====
-'''Hakee jakeita annetuilla kriteereillä. Näyttää myös tekniset sarakkeet. Vapaakenttiin voi laittaa useita arvoja erottelemalla ne pilkuilla.'''
-<rcode label="Näytä jakeet" name="jakeet" embed=0 variables="
-	name:sivu|description:Sivu jolta jakeita haetaan|type:selection|options:
-		NULL;Kaikilta;
-		'21 polkua kitkattomaan Suomeen - ICT 2015-työryhmän loppuraportti';21 polkua kitkattomaan Suomeen - ICT 2015-työryhmän loppuraportti;
-		'Asiakaspalvelu 2014 loppuraportti';Asiakaspalvelu 2014 loppuraportti;
-		'Julkisen hallinnon asiakkuusstrategia';Julkisen hallinnon asiakkuusstrategia;
-		'Julkisen hallinnon ICT:n hyödyntämisen strategia 2012-2020';Julkisen hallinnon ICT:n hyödyntämisen strategia 2012-2020;
-		'Kansallinen paikkatietostrategia';Kansallinen paikkatietostrategia;
-		'Kohti esteetöntä tietoyhteiskuntaa toimenpideohjelma 2011-2015';Kohti esteetöntä tietoyhteiskuntaa toimenpideohjelma 2011-2015;
-		'Kohti uutta liikennepolitiikkaa - Älyä liikenteeseen ja viisautta liikkujille';Kohti uutta liikennepolitiikkaa - Älyä liikenteeseen ja viisautta liikkujille;
-		'KIDE-hanke';KIDE-hanke;
 		'Opetus- ja kulttuuriministeriön älystrategia';Opetus- ja kulttuuriministeriön älystrategia;
 		'Rakennepoliittinen ohjelma';Rakennepoliittinen ohjelma;
@@ Rivi 1 099: / Rivi 1 058: @@
 		'Vaikuttavuus- ja tuloksellisuusohjelma (VATU)';Vaikuttavuus- ja tuloksellisuusohjelma (VATU);
 		'Valtion_konesalistrategia_2014';Valtion_konesalistrategia_2014|
-	name:jaeid|description:Anna halutessasi jakeen ID(:t)|type:text|default:hae kaikki|
+	name:jaeid2|description:Mikä on kohdejakeen ID?|type:text|
-	name:version|description:Versio|type:text|default:nykyinen|
+	name:relaatio|description:'''Kuinka lähtöjae liittyy kohdejakeeseen?'''|type:selection|options:
-	name:tuotos|description:Missä muodossa tulostetaan?|type:selection|options:'Numeroitu teksti';Numeroitu teksti;'Taulukko';Taulukko|default:'Numeroitu teksti'|
+		' ';- Valitse -;
-	name:ident|type:hidden|default:'{{{1|Op_fi{{PAGEID}}}}}'
+		'tukee tai on linjassa';tukee tai on linjassa;
+		'vastustaa tai on ristiriidassa';vastustaa tai on ristiriidassa;
+		'on neutraali suhteessa';on neutraali suhteessa;
+		'liittyy';liittyy;
+		'edellyttää';edellyttää;
+		'sisältää';sisältää;
+		'vaikuttaa';vaikuttaa;
+		'vaikuttaa taloudellisesti';vaikuttaa taloudellisesti|
+	name:lisarelaatio|description:VAPAAEHTOINEN Voit antaa oman jakeiden välisen relaation vapaakenttään.|type:text|
+	name:ident|type:hidden|default:'{{{1|Op_fi{{PAGEID}}}}}'|
+	name:pagename|type:hidden|default:'{{PAGENAME}}'
 ">
+relaatio <- ifelse(lisarelaatio == '', relaatio, lisarelaatio)
+if (nchar(gsub(" ", "", relaatio)) == 0) stop("Relaatiota ei annettu!")
 library(OpasnetUtils)
-library(plyr)
 objects.latest("Op_fi4325", "apufunktiot")
-# Erottelu pilkuilla ja välilyöntien poisto
+jaeid1 <- strsplit(jaeid1, ",", fixed = TRUE)[[1]]
-if (!is.null(sivu)) sivu <- gsub("^\\s*|\\s*$", "", strsplit(sivu, ",")[[1]])
+jaeid1 <- gsub(" ", "", jaeid1)
-if (tolower(jaeid == "hae kaikki")) {
+jaeid2 <- strsplit(jaeid2, ",", fixed = TRUE)[[1]]
-	jaeid <- NULL
+jaeid2 <- gsub(" ", "", jaeid2)
+if (tolower(version) == "nykyinen") {
+	version <- get_current_version(ident)
 } else {
-	jaeid <- gsub("^\\s*|\\s*$", "", strsplit(jaeid, ",")[[1]])
+	version <- as.numeric(version)
 }
-version <- gsub("^\\s*|\\s*$", "", strsplit(version, ",")[[1]])
-a <- tolower(version) == "nykyinen"
+if(sivu2 == "Sama") sivu2 <- sivu1
-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)
+ident.subset <- paste(ident, "Relaatiot", sep = ".")
-if (nrow(out) > 0) {
+filter <- list()
-	if(tuotos == "Taulukko") {
+filter$Versio <- version
-		oprint(out, include.rownames = FALSE)
-	} else {
-		pver <- "Tyhjä tieto"
-		psiv <- "Tyhjä tieto"
-		paih <- "Tyhjä tieto"
-		outs <- ""
+dat <- data.frame(
-		for(i in 1:nrow(out)) {
+	RelaatioID = NA,
-			ver <- as.character(out$Versio[i])
+	Versio = version,
-			siv <- as.character(out$Sivu[i])
+	Aika = date(),
-			aih <- as.character(out$Aihe[i])
+	Käyttäjä = wiki_username,
+	Sivu1 = sivu1,
-			if(!is.na(pver != ver)) if(pver != ver) outs <- c(outs, paste("Versio:", ver))
+	JaeID1 = jaeid1,
-			if(!is.na(psiv != siv)) if(psiv != siv) outs <- c(outs, paste("Sivu:", siv))
+	Sivu2 = sivu2,
-			if(!is.na(paih != aih)) if(paih != aih) outs <- c(outs, paste("Aihe:", aih))
+	JaeID2 = jaeid2,
+	Result = relaatio
-			outs <- c(outs, paste(as.character(out$JaeID[i]), as.character(out$Result[i])))
+)
-			pver <- ver
-			psiv <- siv
-			paih <- aih
-		}
-		outs <- data.frame(Jakeet = outs, T = "")
-		oprint(outs, include.rownames = FALSE, show_all = TRUE)
-	}
-} else {
-	cat("Jakeita ei löytynyt!\n")
-}
-</rcode>
-==== Jakeenlisäyskone ====
+upload_with_autoid(
-'''Lisää tietokantaan vapaasti määriteltävän jakeen. Lisätyt jakeet näkyvät tämän sivun hakukoneissa. Niiden JaeID:llä on "L"-etuliite.'''
+	dat,
-<rcode label="Lisää jae" name="jakeenlisays" embed=1 variables="
+	ident.subset,
-	name:sivu|description:Sivu jolle jae lisätään|type:selection|options:
+	id_name = "RelaatioID",
-		'21 polkua kitkattomaan Suomeen - ICT 2015-työryhmän loppuraportti';21 polkua kitkattomaan Suomeen - ICT 2015-työryhmän loppuraportti;
+	pagename = pagename,
-		'Asiakaspalvelu 2014 loppuraportti';Asiakaspalvelu 2014 loppuraportti;
+	filter = filter
-		'Julkisen hallinnon asiakkuusstrategia';Julkisen hallinnon asiakkuusstrategia;
+)
-		'Julkisen hallinnon ICT:n hyödyntämisen strategia 2012-2020';Julkisen hallinnon ICT:n hyödyntämisen strategia 2012-2020;
-		'Kansallinen paikkatietostrategia';Kansallinen paikkatietostrategia;
+cat("Relaation lisääminen onnistui.\n")
-		'Kohti esteetöntä tietoyhteiskuntaa toimenpideohjelma 2011-2015';Kohti esteetöntä tietoyhteiskuntaa toimenpideohjelma 2011-2015;
-		'Kohti uutta liikennepolitiikkaa - Älyä liikenteeseen ja viisautta liikkujille';Kohti uutta liikennepolitiikkaa - Älyä liikenteeseen ja viisautta liikkujille;
+</rcode>
-		'KIDE-hanke';KIDE-hanke;
-		'Opetus- ja kulttuuriministeriön älystrategia';Opetus- ja kulttuuriministeriön älystrategia;
+==== Relaation poisto ====
-		'Rakennepoliittinen ohjelma';Rakennepoliittinen ohjelma;
-		'Sähköisen asioinnin ja demokratian vauhdittamisohjelman toteuttamissuunnitelma 2009-2014';Sähköisen asioinnin ja demokratian vauhdittamisohjelman toteuttamissuunnitelma 2009-2014;
+'''Merkitsee relaation/sisällytyksen epäkelvoksi, jolloin tämän sivun hakukoneet eivät näytä sitä.'''
-		'Tuottava ja uudistuva Suomi - Digitaalinen agenda vuosille 2011-2020';Tuottava ja uudistuva Suomi - Digitaalinen agenda vuosille 2011-2020;
+<rcode name="relaationpoisto" embed=1 label="Poista relaatio" showcode=0 variables="
-		'Valtioneuvoston periaatepäätös julkisen sektorin digitaalisten tietoaineistojen saatavuuden parantamisesta ja uudelleenkäytön edistämisestä';Valtioneuvoston periaatepäätös julkisen sektorin digitaalisten tietoaineistojen saatavuuden parantamisesta ja uudelleenkäytön edistämisestä;
+	name:relid|description:Poistettavan relaation ID (pilkulla eroteltuna useampia)|type:text|
-		'Valtioneuvoston periaatepäätös kansallisesta älyliikenteen strategiasta';Valtioneuvoston periaatepäätös kansallisesta älyliikenteen strategiasta;
+	name:version|description:Mikä versio on kyseessä?|type:text|default:nykyinen|
-		'Valtioneuvoston periaatepäätös sähköisestä tunnistamisesta';Valtioneuvoston periaatepäätös sähköisestä tunnistamisesta;
+	name:syy|description:Poiston syy|type:selection|options:
-		'Valtioneuvoston periaatepäätös valtion pysyvien toimintamenosäästöjen aikaansaamisesta';Valtioneuvoston periaatepäätös valtion pysyvien toimintamenosäästöjen aikaansaamisesta;
+	' ';- Valitse syy -;
-		'Vaikuttavuus- ja tuloksellisuusohjelma (VATU)';Vaikuttavuus- ja tuloksellisuusohjelma (VATU);
+	'Relaatio ei päde uudessa versiossa';Relaatio ei päde uudessa versiossa;
-		'Valtion_konesalistrategia_2014';Valtion_konesalistrategia_2014|
+	'Virheellinen relaatio';Virheellinen relaatio|
-	name:version|description:Versio|type:text|default:nykyinen|
-	name:sisalto|description:Jakeen sisältö|type:textbox|
 	name:ident|type:hidden|default:'{{{1|Op_fi{{PAGEID}}}}}'|
 	name:pagename|type:hidden|default:'{{PAGENAME}}'
 ">
 library(OpasnetUtils)
-objects.latest("Op_fi4325", "apufunktiot")
+relid <- strsplit(relid, ",", fixed = TRUE)[[1]]
+relid <- gsub(" ", "", relid)
 if (tolower(version) == "nykyinen") {
+	objects.latest("Op_fi4325", "apufunktiot")
 	version <- get_current_version(ident)
 } else {
@@ Rivi 1 194: / Rivi 1 146: @@
 }
-out <- data.frame(
+dat <- data.frame(
-	Versio = version,
+		Versio = version,
-	Sivu = sivu,
+		Aika = date(),
-	Aika = date(),
+		Käyttäjä = wiki_username,
-	Käyttäjä = wiki_username,
+		Syy = syy,
-	JaeID = NA,
+		Result = relid
-	Result = sisalto
 )
-ident.subset <- paste(ident, "Jakeenlisaykset", sep = ".")
+opbase.upload(
+		dat,
+		ident = ident,
+		name = pagename,
+		subset = "Relaationpoistot",
+		act_type = "append",
+		language = "fin",
+		who = wiki_username
+)
-filter <- list()
+cat("Relaatio poistettiin onnistuneesti.\n")
-filter$Versio <- version
+</rcode>
-filter$Sivu <- sivu
-upload_with_autoid(
-	out,
-	ident.subset,
-	id_name = "JaeID",
-	pagename = pagename,
-	prefix = "L",
-	filter = filter
-)
-</rcode>
-==== Jakeenpoistokone ====
-'''Merkitsee jakeen epäkelvoksi, jolloin se jätetään näyttämättä kaikissa tämän sivun hakukoneissa.'''
+== Rikastetun aineiston analysointi - Yhdistelmähakukoneet ==
-<rcode label="Poista jae" name="jakeenpoisto" embed=1 variables="
-	name:sivu|description:Poistettavan jakeen sivu|type:selection|options:
+=== Jaekohtainen avainsanalistaus ===
+'''Hakee jakeita ja näyttää kaikki niihin liittyvät avainsanat'''
+<rcode label="Hae" name="avainsanat_disp" embed=1 variables="
+	name:sivu|description:Sivu jolta jakeita haetaan|type:selection|options:
+		NULL;Kaikilta;
 		'21 polkua kitkattomaan Suomeen - ICT 2015-työryhmän loppuraportti';21 polkua kitkattomaan Suomeen - ICT 2015-työryhmän loppuraportti;
 		'Asiakaspalvelu 2014 loppuraportti';Asiakaspalvelu 2014 loppuraportti;
@@ Rivi 1 241: / Rivi 1 195: @@
 		'Vaikuttavuus- ja tuloksellisuusohjelma (VATU)';Vaikuttavuus- ja tuloksellisuusohjelma (VATU);
 		'Valtion_konesalistrategia_2014';Valtion_konesalistrategia_2014|
-	name:jaeid|description:Poistettavan jakeen ID (pilkulla eroteltuna useampia)|type:text|
+	name:jaeid|description:Anna halutessasi jakeen ID(:t)|type:text|default:hae kaikki|
 	name:version|description:Versio|type:text|default:nykyinen|
-	name:syy|description:Poiston syy|type:selection|options:
+	name:ident|type:hidden|default:'{{{1|Op_fi{{PAGEID}}}}}'
-		' ';- Valitse syy -;
-		'Tekninen jae';Tekninen jae;
-		'Jae ei liity sivun aiheeseen';Jae ei liity sivun aiheeseen;
-		'Jae on häiriköintiä';Jae on häiriköintiä (käytä säästellen)|
-	name:ident|type:hidden|default:'{{{1|Op_fi{{PAGEID}}}}}'|
-	name:pagename|type:hidden|default:'{{PAGENAME}}'
 ">
 library(OpasnetUtils)
+library(plyr)
+objects.latest("Op_fi4325", "apufunktiot")
-jaeid <- strsplit(jaeid, ",", fixed = TRUE)[[1]]
+# Erottelu pilkuilla ja välilyöntien poisto
-jaeid <- gsub(" ", "", jaeid)
+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)
-if (sum(nchar(jaeid)) == 0) stop("Anna jakeen ID")
+out <- jaehakukone(ident, sivu = sivu, versio = version, jae = jaeid)
-if (tolower(version) == "nykyinen") {
+if (nrow(out) == 0) {
-	objects.latest("Op_fi4325", "apufunktiot")
+	stop("Jakeita ei löytynyt!")
-	version <- get_current_version(ident)
-} else {
-	version <- as.numeric(version)
 }
-out <- data.frame(
+filter <- list()
-	Versio = version,
+filter$Sivu <- sivu
-	Sivu = sivu,
+filter$Versio <- version
-	Aika = date(),
+filter$JaeID <- jaeid
-	Käyttäjä = wiki_username,
-	Syy = syy,
-	Result = as.character(jaeid)
-)
-opbase.upload(
+tags <- try_dl_rm(
-	out,
+	paste(ident, "Avainsanat", sep = "."),
-	who = wiki_username,
+	filter = filter,
-	name = pagename,
+	rm_id = paste(ident, "Avainsananpoistot", sep = "."),
-	subset = "Jakeenpoistot",
+	rm_ind = "AvainsanaID"
-	act_type = "append",
-	language = "fin"
 )
-</rcode>
-=== Avainsanat ===
+if (nrow(tags) == 0) {
-==== Avainsanahakukone ====
+	cat("Avainsanoja ei löytynyt!\n")
-'''Hakee jaekohtaisia avainsanoja. Näyttää datan sellaisena kuin se on tietokannassa.'''
+} else {
-<rcode label="Näytä avainsanat" name="avainsanat_display" embed=1 variables="
+	# Yhdistetään kunkin jakeen avainsanat yhdelle riville
-		name:sivu|description:Sivu jonka avainsanoja haetaan|type:selection|options:
+	tags <- ddply(
-		NULL;Kaikki;
+		tags,
-		'21 polkua kitkattomaan Suomeen - ICT 2015-työryhmän loppuraportti';21 polkua kitkattomaan Suomeen - ICT 2015-työryhmän loppuraportti;
+		c("Versio", "Sivu", "JaeID"),
-		'Asiakaspalvelu 2014 loppuraportti';Asiakaspalvelu 2014 loppuraportti;
+		function(x) {a <- x[1,];a$Avainsanat <- paste(x$Result, collapse = ", ");return(a)}
-		'Julkisen hallinnon asiakkuusstrategia';Julkisen hallinnon asiakkuusstrategia;
+	)
-		'Julkisen hallinnon ICT:n hyödyntämisen strategia 2012-2020';Julkisen hallinnon ICT:n hyödyntämisen strategia 2012-2020;
-		'Kansallinen paikkatietostrategia';Kansallinen paikkatietostrategia;
+	out <- join(
-		'Kohti esteetöntä tietoyhteiskuntaa toimenpideohjelma 2011-2015';Kohti esteetöntä tietoyhteiskuntaa toimenpideohjelma 2011-2015;
+		out[c("Versio", "Sivu", "JaeID", "Result")],
-		'Kohti uutta liikennepolitiikkaa - Älyä liikenteeseen ja viisautta liikkujille';Kohti uutta liikennepolitiikkaa - Älyä liikenteeseen ja viisautta liikkujille;
+		tags[c("Versio", "Sivu", "JaeID", "Avainsanat")],
-		'KIDE-hanke';KIDE-hanke;
+		by = c("Versio", "Sivu", "JaeID"),
-		'Opetus- ja kulttuuriministeriön älystrategia';Opetus- ja kulttuuriministeriön älystrategia;
+		type = "inner",
-		'Rakennepoliittinen ohjelma';Rakennepoliittinen ohjelma;
+		match = "first"
-		'Sähköisen asioinnin ja demokratian vauhdittamisohjelman toteuttamissuunnitelma 2009-2014';Sähköisen asioinnin ja demokratian vauhdittamisohjelman toteuttamissuunnitelma 2009-2014;
+	)
-		'Tuottava ja uudistuva Suomi - Digitaalinen agenda vuosille 2011-2020';Tuottava ja uudistuva Suomi - Digitaalinen agenda vuosille 2011-2020;
-		'Valtioneuvoston periaatepäätös julkisen sektorin digitaalisten tietoaineistojen saatavuuden parantamisesta ja uudelleenkäytön edistämisestä';Valtioneuvoston periaatepäätös julkisen sektorin digitaalisten tietoaineistojen saatavuuden parantamisesta ja uudelleenkäytön edistämisestä;
+	# Jos annettiin vain yksi versio ja/tai sivu niin niitä ei tarvitse printata
-		'Valtioneuvoston periaatepäätös kansallisesta älyliikenteen strategiasta';Valtioneuvoston periaatepäätös kansallisesta älyliikenteen strategiasta;
+	filter_ind <- NULL
-		'Valtioneuvoston periaatepäätös sähköisestä tunnistamisesta';Valtioneuvoston periaatepäätös sähköisestä tunnistamisesta;
+	if (length(version) != 1) filter_ind <- c(filter_ind, "Versio")
-		'Valtioneuvoston periaatepäätös valtion pysyvien toimintamenosäästöjen aikaansaamisesta';Valtioneuvoston periaatepäätös valtion pysyvien toimintamenosäästöjen aikaansaamisesta;
+	if (length(sivu) != 1) filter_ind <- c(filter_ind, "Sivu")
-		'Vaikuttavuus- ja tuloksellisuusohjelma (VATU)';Vaikuttavuus- ja tuloksellisuusohjelma (VATU);
+	filter_ind <- c(filter_ind, "JaeID")
-		'Valtion_konesalistrategia_2014';Valtion_konesalistrategia_2014|
-		name:jaeid|description:Anna halutessasi jakeen ID(:t)|type:text|default:hae kaikki|
+	oprint(
-		name:version|description:Versio|type:text|default:nykyinen|
+		out[c(filter_ind, "Result", "Avainsanat")],
-		name:ident|type:hidden|default:'{{{1|Op_fi{{PAGEID}}}}}'
+		include.rownames = FALSE,
-">
+		show_all = TRUE
-library(OpasnetUtils)
+	)
-library(plyr)
+}
-objects.latest("Op_fi4325", "apufunktiot")
+</rcode>
-# Erottelu pilkuilla ja välilyöntien poisto
+=== Jae-relaatio-jae listaus ===
-if (!is.null(sivu)) sivu <- gsub("^\\s*|\\s*$", "", strsplit(sivu, ",")[[1]])
+'''Hakee jakeita ja niihin liittyviä toisia jakeita listaten myös relaation tyypin'''
-if (tolower(jaeid == "hae kaikki")) {
+<rcode label="Hae" name="relaatiot_disp" embed=1 variables="
-	jaeid <- NULL
+	name:sivu|description:Sivu jolta relaatioita haetaan|type:selection|options:
-} else {
+		NULL;Kaikilta;
-	jaeid <- gsub("^\\s*|\\s*$", "", strsplit(jaeid, ",")[[1]])
+		'21 polkua kitkattomaan Suomeen - ICT 2015-työryhmän loppuraportti';21 polkua kitkattomaan Suomeen - ICT 2015-työryhmän loppuraportti;
-}
+		'Asiakaspalvelu 2014 loppuraportti';Asiakaspalvelu 2014 loppuraportti;
-version <- gsub("^\\s*|\\s*$", "", strsplit(version, ",")[[1]])
+		'Julkisen hallinnon asiakkuusstrategia';Julkisen hallinnon asiakkuusstrategia;
-a <- tolower(version) == "nykyinen"
+		'Julkisen hallinnon ICT:n hyödyntämisen strategia 2012-2020';Julkisen hallinnon ICT:n hyödyntämisen strategia 2012-2020;
-if (any(a)) {
+		'Kansallinen paikkatietostrategia';Kansallinen paikkatietostrategia;
-	version <- version[!a]
+		'Kohti esteetöntä tietoyhteiskuntaa toimenpideohjelma 2011-2015';Kohti esteetöntä tietoyhteiskuntaa toimenpideohjelma 2011-2015;
-	version <- c(version, get_current_version(ident))
+		'Kohti uutta liikennepolitiikkaa - Älyä liikenteeseen ja viisautta liikkujille';Kohti uutta liikennepolitiikkaa - Älyä liikenteeseen ja viisautta liikkujille;
-}
+		'KIDE-hanke';KIDE-hanke;
-version <- as.numeric(version)
+		'Opetus- ja kulttuuriministeriön älystrategia';Opetus- ja kulttuuriministeriön älystrategia;
+		'Rakennepoliittinen ohjelma';Rakennepoliittinen ohjelma;
-filter <- list()
+		'Sähköisen asioinnin ja demokratian vauhdittamisohjelman toteuttamissuunnitelma 2009-2014';Sähköisen asioinnin ja demokratian vauhdittamisohjelman toteuttamissuunnitelma 2009-2014;
-filter$Sivu <- sivu
+		'Tuottava ja uudistuva Suomi - Digitaalinen agenda vuosille 2011-2020';Tuottava ja uudistuva Suomi - Digitaalinen agenda vuosille 2011-2020;
-filter$Versio <- version
+		'Valtioneuvoston periaatepäätös julkisen sektorin digitaalisten tietoaineistojen saatavuuden parantamisesta ja uudelleenkäytön edistämisestä';Valtioneuvoston periaatepäätös julkisen sektorin digitaalisten tietoaineistojen saatavuuden parantamisesta ja uudelleenkäytön edistämisestä;
-filter$JaeID <- jaeid
+		'Valtioneuvoston periaatepäätös kansallisesta älyliikenteen strategiasta';Valtioneuvoston periaatepäätös kansallisesta älyliikenteen strategiasta;
+		'Valtioneuvoston periaatepäätös sähköisestä tunnistamisesta';Valtioneuvoston periaatepäätös sähköisestä tunnistamisesta;
-out <- try_dl_rm(
+		'Valtioneuvoston periaatepäätös valtion pysyvien toimintamenosäästöjen aikaansaamisesta';Valtioneuvoston periaatepäätös valtion pysyvien toimintamenosäästöjen aikaansaamisesta;
-	paste(ident, "Avainsanat", sep = "."),
+		'Vaikuttavuus- ja tuloksellisuusohjelma (VATU)';Vaikuttavuus- ja tuloksellisuusohjelma (VATU);
-	filter = filter,
+		'Valtion_konesalistrategia_2014';Valtion_konesalistrategia_2014|
-	rm_id = paste(ident, "Avainsananpoistot", sep = "."),
+	name:jaeid|description:Anna halutessasi jakeen ID(:t)|type:text|default:hae kaikki|
-	rm_ind = "AvainsanaID"
+	name:liitsis|description:Liittymistyyppi (tyhjä = kaikki)|type:checkbox|options:
-)
+		'tukee tai on linjassa';tukee tai on linjassa;
+		'vastustaa tai on ristiriidassa';vastustaa tai on ristiriidassa;
-if (nrow(out) > 0) {
+		'on neutraali suhteessa';on neutraali suhteessa;
-	oprint(out, include.rownames = FALSE)
+		'liittyy';liittyy;
-} else {
+		'edellyttää';edellyttää;
-	cat("Avainsanoja ei löytynyt!\n")
+		'sisältää';sisältää;
-}
+		'vaikuttaa';vaikuttaa;
+		'vaikuttaa taloudellisesti';vaikuttaa taloudellisesti|
+	name:version|description:Versio|type:text|default:nykyinen|
+name:details|description:Näytetäänkö tekniset yksityiskohdat?|type:selection|options:FALSE;Ei, vain jakeiden sisältö;TRUE;Kyllä, myös jakeiden numerot|default:FALSE|
+	name:ident|type:hidden|default:'{{{1|Op_fi{{PAGEID}}}}}'
+">
+# 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")
-</rcode>
+# Erottelu pilkuilla ja välilyöntien poisto
-==== Avainsanoitus ====
+if (!is.null(sivu)) sivu <- gsub("^\\s*|\\s*$", "", strsplit(sivu, ",")[[1]])
-'''Lisää annetut avainsanat tietokantaan. Avainanoja voidaan lisätä ruksaamalla annetusta listasta (vain yleisimmät) ja syöttämällä vapaakenttään pilkulla eroteltuna.'''
+if (tolower(jaeid == "hae kaikki")) {
-<rcode label="Lisää avainsana" name="avainsananlisays" embed=1 variables="
+	jaeid <- NULL
-	name:sivu|description:Minkä sivun jakeelle haluat lisätä avainsanoja?|type:selection|options:
+} else {
-		'21 polkua kitkattomaan Suomeen - ICT 2015-työryhmän loppuraportti';21 polkua kitkattomaan Suomeen - ICT 2015-työryhmän loppuraportti;
+	jaeid <- gsub("^\\s*|\\s*$", "", strsplit(jaeid, ",")[[1]])
-		'Asiakaspalvelu 2014 loppuraportti';Asiakaspalvelu 2014 loppuraportti;
+}
-		'Julkisen hallinnon asiakkuusstrategia';Julkisen hallinnon asiakkuusstrategia;
+version <- gsub("^\\s*|\\s*$", "", strsplit(version, ",")[[1]])
-		'Julkisen hallinnon ICT:n hyödyntämisen strategia 2012-2020';Julkisen hallinnon ICT:n hyödyntämisen strategia 2012-2020;
+a <- tolower(version) == "nykyinen"
-		'Kansallinen paikkatietostrategia';Kansallinen paikkatietostrategia;
+if (any(a)) {
-		'Kohti esteetöntä tietoyhteiskuntaa toimenpideohjelma 2011-2015';Kohti esteetöntä tietoyhteiskuntaa toimenpideohjelma 2011-2015;
+	version <- version[!a]
-		'Kohti uutta liikennepolitiikkaa - Älyä liikenteeseen ja viisautta liikkujille';Kohti uutta liikennepolitiikkaa - Älyä liikenteeseen ja viisautta liikkujille;
+	version <- c(version, get_current_version(ident))
-		'KIDE-hanke';KIDE-hanke;
+}
-		'Opetus- ja kulttuuriministeriön älystrategia';Opetus- ja kulttuuriministeriön älystrategia;
+version <- as.numeric(version)
-		'Rakennepoliittinen ohjelma';Rakennepoliittinen ohjelma;
+# Add previous and next versions to check for inclusion from previous and into next
-		'Sähköisen asioinnin ja demokratian vauhdittamisohjelman toteuttamissuunnitelma 2009-2014';Sähköisen asioinnin ja demokratian vauhdittamisohjelman toteuttamissuunnitelma 2009-2014;
+original_version <- version
-		'Tuottava ja uudistuva Suomi - Digitaalinen agenda vuosille 2011-2020';Tuottava ja uudistuva Suomi - Digitaalinen agenda vuosille 2011-2020;
+if (!(1 %in% version)) {
-		'Valtioneuvoston periaatepäätös julkisen sektorin digitaalisten tietoaineistojen saatavuuden parantamisesta ja uudelleenkäytön edistämisestä';Valtioneuvoston periaatepäätös julkisen sektorin digitaalisten tietoaineistojen saatavuuden parantamisesta ja uudelleenkäytön edistämisestä;
+	prev <- TRUE
-		'Valtioneuvoston periaatepäätös kansallisesta älyliikenteen strategiasta';Valtioneuvoston periaatepäätös kansallisesta älyliikenteen strategiasta;
+	version <- c(min(version, na.rm = TRUE) - 1, version)
-		'Valtioneuvoston periaatepäätös sähköisestä tunnistamisesta';Valtioneuvoston periaatepäätös sähköisestä tunnistamisesta;
+}
-		'Valtioneuvoston periaatepäätös valtion pysyvien toimintamenosäästöjen aikaansaamisesta';Valtioneuvoston periaatepäätös valtion pysyvien toimintamenosäästöjen aikaansaamisesta;
+version <- c(version, max(version, na.rm = TRUE) + 1)
-		'Vaikuttavuus- ja tuloksellisuusohjelma (VATU)';Vaikuttavuus- ja tuloksellisuusohjelma (VATU);
-		'Valtion_konesalistrategia_2014';Valtion_konesalistrategia_2014|
+filter <- list()
-	name:version|description:Mikä on jakeen versio?|type:text|default:nykyinen|
+filter$Sivu1 <- sivu
-	name:jae|description:Mikä on jakeen ID?|type:text|
+filter$Versio <- version
-	name:yl_avainsanat|description:Valitse alla olevasta listasta yleisiä avainsanoja.|type:checkbox|options:
+filter$JaeID1 <- jaeid
-		'Päätös';A Päätös (jae sisältää päätös- tai toimintaehdotuksen);
-		'Vaikutus';B Vaikutus (jae kuvaa ilmiötä tai vaikutusta);
+rel1 <- try_dl_rm(
-		'Arvo';C Arvo (jakeessa on arvoarvostelma tai kuvaa asian merkitystä);
+		paste(ident, "Relaatiot", sep = "."),
-		'Työn tekemiseen liittyvä';D Katsaustyön tekemiseen liittyvä;
+		filter = filter,
-		'Epäselvä luokka';E Ei mikään edellisistä;
+		rm_id = paste(ident, "Relaationpoistot", sep = "."),
-		'Tavoite';F Tavoite;
+		rm_ind = "RelaatioID"
-		'Toimenpide';G Toimenpide|
+)
-	name:avainsanat|description:Laita halutessasi yllä listaamattomattomia avainsanoja tähän pilkulla eroteltuna.|type:text|
+if (is.null(jaeid)) {
-	name:ident|type:hidden|default:'{{{1|Op_fi{{PAGEID}}}}}'|
+	rel2 <- data.frame()
-	name:pagename|type:hidden|default:'{{PAGENAME}}'
-">
-avainsanat <- strsplit(avainsanat, ",", fixed = TRUE)[[1]]
-avainsanat <- gsub("^\\s*|\\s*$", "", 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)
+	filter$JaeID1 <- NULL
-}
+	filter$Sivu1 <- NULL
+	filter$JaeID2 <- jaeid
-dat <- data.frame(
+	filter$Sivu2 <- sivu
-	AvainsanaID = NA,
-	Versio = version,
+	rel2 <- try_dl_rm(
-	Aika = date(),
+		paste(ident, "Relaatiot", sep = "."),
-	Käyttäjä = wiki_username,
+		filter = filter,
-	Sivu = sivu,
+		rm_id = paste(ident, "Relaationpoistot", sep = "."),
-	JaeID = as.character(jae),
+		rm_ind = "RelaatioID"
-	Result = avainsanat
+	)
-)
+}
+rel <- rbind(rel1, rel2)
-ident.subset <- paste(ident, "Avainsanat", sep = ".")
+if (!any(original_version %in% rel$Versio)) stop("Annetuilla versiolla ei löytynyt relaatioita.")
-filter <- list()
+if (!is.null(liitsis)) rel <- rel[rel$Result %in% liitsis, ]
-filter$Versio <- version
-upload_with_autoid(
+if (nrow(rel) == 0) {
-	dat,
+	cat("Jakeelle ei löytynyt kysyttyjä relaatioita tietokannassa.\n")
-	ident.subset,
+} else {
-	id_name = "AvainsanaID",
+	jakeet <- jaehakukone(
-	pagename = pagename,
+		ident,
-	filter = filter
+		sivu = unique(c(
-)
+				as.character(rel$Sivu1),
+				as.character(rel$Sivu2)
-cat("Avainsanojen lisääminen onnistui.\n")
+		)),
-</rcode>
+		versio = version,
+		jae = unique(c(
-==== Avainsanan poisto ====
+			as.character(rel$JaeID1),
-'''Merkitsee avainsanan epäkelvoksi, jolloin tämän sivun hakukoneet eivät näytä sitä.'''
+			as.character(rel$JaeID2)
-<rcode name="avainsananpoisto" embed=1 label="Poista avainsana" showcode=0 variables="
+		))
-	name:avid|description:Poistettavan avainsanan ID (pilkulla eroteltuna useampia)|type:text|
+	)
-	name:version|description:Mikä versio on kyseessä?|type:text|default:nykyinen|
+	if (nrow(jakeet) == 0) stop("Relaatioissa listattuja jakeita ei löytynyt!")
-	name:syy|description:Poiston syy|type:selection|options:
-		' ';- Valitse syy -;
+	# Relaatiot
-		'Avainsana ei päde uudessa versiossa';Avainsana ei päde uudessa versiossa;
+	if (nrow(rel[!(rel$Relaatio %in% sis_opt),]) > 0) {
-		'Virheellinen avainsana';Virheellinen avainsana|
+		jakeet <- jakeet[c("Versio", "Sivu", "JaeID", "Result")]
-	name:ident|type:hidden|default:'{{{1|Op_fi{{PAGEID}}}}}'|
+		colnames(jakeet)[colnames(jakeet) == "JaeID"] <- "JaeID1"
-	name:pagename|type:hidden|default:'{{PAGENAME}}'
+		colnames(jakeet)[colnames(jakeet) == "Sivu"] <- "Sivu1"
-">
+		colnames(jakeet)[colnames(jakeet) == "Result"] <- "Jae1"
-library(OpasnetUtils)
+		rel <- rel[c("RelaatioID", "Versio", "Sivu1", "JaeID1", "Result", "Sivu2", "JaeID2")]
+		colnames(rel)[colnames(rel) == "Result"] <- "Relaatio"
-avid <- strsplit(avid, ",", fixed = TRUE)[[1]]
+		out <- join(
-avid <- gsub(" ", "", avid)
+				rel[(!(rel$Relaatio %in% sis_opt)) & rel$Versio %in% original_version,],
+				jakeet,
-if (tolower(version) == "nykyinen") {
+				match = "first" # versio - sivu - jaeid -> yksi yhteen
-	objects.latest("Op_fi4325", "apufunktiot")
+		)
-	version <- get_current_version(ident)
+		colnames(jakeet)[colnames(jakeet) == "JaeID1"] <- "JaeID2"
+		colnames(jakeet)[colnames(jakeet) == "Sivu1"] <- "Sivu2"
+		colnames(jakeet)[colnames(jakeet) == "Jae1"] <- "Jae2"
+		out <- join(out, jakeet, match = "first")
+if(details) {
+		oprint(
+				out[c("Versio", "RelaatioID", "Sivu1", "JaeID1", "Jae1", "Relaatio", "Sivu2", "JaeID2", "Jae2")],
+				include.rownames = FALSE,
+				caption = "Relaatiot",
+				caption.placement = "top",
+				show_all = TRUE
+		)
 } else {
-	version <- as.numeric(version)
-}
+			temp <-	out[c("Versio", "RelaatioID", "Sivu1", "JaeID1", "Jae1", "Relaatio", "Sivu2", "JaeID2", "Jae2")]
+temp <- data.frame(
-dat <- data.frame(
+Jae1 = paste(temp$Jae1, " (", temp$Sivu1, ")", sep = ""),
-	Versio = version,
+Relaatio = temp$Relaatio,
-	Aika = date(),
+Jae2 = paste(temp$Jae2, " (", temp$Sivu2, ")", sep = "")
-	Käyttäjä = wiki_username,
+)
-	Syy = syy,
+oprint(temp,
-	Result = avid
+				include.rownames = FALSE,
-)
+				caption = "Relaatiot",
+				caption.placement = "top",
-opbase.upload(
+				show_all = TRUE
-	dat,
+		)
-	ident = ident,
+}
-	name = pagename,
+	} else {
-	subset = "Avainsananpoistot",
+		cat("Ei relaatioita!\n")
-	act_type = "append",
+	}
-	language = "fin",
-	who = wiki_username
+	# Sisällytykset
-)
+	if (nrow(rel[(rel$Relaatio %in% sis_opt),]) > 0) {
+		colnames(jakeet)[colnames(jakeet) %in% c("JaeID","JaeID2")] <- "JaeID1"
-cat("Avainsana poistettiin onnistuneesti.\n")
+		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",
+			show_all = TRUE
+		)
+	} else {
+		cat("Ei sisällytyksiä!\n")
+	}
+}
 </rcode>
-===Relaatiot===
+=== Avainsana- ja relaatiotietojen analyysi ===
-'''Hakee relaatioita joissa mahdollisesti annetut jakeet esiintyvät. Näyttää datan sellaisena kuin se on tietokannassa.'''
-<rcode label="Näytä relaatiot" name="relaatiot_display" embed=1 variables="
+'''Hae jakeita annetuilla kriteereillä ja vertaile avainsanojen ja relaatioiden lukumääriä. Halutessasi voit myös listata jaeosumat. Vapaakenttiin voi syöttää useita arvoja erottelemalla ne pilkuilla.'''
-	name:sivu|description:Sivu jonka relaatioita haetaan|type:selection|options:
-		NULL;Kaikki;
+Käytetyt avainsanat:
-		'21 polkua kitkattomaan Suomeen - ICT 2015-työryhmän loppuraportti';21 polkua kitkattomaan Suomeen - ICT 2015-työryhmän loppuraportti;
+{{piilotettu|
-		'Asiakaspalvelu 2014 loppuraportti';Asiakaspalvelu 2014 loppuraportti;
+D-tulostus                  Aikataulut                   Ajoneuvokanta                Alueellisuus
-		'Julkisen hallinnon asiakkuusstrategia';Julkisen hallinnon asiakkuusstrategia;
+alustus                      Ammattiryhmät                Arvo                         Asutus
-		'Julkisen hallinnon ICT:n hyödyntämisen strategia 2012-2020';Julkisen hallinnon ICT:n hyödyntämisen strategia 2012-2020;
+Aurinko                      Automatisaatio               Avoimuus                     Big Data
-		'Kansallinen paikkatietostrategia';Kansallinen paikkatietostrategia;
+Biopolttoaine                Dataliikenne                 Digitalisoituminen           Eettisyys
-		'Kohti esteetöntä tietoyhteiskuntaa toimenpideohjelma 2011-2015';Kohti esteetöntä tietoyhteiskuntaa toimenpideohjelma 2011-2015;
+eIDAS                        Elintaso                     Energia                      Epäselvä luokka
-		'Kohti uutta liikennepolitiikkaa - Älyä liikenteeseen ja viisautta liikkujille';Kohti uutta liikennepolitiikkaa - Älyä liikenteeseen ja viisautta liikkujille;
+Eriarvoisuus                 Erityisryhmät                Esineiden internet           Globaalius
-		'KIDE-hanke';KIDE-hanke;
+Globaaluis                   Henkilökortti                Henkilötiedot                Huutokauppa
-		'Opetus- ja kulttuuriministeriön älystrategia';Opetus- ja kulttuuriministeriön älystrategia;
+Hybridi                      Hybridi-TV                   Hyvinvointi                  Hyvinvointiyhteiskunta
-		'Rakennepoliittinen ohjelma';Rakennepoliittinen ohjelma;
+Häiriöt                      Ilmasto                      Infrastruktuuri              Innovatiivisus
-		'Sähköisen asioinnin ja demokratian vauhdittamisohjelman toteuttamissuunnitelma 2009-2014';Sähköisen asioinnin ja demokratian vauhdittamisohjelman toteuttamissuunnitelma 2009-2014;
+Innovatiivisuus              Internet                     Investoinnit                 Joukkoliikenne
-		'Tuottava ja uudistuva Suomi - Digitaalinen agenda vuosille 2011-2020';Tuottava ja uudistuva Suomi - Digitaalinen agenda vuosille 2011-2020;
+Joustavuus                   Julkinen valta               Kaivosteollisuus             Kansainvälisyys
-		'Valtioneuvoston periaatepäätös julkisen sektorin digitaalisten tietoaineistojen saatavuuden parantamisesta ja uudelleenkäytön edistämisestä';Valtioneuvoston periaatepäätös julkisen sektorin digitaalisten tietoaineistojen saatavuuden parantamisesta ja uudelleenkäytön edistämisestä;
+Kasvihuonekaasut             Kaupallisuus                 Kaupungit                    Kehitys
-		'Valtioneuvoston periaatepäätös kansallisesta älyliikenteen strategiasta';Valtioneuvoston periaatepäätös kansallisesta älyliikenteen strategiasta;
+Kestävyys                    Kevyen liikenteen väylät     Kevytliikenne                Kiinteistöt
-		'Valtioneuvoston periaatepäätös sähköisestä tunnistamisesta';Valtioneuvoston periaatepäätös sähköisestä tunnistamisesta;
+Kilpailu                     Kilpailukyky                 Konesalit                    Konkreettisuus
-		'Valtioneuvoston periaatepäätös valtion pysyvien toimintamenosäästöjen aikaansaamisesta';Valtioneuvoston periaatepäätös valtion pysyvien toimintamenosäästöjen aikaansaamisesta;
+Kotimaisuus                  Koulutus                     Kunnat                       Kustannustehokkuus
-		'Vaikuttavuus- ja tuloksellisuusohjelma (VATU)';Vaikuttavuus- ja tuloksellisuusohjelma (VATU);
+Kuuluvuus                    Kävely                       Laajakaista                  Lainsäädäntö
-		'Valtion_konesalistrategia_2014';Valtion_konesalistrategia_2014|
+Laiton tarjonta              Langattomuus                 Lappi                        Lentoliikenne
-	name:jaeid|description:Anna halutessasi jakeen ID(:t)|type:text|default:hae kaikki|
+Liikenne                     Liikenneverkostot            Liikkumistili                Linja-autot
-	name:version|description:Versio|type:text|default:nykyinen|
+Logistiikka                  Luonnonsuojelu               Lämmitys                     Maakaasu
-	name:ident|type:hidden|default:'{{{1|Op_fi{{PAGEID}}}}}'
+Maatalous                    Mainonta                     Markkinat                    Massavalvonta
-">
+Meriliikenne                 Metadata                     Mobiiliverkko                Mopot
-library(OpasnetUtils)
+Nopeus                       Ohjaus                       Ohjelmistot                  Ohjelmistotoimittaja
-library(plyr)
+Oikeusturva                  Omavaraisuus                 Operaattori                  Osaaminen
-objects.latest("Op_fi4325", "apufunktiot")
+Ostovoima                    Palaute                      Palvelut                     Palvelutaso
+Peruskunto                   Pilvipalvelut                Polttoaine                   Posti
-# Erottelu pilkuilla ja välilyöntien poisto
+Puelueettomuus               Pysäköinti                   Pyöräily                     Päivitys
-if (!is.null(sivu)) sivu <- gsub("^\\s*|\\s*$", "", strsplit(sivu, ",")[[1]])
+Pääkaupunkiseutu             Päästöt                      Päätöksenteko                Päätös
-if (tolower(jaeid == "hae kaikki")) {
+Raha                         Rahoitus                     Rahtliikenne                 Rajapinnat
-	jaeid <- NULL
+Rakennemuutos                Rakentaminen                 Raskas liikenne              Rautatiet
-} else {
+Riippuvuus                   Rikokset                     Robotisaatio                 Ruuhkamaksu
-	jaeid <- gsub("^\\s*|\\s*$", "", strsplit(jaeid, ",")[[1]])
+Ruuhkautuminen               Saatavuus                    Sateliittipaikannus          Sovellukset
-}
+Strategia                    Suunnittelu                  Sähkö                        Sähköauto
-version <- gsub("^\\s*|\\s*$", "", strsplit(version, ",")[[1]])
+Sääntely                     Säästöt                      Talous                       Talouskasvu
-a <- tolower(version) == "nykyinen"
+Tarpeet                      Tasa-arvo                    Tasapuolisuus                Tasavertaisuus
-if (any(a)) {
+Tavaraliikenne               Tehokkuus                    Tekijänoikeus                Tekniikkaneutraalius
-	version <- version[!a]
+Tekninen tuki                Teknologia                   Teknologianeutraalius        Teollisuus
-	version <- c(version, get_current_version(ident))
+Terveydenhuolto              Terveys                      testi                        Tiedon avoimuus
-}
+Tiedon hallinnointi          Tiedon hallinta              Tiedon hyödyntäminen         Tieliikenne
-version <- as.numeric(version)
+Tietoliikenne                Tietoturva                   Toimilupa                    Toiminta
+Toimintavarmuus              Toimivuus                    Tuki                         Turvallisuus
+Turvaverkko                  Tutkimus                     Tuuli                        TV
+Työllisyys                   Työn tekemiseen liittyvä     Ulkomaat                     Uudistus
+Vaihtoehtoiset polttoaineet  Vaikuttaminen                Vaikutus                     Vakuutus
+Valinnanvapaus               Valtio                       Varmenne                     Varmuus
+Vastuu                       Verkostoituminen             Verotus                      Vesiliikenne
+Vesiliikenne, Tasavertaisuus Viestintäverkot              Viranomaiset                 Yhteensopivuus
+Yhteiskunta                  Yhteiskuntamurros            Yhteistyö                    Yhteysnopeus
+Yksityisautoilu              Yksityisyydensuoja           YLE                          Yleispalvelu
+Yleisradio                   Ympäristö                    Yritykset                    Öljy
+}}
-filter <- list()
+<rcode label="Näytä tilastoja/jakeita" name="jae_stats" embed=1 graphics=1 variables="
-filter$Sivu1 <- sivu
+	name:sivu|description:Minkä sivun jakeita haluat tarkastella?|type:selection|options:
-filter$Versio <- version
+		NULL;Kaikki;
-filter$JaeID1 <- jaeid
+		'21 polkua kitkattomaan Suomeen - ICT 2015-työryhmän loppuraportti';21 polkua kitkattomaan Suomeen - ICT 2015-työryhmän loppuraportti;
+		'Asiakaspalvelu 2014 loppuraportti';Asiakaspalvelu 2014 loppuraportti;
-rel1 <- try_dl_rm(
+		'Julkisen hallinnon asiakkuusstrategia';Julkisen hallinnon asiakkuusstrategia;
-	paste(ident, "Relaatiot", sep = "."),
+		'Julkisen hallinnon ICT:n hyödyntämisen strategia 2012-2020';Julkisen hallinnon ICT:n hyödyntämisen strategia 2012-2020;
-	filter = filter,
+		'Kansallinen paikkatietostrategia';Kansallinen paikkatietostrategia;
-	rm_id = paste(ident, "Relaationpoistot", sep = "."),
+		'Kohti esteetöntä tietoyhteiskuntaa toimenpideohjelma 2011-2015';Kohti esteetöntä tietoyhteiskuntaa toimenpideohjelma 2011-2015;
-	rm_ind = "RelaatioID"
+		'Kohti uutta liikennepolitiikkaa - Älyä liikenteeseen ja viisautta liikkujille';Kohti uutta liikennepolitiikkaa - Älyä liikenteeseen ja viisautta liikkujille;
-)
+		'KIDE-hanke';KIDE-hanke;
-if (is.null(jaeid)) {
+		'Opetus- ja kulttuuriministeriön älystrategia';Opetus- ja kulttuuriministeriön älystrategia;
-	rel2 <- data.frame()
+		'Rakennepoliittinen ohjelma';Rakennepoliittinen ohjelma;
-} else {
+		'Sähköisen asioinnin ja demokratian vauhdittamisohjelman toteuttamissuunnitelma 2009-2014';Sähköisen asioinnin ja demokratian vauhdittamisohjelman toteuttamissuunnitelma 2009-2014;
-	filter$JaeID1 <- NULL
+		'Tuottava ja uudistuva Suomi - Digitaalinen agenda vuosille 2011-2020';Tuottava ja uudistuva Suomi - Digitaalinen agenda vuosille 2011-2020;
-	filter$Sivu1 <- NULL
+		'Valtioneuvoston periaatepäätös julkisen sektorin digitaalisten tietoaineistojen saatavuuden parantamisesta ja uudelleenkäytön edistämisestä';Valtioneuvoston periaatepäätös julkisen sektorin digitaalisten tietoaineistojen saatavuuden parantamisesta ja uudelleenkäytön edistämisestä;
-	filter$JaeID2 <- jaeid
+		'Valtioneuvoston periaatepäätös kansallisesta älyliikenteen strategiasta';Valtioneuvoston periaatepäätös kansallisesta älyliikenteen strategiasta;
-	filter$Sivu2 <- sivu
+		'Valtioneuvoston periaatepäätös sähköisestä tunnistamisesta';Valtioneuvoston periaatepäätös sähköisestä tunnistamisesta;
+		'Valtioneuvoston periaatepäätös valtion pysyvien toimintamenosäästöjen aikaansaamisesta';Valtioneuvoston periaatepäätös valtion pysyvien toimintamenosäästöjen aikaansaamisesta;
-	rel2 <- try_dl_rm(
+		'Vaikuttavuus- ja tuloksellisuusohjelma (VATU)';Vaikuttavuus- ja tuloksellisuusohjelma (VATU);
-		paste(ident, "Relaatiot", sep = "."),
+		'Valtion_konesalistrategia_2014';Valtion_konesalistrategia_2014|
-		filter = filter,
+	name:avainsanat|description:Hae jakeita joilla on ainakin yksi seuraavista avainsanoista|type:text|
-		rm_id = paste(ident, "Relaationpoistot", sep = "."),
+	name:avainsanat_all|description:Hae jakeita joilla on kaikki seuraavat avainsanat|type:text|
-		rm_ind = "RelaatioID"
+	name:jaelista|description:Haluatko nähdä kaikki löydetyt jakeet?|type:selection|options:FALSE;En;TRUE;Kyllä|default:FALSE|
-	)
+	name:version|description:Versio|type:text|default:nykyinen|
-}
+	name:ident|type:hidden|default:'{{{1|Op_fi{{PAGEID}}}}}'
+">
+library(OpasnetUtils)
+library(plyr)
+objects.latest("Op_fi4325", "apufunktiot")
+library(ggplot2)
-out <- rbind(rel1, rel2)
+filter <- list()
+if (nchar(gsub(" ", "", avainsanat)) > 0) {
-if (nrow(out) > 0) {
+	avainsanat <- strsplit(avainsanat, ",")[[1]]
-	oprint(
+	avainsanat <- gsub("^\\s*|\\s*$", "", avainsanat)
-		out,
+} else {
-		include.rownames = FALSE,
+	avainsanat <- NULL
-		caption = "Relaatiot",
+}
-		caption.placement = "top"
+if (nchar(gsub(" ", "", avainsanat_all)) > 0) {
-	)
+	avainsanat_all <- strsplit(avainsanat_all, ",")[[1]]
+	avainsanat_all <- gsub("^\\s*|\\s*$", "", avainsanat_all)
+	#filter$Avainsana <- avainsanat_all
 } else {
-	cat("Relaatioita ei löytynyt!\n")
+	avainsanat_all <- NULL
+}
+filter$Sivu <- sivu
+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$Versio <- version
-</rcode>
+if (length(filter) == 0) filter <- NULL
-==== Relaation lisääminen ====
+tags <- try_dl_rm(
-'''Lisää uuden relaation tietokantaan. Samantyyppisiä relaatioita voi kerralla lisätä useita, kun erottelee JaeID:t pilkuilla: relaatiot voi tehdä kaikki yhteen, yksi kaikkiin tai yksi yhteen. '''
+		paste(ident, "Avainsanat", sep = "."),
-<rcode label="Lisää relaatio" name="relaatio" embed=1 variables="
+		filter = filter,
-	name:sivu1|description:Mikä on lähtöjakeen sivu?|type:selection|options:
+		rm_id = paste(ident, "Avainsananpoistot", sep = "."),
-		'21 polkua kitkattomaan Suomeen - ICT 2015-työryhmän loppuraportti';21 polkua kitkattomaan Suomeen - ICT 2015-työryhmän loppuraportti;
+		rm_ind = "AvainsanaID"
-		'Asiakaspalvelu 2014 loppuraportti';Asiakaspalvelu 2014 loppuraportti;
+)
-		'Julkisen hallinnon asiakkuusstrategia';Julkisen hallinnon asiakkuusstrategia;
-		'Julkisen hallinnon ICT:n hyödyntämisen strategia 2012-2020';Julkisen hallinnon ICT:n hyödyntämisen strategia 2012-2020;
+jaeid <- NULL
-		'Kansallinen paikkatietostrategia';Kansallinen paikkatietostrategia;
-		'Kohti esteetöntä tietoyhteiskuntaa toimenpideohjelma 2011-2015';Kohti esteetöntä tietoyhteiskuntaa toimenpideohjelma 2011-2015;
+if (!is.null(avainsanat)|!is.null(avainsanat_all)) {
-		'Kohti uutta liikennepolitiikkaa - Älyä liikenteeseen ja viisautta liikkujille';Kohti uutta liikennepolitiikkaa - Älyä liikenteeseen ja viisautta liikkujille;
+	tags <- tags[tags$Result %in% c(avainsanat, avainsanat_all), ]
-		'KIDE-hanke';KIDE-hanke;
+	jaeid <- unique(as.character(tags$JaeID))
-		'Opetus- ja kulttuuriministeriön älystrategia';Opetus- ja kulttuuriministeriön älystrategia;
+}
-		'Rakennepoliittinen ohjelma';Rakennepoliittinen ohjelma;
-		'Sähköisen asioinnin ja demokratian vauhdittamisohjelman toteuttamissuunnitelma 2009-2014';Sähköisen asioinnin ja demokratian vauhdittamisohjelman toteuttamissuunnitelma 2009-2014;
+if(!is.null(avainsanat_all)) {
-		'Tuottava ja uudistuva Suomi - Digitaalinen agenda vuosille 2011-2020';Tuottava ja uudistuva Suomi - Digitaalinen agenda vuosille 2011-2020;
+	temp <- list()
-		'Valtioneuvoston periaatepäätös julkisen sektorin digitaalisten tietoaineistojen saatavuuden parantamisesta ja uudelleenkäytön edistämisestä';Valtioneuvoston periaatepäätös julkisen sektorin digitaalisten tietoaineistojen saatavuuden parantamisesta ja uudelleenkäytön edistämisestä;
+	for (i in 1:nrow(jaeid)) {
-		'Valtioneuvoston periaatepäätös kansallisesta älyliikenteen strategiasta';Valtioneuvoston periaatepäätös kansallisesta älyliikenteen strategiasta;
+		temp[[i]] <- avainsanat_all %in% tags$Result[tags$JaeID == jaeid[i]]
-		'Valtioneuvoston periaatepäätös sähköisestä tunnistamisesta';Valtioneuvoston periaatepäätös sähköisestä tunnistamisesta;
+	}
-		'Valtioneuvoston periaatepäätös valtion pysyvien toimintamenosäästöjen aikaansaamisesta';Valtioneuvoston periaatepäätös valtion pysyvien toimintamenosäästöjen aikaansaamisesta;
+	temp <- lapply(temp, all)
-		'Vaikuttavuus- ja tuloksellisuusohjelma (VATU)';Vaikuttavuus- ja tuloksellisuusohjelma (VATU);
+	jaeid <- jaeid[temp]
-		'Valtion_konesalistrategia_2014';Valtion_konesalistrategia_2014|
+	tags <- tags[tags$JaeID %in% jaeid,]
-	name:jaeid1|description:Mikä on lähtöjakeen ID?|type:text|
+}
-	name:version|description:Mikä on lähtöjakeen versio?|type:text|default:nykyinen|
-	name:sivu2|description:Mikä on kohdejakeen sivu?|type:selection|options:
+if (nrow(tags) == 0) {
-		'Sama';Sama kuin lähtöjakeella;
+	cat("Avainsanoja ei löytynyt.\n")
-		'21 polkua kitkattomaan Suomeen - ICT 2015-työryhmän loppuraportti';21 polkua kitkattomaan Suomeen - ICT 2015-työryhmän loppuraportti;
+}
-		'Asiakaspalvelu 2014 loppuraportti';Asiakaspalvelu 2014 loppuraportti;
-		'Julkisen hallinnon asiakkuusstrategia';Julkisen hallinnon asiakkuusstrategia;
+if (is.null(filter)) {
-		'Julkisen hallinnon ICT:n hyödyntämisen strategia 2012-2020';Julkisen hallinnon ICT:n hyödyntämisen strategia 2012-2020;
+	filter2 <- list()
-		'Kansallinen paikkatietostrategia';Kansallinen paikkatietostrategia;
+} else {
-		'Kohti esteetöntä tietoyhteiskuntaa toimenpideohjelma 2011-2015';Kohti esteetöntä tietoyhteiskuntaa toimenpideohjelma 2011-2015;
+	filter2 <- filter
-		'Kohti uutta liikennepolitiikkaa - Älyä liikenteeseen ja viisautta liikkujille';Kohti uutta liikennepolitiikkaa - Älyä liikenteeseen ja viisautta liikkujille;
+}
-		'KIDE-hanke';KIDE-hanke;
-		'Opetus- ja kulttuuriministeriön älystrategia';Opetus- ja kulttuuriministeriön älystrategia;
+filter2$JaeID <- jaeid
-		'Rakennepoliittinen ohjelma';Rakennepoliittinen ohjelma;
-		'Sähköisen asioinnin ja demokratian vauhdittamisohjelman toteuttamissuunnitelma 2009-2014';Sähköisen asioinnin ja demokratian vauhdittamisohjelman toteuttamissuunnitelma 2009-2014;
+if (length(filter2) == 0) filter2 <- NULL
-		'Tuottava ja uudistuva Suomi - Digitaalinen agenda vuosille 2011-2020';Tuottava ja uudistuva Suomi - Digitaalinen agenda vuosille 2011-2020;
-		'Valtioneuvoston periaatepäätös julkisen sektorin digitaalisten tietoaineistojen saatavuuden parantamisesta ja uudelleenkäytön edistämisestä';Valtioneuvoston periaatepäätös julkisen sektorin digitaalisten tietoaineistojen saatavuuden parantamisesta ja uudelleenkäytön edistämisestä;
+if (jaelista) {
-		'Valtioneuvoston periaatepäätös kansallisesta älyliikenteen strategiasta';Valtioneuvoston periaatepäätös kansallisesta älyliikenteen strategiasta;
+	jakeet <- jaehakukone(
-		'Valtioneuvoston periaatepäätös sähköisestä tunnistamisesta';Valtioneuvoston periaatepäätös sähköisestä tunnistamisesta;
+		ident,
-		'Valtioneuvoston periaatepäätös valtion pysyvien toimintamenosäästöjen aikaansaamisesta';Valtioneuvoston periaatepäätös valtion pysyvien toimintamenosäästöjen aikaansaamisesta;
+		sivu = filter2$Sivu, # *list$non-existent returns NULL
-		'Vaikuttavuus- ja tuloksellisuusohjelma (VATU)';Vaikuttavuus- ja tuloksellisuusohjelma (VATU);
+		versio = filter2$Versio,
-		'Valtion_konesalistrategia_2014';Valtion_konesalistrategia_2014|
+		jae = filter2$JaeID
-	name:jaeid2|description:Mikä on kohdejakeen ID?|type:text|
+	)
-	name:relaatio|description:'''Kuinka lähtöjae liittyy kohdejakeeseen?'''|type:selection|options:
+	if (nrow(jakeet) == 0) {
-		' ';- Valitse -;
+		cat("Avainsanoissa listattuja jakeita ei löytynyt.\n")
-		'tukee tai on linjassa';tukee tai on linjassa;
+	} else {
-		'vastustaa tai on ristiriidassa';vastustaa tai on ristiriidassa;
+		colnames(jakeet)[colnames(jakeet) == "Result"] <- "Sisältö"
-		'on neutraali suhteessa';on neutraali suhteessa;
+		tagged <- NULL
-		'on uusi linjaus tai painotus';on uusi linjaus tai painotus;
+		if (nrow(tags) > 0) {
-		'kuuluu ryhmään/kokoelmaan';kuuluu ryhmään/kokoelmaan;
+			#tagged <- join(
-		'liittyy';liittyy;
+			#	jakeet[c("Versio", "Sivu", "Aihe", "JaeID")],
-		'edellyttää';edellyttää;
+			#	tags[c("Versio", "Sivu", "JaeID", "Result")]
-		'sisältää';sisältää;
+			#)
-		'vaikuttaa';vaikuttaa;
+			#colnames(tagged)[colnames(tagged) == "Result"] <- "Avainsana"
-		'vastaa';vastaa;
+			tagged <- tapply(tags$Result, tags[c("Versio", "Sivu", "JaeID")], paste, collapse = ", ")
-		'kumoaa';kumoaa|
+			tagged <- as.data.frame(as.table(tagged))
-	name:lisarelaatio|description:VAPAAEHTOINEN Voit antaa oman jakeiden välisen relaation vapaakenttään.|type:text|
+			colnames(tagged)[colnames(tagged) == "Freq"] <- "Avainsanat"
-	name:ident|type:hidden|default:'{{{1|Op_fi{{PAGEID}}}}}'|
+			tagged <- join(
-	name:pagename|type:hidden|default:'{{PAGENAME}}'
+				jakeet[c("Versio", "Sivu", "JaeID", "Sisältö")],
-">
+				tagged[c("Versio", "Sivu", "JaeID", "Avainsanat")],
-relaatio <- ifelse(lisarelaatio == '', relaatio, lisarelaatio)
+				type = "inner",
-if (nchar(gsub(" ", "", relaatio)) == 0) stop("Relaatiota ei annettu!")
+				match = "first"
+			)
+			oprint(
+				tagged[c("Versio", "Sivu", "JaeID", "Sisältö", "Avainsanat")],
+				caption = "Jakeet",
+				caption.placement = "top",
+				include.rownames = FALSE,
+				digits = rep(0, 6)
+			)
+		}
+	}
+}
-library(OpasnetUtils)
+if (nrow(tags) > 0) {
-objects.latest("Op_fi4325", "apufunktiot")
+	tags_out <- ddply(tags, "Result", nrow)
+	colnames(tags_out) <- c("Avainsana", "Lukumäärä")
-jaeid1 <- strsplit(jaeid1, ",", fixed = TRUE)[[1]]
+	tags_out <- tags_out[order(tags_out$Lukumäärä, decreasing = TRUE),]
-jaeid1 <- gsub(" ", "", jaeid1)
+	oprint(
-jaeid2 <- strsplit(jaeid2, ",", fixed = TRUE)[[1]]
+		tags_out,
-jaeid2 <- gsub(" ", "", jaeid2)
+		caption = "Avainsanojen lukumäärät",
+		caption.placement = "top",
+		include.rownames = FALSE,
+		digits = c(0, 0, 0)
+	)
+	ggplot(tags_out, aes(x = Avainsana, y = Lukumäärä, fill = Avainsana)) +
+		geom_bar(stat = "identity") +
+		theme_grey(base_size = 24) +
+		theme(axis.text.x = element_blank(), axis.title.x = element_blank()) +
+		ggtitle("Avainsanojen frekvenssit")
+}
-if (tolower(version) == "nykyinen") {
+# Add previous and next versions to check for inclusion from previous and into next
-	version <- get_current_version(ident)
+original_version <- version
-} else {
+if (!(1 %in% version)) {
-	version <- as.numeric(version)
+	prev <- TRUE
+	version <- c(min(version, na.rm = TRUE) - 1, version)
 }
+version <- c(version, max(version, na.rm = TRUE) + 1)
-if(sivu2 == "Sama") sivu2 <- sivu1
+filter3 <- list()
+filter3$Sivu1 <- sivu
+filter3$Versio <- version
+filter3$JaeID1 <- jaeid
-ident.subset <- paste(ident, "Relaatiot", sep = ".")
+rel1 <- try_dl_rm(
+	paste(ident, "Relaatiot", sep = "."),
+	filter = filter3,
+	rm_id = paste(ident, "Relaationpoistot", sep = "."),
+	rm_ind = "RelaatioID"
+)
+if (is.null(jaeid)) {
+	rel2 <- data.frame()
+} else {
+	filter3$JaeID1 <- NULL
+	filter3$Sivu1 <- NULL
+	filter3$JaeID2 <- jaeid
+	filter3$Sivu2 <- sivu
+	rel2 <- try_dl_rm(
+		paste(ident, "Relaatiot", sep = "."),
+		filter = filter3,
+		rm_id = paste(ident, "Relaationpoistot", sep = "."),
+		rm_ind = "RelaatioID"
+	)
+}
-filter <- list()
+rel <- rbind(rel1, rel2)
-filter$Versio <- version
-dat <- data.frame(
+if (!any(original_version %in% rel$Versio)) stop("Annetuilla versiolla ei löytynyt relaatioita.")
-	RelaatioID = NA,
-	Versio = version,
-	Aika = date(),
-	Käyttäjä = wiki_username,
-	Sivu1 = sivu1,
-	JaeID1 = jaeid1,
-	Sivu2 = sivu2,
-	JaeID2 = jaeid2,
-	Result = relaatio
-)
-upload_with_autoid(
+if (nrow(rel) == 0) {
-	dat,
+	cat("Jakeelle ei löytynyt kysyttyjä relaatioita tietokannassa.\n")
-	ident.subset,
+} else {
-	id_name = "RelaatioID",
+	related <- rel[
-	pagename = pagename,
+		rel$Result %in% c(
-	filter = filter
+			"tukee tai on linjassa",
-)
+			"vastustaa tai on ristiriidassa",
+			"on neutraali suhteessa",
-cat("Relaation lisääminen onnistui.\n")
+			"liittyy",
+			"edellyttää",
+			"sisältää",
+			"vaikuttaa",
+			"vaikuttaa taloudellisesti"
+		), ]
+	related$Result <- as.character(related$Result)
+	affected <- rel[
+		rel$Result %in% c(
+			"ehdotus ei ole antanut aihetta muutoksiin",
+			"ehdotus ei ole antanut aihetta muutoksiin vaan sisältyy olennaisesti jo kirjattuun",
+			"ehdotus huomioitu ja liittyvää painotusta muutettu",
+			"ehdotus huomioitu ja uusi kohta lisätty"
+		), ]
+	affected$Result <- as.character(affected$Result)
+	affected$Result[affected$Result == "ehdotus ei ole antanut aihetta muutoksiin"] <- "Ei aihetta muutoksiin"
+	affected$Result[affected$Result == "ehdotus ei ole antanut aihetta muutoksiin vaan sisältyy olennaisesti jo kirjattuun"] <- "Sisältyy valmiiksi"
+	affected$Result[affected$Result == "ehdotus huomioitu ja liittyvää painotusta muutettu"] <- "Huomioitu painotuksella"
+	affected$Result[affected$Result == "ehdotus huomioitu ja uusi kohta lisätty"] <- "Huomioitu lisäyksellä"
+	related_out <- ddply(related, "Result", nrow)
+	colnames(related_out) <- c("Relaatio", "Lukumäärä")
+	affected_out <- ddply(affected, "Result", nrow)
+	colnames(affected_out) <- c("Sisällytys", "Lukumäärä")
+}
-</rcode>
+if (nrow(related_out > 0)) {
+	ggplot(related_out, aes(x = Relaatio, y = Lukumäärä, fill = Relaatio)) +
+			geom_bar(stat = "identity") +
+			theme_grey(base_size = 24) +
+			theme(axis.text.x = element_blank(), axis.title.x = element_blank()) +
+			ggtitle("Relaatioiden frekvenssit")# + facet_wrap(~Sivu)
+}
-==== Relaation poisto ====
+if (nrow(affected_out > 0)) {
-'''Merkitsee relaation/sisällytyksen epäkelvoksi, jolloin tämän sivun hakukoneet eivät näytä sitä.'''
+	ggplot(affected_out, aes(x = Sisällytys, y = Lukumäärä, fill = Sisällytys)) +
-<rcode name="relaationpoisto" embed=1 label="Poista relaatio" showcode=0 variables="
+			geom_bar(stat = "identity") +
-	name:relid|description:Poistettavan relaation ID (pilkulla eroteltuna useampia)|type:text|
+			theme_grey(base_size = 24) +
-	name:version|description:Mikä versio on kyseessä?|type:text|default:nykyinen|
+			theme(axis.text.x = element_blank(), axis.title.x = element_blank()) +
-	name:syy|description:Poiston syy|type:selection|options:
+			ggtitle("Sisällytyksen frekvenssit")# + facet_wrap(~Sivu)
-	' ';- Valitse syy -;
-	'Relaatio ei päde uudessa versiossa';Relaatio ei päde uudessa versiossa;
-	'Virheellinen relaatio';Virheellinen relaatio|
-	name:ident|type:hidden|default:'{{{1|Op_fi{{PAGEID}}}}}'|
-	name:pagename|type:hidden|default:'{{PAGENAME}}'
-">
-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")
 </rcode>