Versio 26. elokuuta 2014 kello 22.14

Tulevaisuuskatsaus LVM 2014
	Pääsivu · Ohje · Sisällönanalyysi· Tulosta: Taustamateriaali · Keskustelut · Yhteenveto Teema I. Kommentoi: Palvelumarkkinat Energiareformi Digipalvelut Sisällöt Oma painotus Teema II. Kommentoi: Oma tieto Luottamus Dataliiketoiminta Digi-liikenne Oma painotus Teema III. Kommentoi: Turvallisuus Yhteydet Arktis Rahoitus Oma painotus

Tällä sivulla voit tarkastella liikenneministeriön tulevaisuuskatsauksen sisältöä ja kansalaisten antamien kommenttien suhdetta siihen. Alla olevilla työkaluilla voit hakea tekstin jakeita eli erillisiä tekstikappaleita ja niihin liittyviä avainsanoja tai muita jakeita. Relaatiot tarkoittavat kuvailua siitä, millä tavalla kaksi jaetta liittyy toisiinsa.

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 #Jakeenlisäyskone.

#Avainsanat ovat jaekohtaisia ja ne lisätään yleensä käsityönä #Avainsanoitus.

#Relaatiot voidaan määritellä kahden jakeen välille (myös käsityötä)

#Versiot - wikisivuja päivitetään mahdollisesti jatkuvasti, minkä johdosta versiointi on tarpeellista. Koska jakeet ovat versiokohtaisia niin avainsanat ja relaatiot ovat sitä myös. Avainsanojen ja relaatioiden automaattista periytymistä on kehitetty, mutta koodi on vielä kesken #Sulautus (automaattinen sisällytys).

Yhdistelmähakukoneet

Jaekohtainen avainsanalistaus

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

+ 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
On uusi linjaus tai painotus
Ehdotus huomioitu ja liittyvää painotusta muutettu
Ehdotus huomioitu ja uusi kohta lisätty
Ehdotus ei ole antanut aihetta muutoksiin
Ehdotus ei ole antanut aihetta muutoksiin vaan sisältyy olennaisesti jo kirjattuun

Versio:

Nä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(
			"on neutraali suhteessa", 
			"on uusi linjaus tai painotus", 
			"tukee tai on linjassa", 
			"vastustaa tai on ristiriidassa"
		), ]
	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)
}

Työkalut

Aineiston työstämiseen tarkoitettuja koodeja.

Jakeet

Jaehakukone

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

+ Näytä koodi - Piilota koodi

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

# Erottelu pilkuilla ja välilyöntien poisto
if (!is.null(sivu)) sivu <- gsub("^\\s*|\\s*$", "", strsplit(sivu, ",")[[1]])
if (tolower(jaeid == "hae kaikki")) {
	jaeid <- NULL
} else {
	jaeid <- gsub("^\\s*|\\s*$", "", strsplit(jaeid, ",")[[1]])
}
version <- gsub("^\\s*|\\s*$", "", strsplit(version, ",")[[1]])

a <- tolower(version) == "nykyinen"
if (any(a)) {
	version <- version[!a]
	version <- c(version, get_current_version(ident))
}
version <- as.numeric(version)

out <- jaehakukone(ident, sivu = sivu, versio = version, jae = jaeid)

if (nrow(out) > 0) {
	oprint(out, include.rownames = FALSE)
} else {
	cat("Jakeita ei löytynyt!\n")
}

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.

+ 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.

+ 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ää tietokantaan annetut avainsanat. Avainanoja voidaan lisätä ruksaamalla annetusta listasta (vain yleisimmät), tai 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 Katsaustyön tekemiseen liittyvä
E Ei mikään edellisistä (valitse ainakin yksi A-E)

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.

+ 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 määräytyvät 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")

Sisällytyksen lisääminen

Lisää uuden sisällytyksen tietokantaan. Sisällytys tapahtuu aina seuraavaan versioon. Samantyyppisiä sisällytyksiä voi kerralla lisätä useita, kun erottelee JaeID:t pilkuilla: sisällytykset määräytyvät 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 (uudemmassa versiossa)?:

Sisällytettiinkö ehdotus uudempaan versioon?:

+ Näytä koodi - Piilota koodi

if (nchar(gsub(" ", "", sisallytys)) == 0) stop("Sisällytyksen tyyppiä ei annettu!")

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

jaeid1 <- strsplit(jaeid1, ",", fixed = TRUE)[[1]]
jaeid1 <- gsub(" ", "", jaeid1)
jaeid2 <- strsplit(jaeid2, ",", fixed = TRUE)[[1]]
jaeid2 <- gsub(" ", "", jaeid2)

if (tolower(version) == "edellinen") {
	version <- get_current_version(ident) - 1
} else {
	version <- as.numeric(version)
}

if(sivu2 == "Sama") sivu2 <- sivu1

ident.subset <- paste(ident, "Relaatiot", sep = ".")

filter <- list()
filter$Versio <- version

dat <- data.frame(
	RelaatioID = NA,
	Versio = version, 
	Aika = date(), 
	Käyttäjä = wiki_username, 
	Sivu1 = sivu1,
	JaeID1 = jaeid1,
	Sivu2 = sivu2,
	JaeID2 = jaeid2,
	Result = sisallytys
)

upload_with_autoid(
	dat,
	ident.subset,
	id_name = "RelaatioID",
	pagename = pagename,
	filter = filter
)

cat("Sisällytyksen lisääminen onnistui.\n")

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

Sulautus (automaattinen sisällytys)

Etsii edellisestä versiosta jakeita joiden sisältö löytyy uudessa versiossa jonkin jakeen sisällöstä. Koodi on keskeneräinen johtuen R:n peruskirjaston sisäisestä bugista joka estää samanaikaisen approksimaalisen että osittaisen osuman haun. {{#opasnet_base_link:Op_fi4526}}

Versiot

Versiot(OldID)
Obs	Versio	Sivu	Ident	Result
1	1	Liikenne ja viestintä palveluna	Op_fi4248
2	1	Liikenteen palvelumarkkinat	Op_fi4253
3	1	Liikenteen energiareformi	Op_fi4254
4	1	Älykkäät käyttäjälähtöiset digitaaliset palvelut	Op_fi4255
5	1	Monipuoliset sisällöt	Op_fi4256
6	1	Oma Painotus Teema I	Op_fi4257
7	1	Digitaalinen tieto hyvinvoinnin ja kilpailuedun lähteenä	Op_fi4250
8	1	Käyttäjän oikeus omaan tietoonsa ja sen hyödyntämiseen	Op_fi4258
9	1	Luottamuksen palauttaminen internettiin	Op_fi4259
10	1	Datan liiketoiminta- ja käyttömahdollisuudet	Op_fi4260
11	1	Tieto ja digitalisaatio liikenteessä	Op_fi4261
12	1	Oma Painotus Teema II	Op_fi4262
13	1	Infrastruktuuri kasvun alustana	Op_fi4251
14	1	Toimintavarmuus ja turvallisuus	Op_fi4263
15	1	Liikenne- ja viestintäyhteydet	Op_fi4264
16	1	Arktinen strategia	Op_fi4265
17	1	Liikennejärjestelmän rahoitus ja taloudellinen ohjaus	Op_fi4266
18	1	Oma Painotus Teema III	Op_fi4267
19	1	Ympäristöministeriön tulevaisuuskatsaus	Op_fi4443	24666
20	2	Liikenne ja viestintä palveluna	Op_fi4248
21	2	Liikenteen palvelumarkkinat	Op_fi4253
22	2	Liikenteen energiareformi	Op_fi4254
23	2	Älykkäät käyttäjälähtöiset digitaaliset palvelut	Op_fi4255
24	2	Monipuoliset sisällöt	Op_fi4256
25	2	Oma Painotus Teema I	Op_fi4257
26	2	Digitaalinen tieto hyvinvoinnin ja kilpailuedun lähteenä	Op_fi4250
27	2	Käyttäjän oikeus omaan tietoonsa ja sen hyödyntämiseen	Op_fi4258
28	2	Luottamuksen palauttaminen internettiin	Op_fi4259
29	2	Datan liiketoiminta- ja käyttömahdollisuudet	Op_fi4260
30	2	Tieto ja digitalisaatio liikenteessä	Op_fi4261
31	2	Oma Painotus Teema II	Op_fi4262
32	2	Infrastruktuuri kasvun alustana	Op_fi4251
33	2	Toimintavarmuus ja turvallisuus	Op_fi4263
34	2	Liikenne- ja viestintäyhteydet	Op_fi4264
35	2	Arktinen strategia	Op_fi4265
36	2	Liikennejärjestelmän rahoitus ja taloudellinen ohjaus	Op_fi4266
37	2	Oma Painotus Teema III	Op_fi4267
38	2	Ympäristöministeriön tulevaisuuskatsaus	Op_fi4443	24666

Ero sivun ”Liikenne ja viestintä digitaalisessa Suomessa 2020/Sisällönanalyysi” versioiden välillä

Versio 26. elokuuta 2014 kello 22.14

Sisällys

Tägikone

Käyttöohje

Yhdistelmähakukoneet

Jaekohtainen avainsanalistaus

Jae-relaatio-jae listaus

Avainsana- ja relaatiotietojen analyysi

Työkalut

Jakeet

Jaehakukone

Jakeenlisäyskone

Jakeenpoistokone

Avainsanat

Avainsanahakukone

Avainsanoitus

Avainsanan poisto

Relaatiot

Relaatiohakukone

Relaation lisääminen

Sisällytyksen lisääminen

Relaation poisto

Sulautus (automaattinen sisällytys)

Versiot

Navigointivalikko

@@ Rivi 2: / Rivi 2: @@
 '''Tällä sivulla voit tarkastella liikenneministeriön tulevaisuuskatsauksen sisältöä ja kansalaisten antamien kommenttien suhdetta siihen.
-Alla olevilla työkaluilla voit hakea tekstin jakeita eli erillisiä tekstikappaleita ja niihin liittyviä avainsanoja tai muita jakeita. Relaatiot tarkoittavat kuvailua siitä, millä tavalla kaksi jaetta liittyy toisiinsa.
+Alla olevilla työkaluilla voit hakea tekstin jakeita eli erillisiä tekstikappaleita ja niihin liittyviä avainsanoja tai muita jakeita. Relaatiot tarkoittavat kuvailua siitä, millä tavalla kaksi jaetta liittyy toisiinsa.'''
-== Kehittyneemmät hakukoneet ==
+= Tägikone =
-=== Hae jakeita ===
+== 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. <br />
-'''Hae jakeita ja niihin liittyviä avainsanoja'''
+'''[[#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 [[#Jakeenlisäyskone]]. '''<br />
+'''[[#Avainsanat]] ovat jaekohtaisia ja ne lisätään yleensä käsityönä [[#Avainsanoitus]].'''<br />
+'''[[#Relaatiot]] voidaan määritellä kahden jakeen välille (myös käsityötä)'''<br />
+'''[[#Versiot]] - wikisivuja päivitetään mahdollisesti jatkuvasti, minkä johdosta versiointi on tarpeellista. Koska jakeet ovat versiokohtaisia niin avainsanat ja relaatiot ovat sitä myös. Avainsanojen ja relaatioiden automaattista periytymistä on kehitetty, mutta koodi on vielä kesken [[#Sulautus (automaattinen sisällytys)]].'''
+== Yhdistelmähakukoneet ==
+=== 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:
@@ Rivi 76: / Rivi 87: @@
 	cat("Avainsanoja ei löytynyt!\n")
 } else {
-	colnames(tags)[colnames(tags) == "Result"] <- "Avainsana"
+	# 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(
-		tags[c("Versio", "Sivu", "JaeID", "AvainsanaID", "Avainsana")],
+		out[c("Versio", "Sivu", "JaeID", "Result")],
-		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
@@ Rivi 86: / Rivi 107: @@
 	if (length(sivu) != 1) filter_ind <- c(filter_ind, "Sivu")
 	filter_ind <- c(filter_ind, "JaeID")
-	temp <- as.data.frame(as.table(tapply(
-		out$Avainsana, out["JaeID"], FUN = function(x) {return(paste(x, collapse = ", "))}
+	oprint(
-	)))
+		out[c(filter_ind, "Result", "Avainsanat")],
-	out <- merge(out[c(filter_ind, "Result")], temp)
+		include.rownames = FALSE,
-	colnames(out)[colnames(out) == "Freq"] <- "Avainsanat"
+		show_all = TRUE
-	oprint(unique(out), include.rownames = FALSE, show_all = TRUE)
+	)
 }
 </rcode>
-=== Hae relaatioita ===
+=== Jae-relaatio-jae listaus ===
+'''Hakee jakeita ja niihin liittyviä toisia jakeita listaten myös relaation tyypin'''
-'''Hae relaatioita ja niihin kuuluvia jakeita'''
 <rcode label="Hae" name="relaatiot_disp" embed=1 variables="
 	name:sivu|description:Sivu jolta relaatioita haetaan|type:selection|options:
@@ Rivi 300: / Rivi 320: @@
 </rcode>
-=== Hae avainsanoja ===
+=== Avainsana- ja relaatiotietojen analyysi ===
-'''Tässä voit hakea jakeita ja analysoida niiden määriä hakemalla yhdellä tai useammalla avainsanalla. '''
+'''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:
@@ Rivi 357: / Rivi 377: @@
 }}
-<rcode label="Näytä jakeita/tilastoja" name="jae_stats" embed=1 graphics=1 variables="
+<rcode label="Näytä tilastoja/jakeita" name="jae_stats" embed=1 graphics=1 variables="
 	name:sivu|description:Minkä sivun jakeita haluat tarkastella?|type:selection|options:
 		NULL;Kaikki;
@@ Rivi 598: / Rivi 618: @@
 </rcode>
-== Teknisemmät haut ==
+== Työkalut ==
+'''Aineiston työstämiseen tarkoitettuja koodeja.'''
-===Jakeet===
+=== Jakeet ===
+==== Jaehakukone ====
-'''Kaikkien kenttien arvot saa erotella pilkuilla tässä haussa'''
+'''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=1 variables="
 	name:sivu|description:Sivu jolta jakeita haetaan|type:selection|options:
@@ Rivi 656: / Rivi 676: @@
 	cat("Jakeita ei löytynyt!\n")
 }
 </rcode>
-=== Avainsanat ===
+==== 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.'''
-<rcode label="Näytä avainsanat" name="avainsanat_display" embed=1 variables="
+<rcode label="Lisää jae" name="jakeenlisays" embed=1 variables="
-		name:sivu|description:Sivu jonka avainsanoja haetaan|type:selection|options:
+	name:sivu|description:Sivu jolle jae lisätään|type:selection|options:
-		NULL;Kaikki;
 		'Liikenne ja viestintä palveluna';Liikenne ja viestintä palveluna;
 		'Liikenteen palvelumarkkinat';Liikenteen palvelumarkkinat;
@@ Rivi 683: / Rivi 701: @@
 		'Oma Painotus Teema III';Oma Painotus Teema III;
 		'Ympäristöministeriön tulevaisuuskatsaus';Ympäristöministeriön tulevaisuuskatsaus|
-		name:jaeid|description:Anna halutessasi jakeen ID(:t)|type:text|default:hae kaikki|
+	name:version|description:Versio|type:text|default:nykyinen|
-		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:ident|type:hidden|default:'{{{1|Op_fi{{PAGEID}}}}}'|
+	name:pagename|type:hidden|default:'{{PAGENAME}}'
 ">
 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]])
+	version <- get_current_version(ident)
-if (tolower(jaeid == "hae kaikki")) {
-	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)
-filter <- list()
+out <- data.frame(
-filter$Sivu <- sivu
+	Versio = version,
-filter$Versio <- version
+	Sivu = sivu,
-filter$JaeID <- jaeid
+	Aika = date(),
+	Käyttäjä = wiki_username,
-out <- try_dl_rm(
+	JaeID = NA,
-	paste(ident, "Avainsanat", sep = "."),
+	Result = sisalto
-	filter = filter,
-	rm_id = paste(ident, "Avainsananpoistot", sep = "."),
-	rm_ind = "AvainsanaID"
 )
-if (nrow(out) > 0) {
+ident.subset <- paste(ident, "Jakeenlisaykset", sep = ".")
-	oprint(out, include.rownames = FALSE)
-} else {
-	cat("Avainsanoja ei löytynyt!\n")
-}
-</rcode>
-=== Relaatiot ===
-<rcode label="Näytä relaatiot" name="relaatiot_display" embed=1 variables="
-	name:sivu|description:Sivu jonka relaatioita haetaan|type:selection|options:
-		NULL;Kaikki;
-		'Liikenne ja viestintä palveluna';Liikenne ja viestintä palveluna;
-		'Liikenteen palvelumarkkinat';Liikenteen palvelumarkkinat;
-		'Liikenteen energiareformi';Liikenteen energiareformi;
-		'Älykkäät käyttäjälähtöiset digitaaliset palvelut';Älykkäät käyttäjälähtöiset digitaaliset palvelut;
-		'Monipuoliset sisällöt';Monipuoliset sisällöt;
-		'Oma Painotus Teema I';Oma Painotus Teema I;
-		'Digitaalinen tieto hyvinvoinnin ja kilpailuedun lähteenä';Digitaalinen tieto hyvinvoinnin ja kilpailuedun lähteenä;
-		'Käyttäjän oikeus omaan tietoonsa ja sen hyödyntämiseen';Käyttäjän oikeus omaan tietoonsa ja sen hyödyntämiseen;
-		'Luottamuksen palauttaminen internettiin';Luottamuksen palauttaminen internettiin;
-		'Datan liiketoiminta- ja käyttömahdollisuudet';Datan liiketoiminta- ja käyttömahdollisuudet;
-		'Tieto ja digitalisaatio liikenteessä';Tieto ja digitalisaatio liikenteessä;
-		'Oma Painotus Teema II';Oma Painotus Teema II;
-		'Infrastruktuuri kasvun alustana';Infrastruktuuri kasvun alustana;
-		'Toimintavarmuus ja turvallisuus';Toimintavarmuus ja turvallisuus;
-		'Liikenne- ja viestintäyhteydet';Liikenne- ja viestintäyhteydet;
-		'Arktinen strategia';Arktinen strategia;
-		'Liikennejärjestelmän rahoitus ja taloudellinen ohjaus';Liikennejärjestelmän rahoitus ja taloudellinen ohjaus;
-		'Oma Painotus Teema III';Oma Painotus Teema III;
-		'Ympäristöministeriön tulevaisuuskatsaus';Ympäristöministeriön tulevaisuuskatsaus|
-	name:jaeid|description:Anna halutessasi jakeen ID(:t)|type:text|default:hae kaikki|
-	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")
-# 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
+filter$Sivu <- sivu
-rel1 <- try_dl_rm(
+upload_with_autoid(
-	paste(ident, "Relaatiot", sep = "."),
+	out,
-	filter = filter,
+	ident.subset,
-	rm_id = paste(ident, "Relaationpoistot", sep = "."),
+	id_name = "JaeID",
-	rm_ind = "RelaatioID"
+	pagename = pagename,
+	prefix = "L",
+	filter = filter
 )
-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")
-}
 </rcode>
-== Sisällön muokkaus ==
+==== Jakeenpoistokone ====
+'''Merkitsee jakeen epäkelvoksi, jolloin se jätetään näyttämättä kaikissa tämän sivun hakukoneissa.'''
 <rcode label="Poista jae" name="jakeenpoisto" embed=1 variables="
 	name:sivu|description:Poistettavan jakeen sivu|type:selection|options:
@@ Rivi 881: / Rivi 806: @@
 </rcode>
-<rcode label="Lisää jae" name="jakeenlisays" embed=1 variables="
+=== Avainsanat ===
-	name:sivu|description:Sivu jolle jae lisätään|type:selection|options:
+==== Avainsanahakukone ====
+'''Hakee jaekohtaisia avainsanoja. Näyttää datan sellaisena kuin se on tietokannassa.'''
+<rcode label="Näytä avainsanat" name="avainsanat_display" embed=1 variables="
+		name:sivu|description:Sivu jonka avainsanoja haetaan|type:selection|options:
+		NULL;Kaikki;
 		'Liikenne ja viestintä palveluna';Liikenne ja viestintä palveluna;
 		'Liikenteen palvelumarkkinat';Liikenteen palvelumarkkinat;
@@ Rivi 902: / Rivi 831: @@
 		'Oma Painotus Teema III';Oma Painotus Teema III;
 		'Ympäristöministeriön tulevaisuuskatsaus';Ympäristöministeriön tulevaisuuskatsaus|
-	name:version|description:Versio|type:text|default:nykyinen|
+		name:jaeid|description:Anna halutessasi jakeen ID(:t)|type:text|default:hae kaikki|
-	name:sisalto|description:Jakeen sisältö|type:textbox|
+		name:version|description:Versio|type:text|default:nykyinen|
-	name:ident|type:hidden|default:'{{{1|Op_fi{{PAGEID}}}}}'|
+		name:ident|type:hidden|default:'{{{1|Op_fi{{PAGEID}}}}}'
-	name:pagename|type:hidden|default:'{{PAGENAME}}'
 ">
 library(OpasnetUtils)
+library(plyr)
 objects.latest("Op_fi4325", "apufunktiot")
-if (tolower(version) == "nykyinen") {
+# Erottelu pilkuilla ja välilyöntien poisto
-	version <- get_current_version(ident)
+if (!is.null(sivu)) sivu <- gsub("^\\s*|\\s*$", "", strsplit(sivu, ",")[[1]])
+if (tolower(jaeid == "hae kaikki")) {
+	jaeid <- NULL
 } else {
-	version <- as.numeric(version)
+	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 <- 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$Sivu <- sivu
 filter$Versio <- version
-filter$Sivu <- sivu
+filter$JaeID <- jaeid
-upload_with_autoid(
+out <- try_dl_rm(
-	out,
+	paste(ident, "Avainsanat", sep = "."),
-	ident.subset,
+	filter = filter,
-	id_name = "JaeID",
+	rm_id = paste(ident, "Avainsananpoistot", sep = "."),
-	pagename = pagename,
+	rm_ind = "AvainsanaID"
-	prefix = "L",
-	filter = filter
 )
-</rcode>
-=== Avainsanat ===
+if (nrow(out) > 0) {
+	oprint(out, include.rownames = FALSE)
+} else {
+	cat("Avainsanoja ei löytynyt!\n")
+}
-<rcode label="Lisää avainsana" name="avainsanat" embed=1 variables="
+</rcode>
+==== Avainsanoitus ====
+'''Lisää tietokantaan annetut avainsanat. Avainanoja voidaan lisätä ruksaamalla annetusta listasta (vain yleisimmät), tai syöttämällä vapaakenttään pilkulla eroteltuna.'''
+<rcode label="Lisää avainsana" name="avainsananlisays" embed=1 variables="
 	name:sivu|description:Minkä sivun jakeelle haluat lisätä avainsanoja?|type:selection|options:
 		'Liikenne ja viestintä palveluna';Liikenne ja viestintä palveluna;
@@ Rivi 1 016: / Rivi 948: @@
 cat("Avainsanojen lisääminen onnistui.\n")
 </rcode>
+==== Avainsanan poisto ====
+'''Merkitsee avainsanan epäkelvoksi, jolloin tämän sivun hakukoneet eivät näytä sitä.'''
 <rcode name="avainsananpoisto" embed=1 label="Poista avainsana" showcode=0 variables="
 	name:avid|description:Poistettavan avainsanan ID (pilkulla eroteltuna useampia)|type:text|
@@ Rivi 1 061: / Rivi 994: @@
+=== Relaatiot ===
+==== Relaatiohakukone ====
+'''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="
+	name:sivu|description:Sivu jonka relaatioita haetaan|type:selection|options:
+		NULL;Kaikki;
+		'Liikenne ja viestintä palveluna';Liikenne ja viestintä palveluna;
+		'Liikenteen palvelumarkkinat';Liikenteen palvelumarkkinat;
+		'Liikenteen energiareformi';Liikenteen energiareformi;
+		'Älykkäät käyttäjälähtöiset digitaaliset palvelut';Älykkäät käyttäjälähtöiset digitaaliset palvelut;
+		'Monipuoliset sisällöt';Monipuoliset sisällöt;
+		'Oma Painotus Teema I';Oma Painotus Teema I;
+		'Digitaalinen tieto hyvinvoinnin ja kilpailuedun lähteenä';Digitaalinen tieto hyvinvoinnin ja kilpailuedun lähteenä;
+		'Käyttäjän oikeus omaan tietoonsa ja sen hyödyntämiseen';Käyttäjän oikeus omaan tietoonsa ja sen hyödyntämiseen;
+		'Luottamuksen palauttaminen internettiin';Luottamuksen palauttaminen internettiin;
+		'Datan liiketoiminta- ja käyttömahdollisuudet';Datan liiketoiminta- ja käyttömahdollisuudet;
+		'Tieto ja digitalisaatio liikenteessä';Tieto ja digitalisaatio liikenteessä;
+		'Oma Painotus Teema II';Oma Painotus Teema II;
+		'Infrastruktuuri kasvun alustana';Infrastruktuuri kasvun alustana;
+		'Toimintavarmuus ja turvallisuus';Toimintavarmuus ja turvallisuus;
+		'Liikenne- ja viestintäyhteydet';Liikenne- ja viestintäyhteydet;
+		'Arktinen strategia';Arktinen strategia;
+		'Liikennejärjestelmän rahoitus ja taloudellinen ohjaus';Liikennejärjestelmän rahoitus ja taloudellinen ohjaus;
+		'Oma Painotus Teema III';Oma Painotus Teema III;
+		'Ympäristöministeriön tulevaisuuskatsaus';Ympäristöministeriön tulevaisuuskatsaus|
+	name:jaeid|description:Anna halutessasi jakeen ID(:t)|type:text|default:hae kaikki|
+	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")
+# 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")
+}
+</rcode>
+==== Relaation lisääminen ====
+'''Lisää uuden relaation tietokantaan. Samantyyppisiä relaatioita voi kerralla lisätä useita, kun erottelee JaeID:t pilkuilla: relaatiot määräytyvät kaikki yhteen, yksi kaikkiin tai yksi yhteen. '''
 <rcode label="Lisää relaatio" name="relaatio" embed=1 variables="
 	name:sivu1|description:Mikä on lähtöjakeen sivu?|type:selection|options:
@@ Rivi 1 164: / Rivi 1 190: @@
 </rcode>
+==== Sisällytyksen lisääminen ====
+'''Lisää uuden sisällytyksen tietokantaan. Sisällytys tapahtuu aina seuraavaan versioon. Samantyyppisiä sisällytyksiä voi kerralla lisätä useita, kun erottelee JaeID:t pilkuilla: sisällytykset määräytyvät kaikki yhteen, yksi kaikkiin tai yksi yhteen. '''
 <rcode label="Lisää sisällytys" name="sisallytys" embed=1 variables="
 	name:sivu1|description:Mikä on lähtöjakeen sivu?|type:selection|options:
@@ Rivi 1 265: / Rivi 1 292: @@
 </rcode>
+==== Relaation poisto ====
+'''Merkitsee relaation/sisällytyksen epäkelvoksi, jolloin tämän sivun hakukoneet eivät näytä sitä.'''
 <rcode name="relaationpoisto" embed=1 label="Poista relaatio" showcode=0 variables="
 	name:relid|description:Poistettavan relaation ID (pilkulla eroteltuna useampia)|type:text|
@@ Rivi 1 309: / Rivi 1 337: @@
 </rcode>
-=== Sulautus ===
+=== Sulautus (automaattinen sisällytys) ===
+'''Etsii edellisestä versiosta jakeita joiden sisältö löytyy uudessa versiossa jonkin jakeen sisällöstä. Koodi on keskeneräinen johtuen R:n peruskirjaston sisäisestä bugista joka estää samanaikaisen approksimaalisen että osittaisen osuman haun.'''
 {{tuloslinkki}}
@@ Rivi 1 423: / Rivi 1 451: @@
 </rcode>
-== Tägikone ==
+== Versiot ==
-{{tuloslinkki}}
-=== Versiot ===
 <t2b name="Versiot" index="Versio,Sivu,Ident" unit="OldID">