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

Opasnet Suomista
Siirry navigaatioon Siirry hakuun
p (lisätty linkki varsinaiseen tägikoneeseen)
 
(37 välissä olevaa versiota 3 käyttäjän tekeminä ei näytetä)
Rivi 2: Rivi 2:


'''Tällä sivulla voit tarkastella liikenneministeriön tulevaisuuskatsauksen sisältöä ja kansalaisten antamien kommenttien suhdetta siihen.  
'''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.'''
== Vanha systeemi ==
=== Näytä tietyn sivun jakeet ===


; Näytä valitun sivun kaikki jakeet ja jakeisiin liittyvät avainsanat. Taulukossa näkyy myös JaeID, jonka voit antaa tunnisteeksi alla oleviin työkaluihin ja tarkastella jaekohtaisia tietoja. Tulos avautuu uuteen ikkunaan.
= Tägikone =


<rcode label="Näytä jakeet" name="jakeet" embed=0 variables="
Tägikone on toteutettu [http://finict.fi FinICT]-projetissa ja sitä voi kuka tahansa hyödyntää omien tekstiaineistojensa rikastamisessa. Muista FinICT-pilottihankkeista, jotka hyödyntävät semanttista rikastusta, voit lukea lisää [http://finict.fi/wiki/projektit/ täältä].
name:sivu|description:Minkä sivun jakeet haluat nähdä?|type:selection|options:
 
{{tuloslinkki}}
 
== 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 />
 
'''[[#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 [[#Jakeenlisäyskone|koodilla lisätyt jakeet]]. Kullakin jakeella on oma tunniste (JaeID) joka on sivukohtainen. Etsimällä [[#Jaehakukone|jaehakukoneesta]] oman kommenttisi ja kopioimalla JaeID:n muihin sivun hakukoneisiin voit tarkastella kommenttiisi liitettyjä tägitietoja.'''<br />
 
'''[[#Avainsanat]] ovat jaekohtaisia ja ne lisätään yleensä käsityönä. [[#Avainsanoitus|Avainsanoituksen]] tekee joko kommentoija itse tai moderaattori.'''<br />
 
'''[[#Relaatiot]] voidaan määritellä kahden jakeen välille (myös käsityötä). [[#Relaation lisääminen|Relaatiot lisää]] joko kommentoija itse tai moderaattori.'''<br />
 
'''[[#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 [[#Sulautus (automaattinen sisällytys)|koodi]] on vielä kesken .'''
 
 
== 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:
NULL;Kaikilta;
'Liikenne ja viestintä palveluna';Liikenne ja viestintä palveluna;
'Liikenne ja viestintä palveluna';Liikenne ja viestintä palveluna;
'Liikenteen palvelumarkkinat';Liikenteen palvelumarkkinat;
'Liikenteen palvelumarkkinat';Liikenteen palvelumarkkinat;
Rivi 27: Rivi 46:
'Arktinen strategia';Arktinen strategia;
'Arktinen strategia';Arktinen strategia;
'Liikennejärjestelmän rahoitus ja taloudellinen ohjaus';Liikennejärjestelmän rahoitus ja taloudellinen ohjaus;
'Liikennejärjestelmän rahoitus ja taloudellinen ohjaus';Liikennejärjestelmän rahoitus ja taloudellinen ohjaus;
'Oma Painotus Teema III';Oma Painotus Teema III
'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(OpasnetUtils)
library(plyr)
objects.latest("Op_fi4325", "apufunktiot")


names <-  c(
# Erottelu pilkuilla ja välilyöntien poisto
'Liikenne ja viestintä palveluna',
if (!is.null(sivu)) sivu <- gsub("^\\s*|\\s*$", "", strsplit(sivu, ",")[[1]])
'Liikenteen palvelumarkkinat',
if (tolower(jaeid == "hae kaikki")) {
'Liikenteen energiareformi',
jaeid <- NULL
'Älykkäät käyttäjälähtöiset digitaaliset palvelut',
} else {
'Monipuoliset sisällöt',
jaeid <- gsub("^\\s*|\\s*$", "", strsplit(jaeid, ",")[[1]])
'Oma Painotus Teema I',
'Digitaalinen tieto hyvinvoinnin ja kilpailuedun lähteenä',
'Käyttäjän oikeus omaan tietoonsa ja sen hyödyntämiseen',
'Luottamuksen palauttaminen internettiin',
'Datan liiketoiminta- ja käyttömahdollisuudet',
'Tieto ja digitalisaatio liikenteessä',
'Oma Painotus Teema II',
'Infrastruktuuri kasvun alustana',
'Toimintavarmuus ja turvallisuus',
'Liikenne- ja viestintäyhteydet',
'Arktinen strategia',
'Liikennejärjestelmän rahoitus ja taloudellinen ohjaus',
'Oma Painotus Teema III'
)
ids <- c(4248, 4253, 4254, 4255, 4256, 4257, 4250, 4258, 4259, 4260, 4261, 4262, 4251, 4263, 4264, 4265, 4266, 4267)
ids <- paste("Op_fi", ids, sep = "")
 
id <- ids[match(sivu, names)]
 
dat <- opbase.data("Op_fi4362", 12748, "jakeet", include = list(Sivu = sivu))
datlisays <- tryCatch(opbase.data("Op_fi4362", 12749, subset = "jakeenlisays", include = list(Sivu = c(sivu, "Yleinen"))), error = function(...) return(NULL))
if (!is.null(datlisays)) dat <- rbind(dat, datlisays)
datpoisto <- tryCatch(opbase.data("Op_fi4362", 12755, subset = "jakeenpoistot", include = list(Sivu = sivu)), error = function(...) return(NULL))
if (!is.null(datpoisto))dat <- dat[!dat$JaeID %in% datpoisto$Result,]
 
komm <- tryCatch(opbase.data(id, subset = "Kommentit"), error = function(...) return(NULL))
if (!is.null(komm)) {
kommpois <- opbase.data(id, subset = "Kommenttipoistot")
komm <- komm[c("Obs", "Kommentti")]
colnames(komm) <- c("JaeID", "Result")
komm <- komm[!komm$JaeID %in% kommpois$Kommenttinro,]
if (nrow(komm) > 0) {
komm$JaeID <- paste("K", komm$JaeID, sep = "")
komm$Sivu <- sivu
}
dat <- rbind(dat, komm)
}
}
version <- gsub("^\\s*|\\s*$", "", strsplit(version, ",")[[1]])


avainsanat <- opbase.data("Op_fi4362", 12794, subset = "Avainsanat", include = list(Sivu = sivu))
a <- tolower(version) == "nykyinen"
avainsanat$Jae <- toupper(avainsanat$Jae)
if (any(a)) {
avainsanat <- as.data.frame(as.table(tapply(
version <- version[!a]
avainsanat$Avainsana,
version <- c(version, get_current_version(ident))
INDEX = avainsanat[c("Sivu", "Jae")],
}
FUN = function(x) {paste(x, collapse = ", ")}
version <- as.numeric(version)
)))
colnames(avainsanat)[colnames(avainsanat) == "Freq"] <- "Avainsanat"
 
dat <- merge(dat, avainsanat, by.x = c("Sivu", "JaeID"), by.y = c("Sivu", "Jae"), all.x = TRUE)


oprint(dat, show_all = TRUE, include.rownames = FALSE)
out <- jaehakukone(ident, sivu = sivu, versio = version, jae = jaeid)


</rcode>
if (nrow(out) == 0) {
stop("Jakeita ei löytynyt!")
}


=== Hae jakeen avainsanatietoja ===
filter <- list()
filter$Sivu <- sivu
filter$Versio <- version
filter$JaeID <- jaeid


'''Tässä voit antaa jakeen tunnisteen ja hakea jakeeseen liittyviä avainsanoja.  
tags <- try_dl_rm(
Avainsanat näkyvät myös koko sivun jaelistauksessa (ks. yllä), mutta se voi olla pitkä taulukko ja kömpelö tapa joihinkin tarkoituksiin. Tällä voit tarkastella asioita jakeittain.
paste(ident, "Avainsanat", sep = "."),
filter = filter,
rm_id = paste(ident, "Avainsananpoistot", sep = "."),
rm_ind = "AvainsanaID"
)


<rcode label="Näytä jakeen tiedot" name="jae_show" embed=1 variables="
if (nrow(tags) == 0) {
name:sivu|description:Minkä sivun jakeen tietoja haluat tarkastella?|type:selection|options:
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
)
}
</rcode>
 
=== Jae-relaatio-jae listaus ===
'''Hakee jakeita ja niihin liittyviä toisia jakeita listaten myös relaation tyypin'''
<rcode label="Hae" name="relaatiot_disp" embed=1 variables="
name:sivu|description:Sivu jolta relaatioita haetaan|type:selection|options:
NULL;Kaikilta;
'Liikenne ja viestintä palveluna';Liikenne ja viestintä palveluna;
'Liikenne ja viestintä palveluna';Liikenne ja viestintä palveluna;
'Liikenteen palvelumarkkinat';Liikenteen palvelumarkkinat;
'Liikenteen palvelumarkkinat';Liikenteen palvelumarkkinat;
Rivi 115: Rivi 144:
'Arktinen strategia';Arktinen strategia;
'Arktinen strategia';Arktinen strategia;
'Liikennejärjestelmän rahoitus ja taloudellinen ohjaus';Liikennejärjestelmän rahoitus ja taloudellinen ohjaus;
'Liikennejärjestelmän rahoitus ja taloudellinen ohjaus';Liikennejärjestelmän rahoitus ja taloudellinen ohjaus;
'Oma Painotus Teema III';Oma Painotus Teema III|
'Oma Painotus Teema III';Oma Painotus Teema III;
name:jaeid|description:Jae|type:text
'Ympäristöministeriön tulevaisuuskatsaus';Ympäristöministeriön tulevaisuuskatsaus|
">
name:jaeid|description:Anna halutessasi jakeen ID(:t)|type:text|default:hae kaikki|
library(OpasnetUtils)
name:liitsis|description:Liittymistyyppi (tyhjä = kaikki)|type:checkbox|options:
 
'tukee tai on linjassa';Tukee tai on linjassa;
jaehakukone <- function(main_ident, series_id, page, page_ident, jaeid = NULL) {
'vastustaa tai on ristiriidassa';Vastustaa tai on ristiriidassa;
main_subset <- "jakeet"
'on neutraali suhteessa';On neutraali suhteessa;
added_subset <- "jakeenlisays"
'on uusi linjaus tai painotus';On uusi linjaus tai painotus;
deleted_subset <- "jakeenpoistot"
'ehdotus huomioitu ja liittyvää painotusta muutettu';Ehdotus huomioitu ja liittyvää painotusta muutettu;
comment_subset <- "kommentit"
'ehdotus huomioitu ja uusi kohta lisätty';Ehdotus huomioitu ja uusi kohta lisätty;
deleted_comment_subset <- "Kommenttipoistot"
'ehdotus ei ole antanut aihetta muutoksiin';Ehdotus ei ole antanut aihetta muutoksiin;
general_loc <- "Yleinen"
'ehdotus ei ole antanut aihetta muutoksiin vaan sisältyy olennaisesti jo kirjattuun';Ehdotus ei ole antanut aihetta muutoksiin vaan sisältyy olennaisesti jo kirjattuun|
name:version|description:Versio|type:text|default:nykyinen|
dl <- TRUE
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}}}}}'
filter <- list()
">
filter$Sivu <- c(page, general_loc)
# Eri sisältymistyypit pitää määritellä niin että ne voidaan käsitellä erillään muista relaatioista
if (!is.null(jaeid)){
sis_opt <- c(
a <- !grepl("^[a-zA-Z]", jaeid)
'ehdotus huomioitu ja liittyvää painotusta muutettu',
if(sum(a) > 0) {
'ehdotus huomioitu ja uusi kohta lisätty',
filter$JaeID <- jaeid[a]
'ehdotus ei ole antanut aihetta muutoksiin',  
} else {
'ehdotus ei ole antanut aihetta muutoksiin vaan sisältyy olennaisesti jo kirjattuun'
dl <- FALSE
}
}
if (dl) {
dat <- opbase.data(
main_ident,
series_id,
main_subset,
include = filter
)
} else {
dat <- data.frame()
}
if (!is.null(jaeid)){
a <- grepl("^L", jaeid)
dl <- TRUE
if(sum(a) > 0) {
filter$JaeID <- jaeid[a]
} else {
dl <- FALSE
}
}
datlisays <- NULL
if (dl) {
datlisays <- tryCatch(
opbase.data(
main_ident,
subset = added_subset,
include = filter
),
error = function(...) return(NULL)
)
}
if (!is.null(datlisays)) dat <- rbind(dat, datlisays)
datpoisto <- tryCatch(
opbase.data(
main_ident,
subset = deleted_subset,
include = filter
),
error = function(...) return(NULL)
)
if (!is.null(datpoisto)) dat <- dat[!dat$JaeID %in% datpoisto$Result,]
filter <- list()
if (!is.null(jaeid)){
a <- grepl("^K", jaeid)
dl <- TRUE
if(sum(a) > 0) {
filter$JaeID <- jaeid[a]
} else {
dl <- FALSE
}
}
if (length(filter) == 0) filter <- NULL
komm <- NULL
if (dl) {
komm <- tryCatch(
opbase.data(
page_ident,
subset = comment_subset,
include = filter
),
error = function(...) return(NULL)
)
}
if (!is.null(komm)) {
komm <- komm[c("Obs", "Kommentti")]
colnames(komm) <- c("JaeID", "Result")
kommpois <- tryCatch(
opbase.data(
page_ident,
subset = deleted_comment_subset
),
error = function(...) return(NULL)
)
if (!is.null(kommpois)) {
komm <- komm[!komm$JaeID %in% kommpois$Kommenttinro,]
}
if (nrow(komm) > 0) {
komm$JaeID <- paste("K", komm$JaeID, sep = "")
komm$Sivu <- sivu
}
dat <- rbind(dat, komm)
}
return(dat)
}
 
names <-  c(
'Liikenne ja viestintä palveluna',
'Liikenteen palvelumarkkinat',
'Liikenteen energiareformi',
'Älykkäät käyttäjälähtöiset digitaaliset palvelut',
'Monipuoliset sisällöt',
'Oma Painotus Teema I',
'Digitaalinen tieto hyvinvoinnin ja kilpailuedun lähteenä',
'Käyttäjän oikeus omaan tietoonsa ja sen hyödyntämiseen',
'Luottamuksen palauttaminen internettiin',
'Datan liiketoiminta- ja käyttömahdollisuudet',
'Tieto ja digitalisaatio liikenteessä',
'Oma Painotus Teema II',
'Infrastruktuuri kasvun alustana',
'Toimintavarmuus ja turvallisuus',
'Liikenne- ja viestintäyhteydet',
'Arktinen strategia',
'Liikennejärjestelmän rahoitus ja taloudellinen ohjaus',
'Oma Painotus Teema III'
)
)
ids <- c(4248, 4253, 4254, 4255, 4256, 4257, 4250, 4258, 4259, 4260, 4261, 4262, 4251, 4263, 4264, 4265, 4266, 4267)
#liit_opt <- c(
ids <- paste("Op_fi", ids, sep = "")
# '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")


id <- ids[match(sivu, names)]
# Erottelu pilkuilla ja välilyöntien poisto
 
if (!is.null(sivu)) sivu <- gsub("^\\s*|\\s*$", "", strsplit(sivu, ",")[[1]])
jae <- jaehakukone("Op_fi4362", 12748, sivu, id, jaeid)
if (tolower(jaeid == "hae kaikki")) {
jae <- jae[!colnames(jae) %in% c("Sivu", "JaeID")]
jaeid <- NULL
oprint(jae, include.rownames = FALSE)
 
tags <- tryCatch(
opbase.data("Op_fi4362", 12794, subset = "Avainsanat", include = list(Sivu = sivu, Jae = jaeid)),  
error = function(...) return(NULL)
)
 
if (is.null(tags)) {
cat("Jakeella ei ole avainsanoja tietokannassa\n")
} else {
} else {
cat("Avainsanat: ")
jaeid <- gsub("^\\s*|\\s*$", "", strsplit(jaeid, ",")[[1]])
cat(paste(as.character(tags$Avainsana), collapse = ", "))
}
cat("\n")
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)


</rcode>
filter <- list()
filter$Sivu1 <- sivu
filter$Versio <- version
filter$JaeID1 <- jaeid


=== Hae jakeen relaatiotietoja ===
rel1 <- try_dl_rm(
 
paste(ident, "Relaatiot", sep = "."),
'''Tässä voit antaa jakeen tunnisteen ja etsiä jakeen kytkentöjä eli relaatioita muihin jakeisiin.  
filter = filter,
Voit rajata haun tiettyyn sivuun tai tietyntyyppiseen relaatioon.
rm_id = paste(ident, "Relaationpoistot", sep = "."),
 
rm_ind = "RelaatioID"
<rcode label="Näytä jakeen relaatiot" name="jae_show" embed=1 variables="
)
name:sivu|description:Minkä sivun jakeen relaatioita haluat tarkastella?|type:selection|options:
if (is.null(jaeid)) {
'Liikenne ja viestintä palveluna';Liikenne ja viestintä palveluna;
rel2 <- data.frame()
'Liikenteen palvelumarkkinat';Liikenteen palvelumarkkinat;
} else {
'Liikenteen energiareformi';Liikenteen energiareformi;
filter$JaeID1 <- NULL
'Älykkäät käyttäjälähtöiset digitaaliset palvelut';Älykkäät käyttäjälähtöiset digitaaliset palvelut;
filter$Sivu1 <- NULL
'Monipuoliset sisällöt';Monipuoliset sisällöt;
filter$JaeID2 <- jaeid
'Oma Painotus Teema I';Oma Painotus Teema I;
filter$Sivu2 <- sivu
'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;
rel2 <- try_dl_rm(
'Luottamuksen palauttaminen internettiin';Luottamuksen palauttaminen internettiin;
paste(ident, "Relaatiot", sep = "."),
'Datan liiketoiminta- ja käyttömahdollisuudet';Datan liiketoiminta- ja käyttömahdollisuudet;
filter = filter,
'Tieto ja digitalisaatio liikenteessä';Tieto ja digitalisaatio liikenteessä;
rm_id = paste(ident, "Relaationpoistot", sep = "."),
'Oma Painotus Teema II';Oma Painotus Teema II;
rm_ind = "RelaatioID"
'Infrastruktuuri kasvun alustana';Infrastruktuuri kasvun alustana;
)
'Toimintavarmuus ja turvallisuus';Toimintavarmuus ja turvallisuus;
}
'Liikenne- ja viestintäyhteydet';Liikenne- ja viestintäyhteydet;
 
'Arktinen strategia';Arktinen strategia;
rel <- rbind(rel1, rel2)
'Liikennejärjestelmän rahoitus ja taloudellinen ohjaus';Liikennejärjestelmän rahoitus ja taloudellinen ohjaus;
 
'Oma Painotus Teema III';Oma Painotus Teema III|
if (!any(original_version %in% rel$Versio)) stop("Annetuilla versiolla ei löytynyt relaatioita.")
name:jaeid|description:Jae|type:text|
 
name:liit|description:Miten jae liittyy haettaviin jakeisiin?|type:selection|options:
if (!is.null(liitsis)) rel <- rel[rel$Result %in% liitsis, ]
NULL;Kaikki;
 
'tukee tai on linjassa';Tukee tai on linjassa;
if (nrow(rel) == 0) {
'vastustaa tai on ristiriidassa';Vastustaa tai on ristiriidassa;
cat("Jakeelle ei löytynyt kysyttyjä relaatioita tietokannassa.\n")
'on neutraali suhteessa';On neutraali suhteessa;
} else {
'on uusi linjaus tai painotus';On uusi linjaus tai painotus|
jakeet <- jaehakukone(
name:sis|description:Sisällytettiinkö jae tulevaisuuskatsauksen uuteen versioon?|type:selection|options:
ident,
NULL;Kaikki;
sivu = unique(c(
'ehdotus huomioitu ja liittyvää painotusta muutettu';Ehdotus huomioitu ja liittyvää painotusta muutettu;
as.character(rel$Sivu1),
'ehdotus ei ole antanut aihetta muutoksiin';Ehdotus ei ole antanut aihetta muutoksiin;
as.character(rel$Sivu2)
'ehdotus ei ole antanut aihetta muutoksiin vaan sisältyy olennaisesti jo kirjattuun';Ehdotus ei ole antanut aihetta muutoksiin vaan sisältyy olennaisesti jo kirjattuun
)),
versio = version,
">
jae = unique(c(
jaehakukone <- function(main_ident, series_id, page, page_ident, jaeid = NULL) {
as.character(rel$JaeID1),
main_subset <- "jakeet"
as.character(rel$JaeID2)
added_subset <- "jakeenlisays"
))
deleted_subset <- "jakeenpoistot"
)
comment_subset <- "kommentit"
if (nrow(jakeet) == 0) stop("Relaatioissa listattuja jakeita ei löytynyt!")
deleted_comment_subset <- "Kommenttipoistot"
general_loc <- "Yleinen"
dl <- TRUE
filter <- list()
# Relaatiot
filter$Sivu <- c(page, general_loc)
if (nrow(rel[!(rel$Relaatio %in% sis_opt),]) > 0) {
if (!is.null(jaeid)){
jakeet <- jakeet[c("Versio", "Sivu", "JaeID", "Result")]
a <- !grepl("^[a-zA-Z]", jaeid)
colnames(jakeet)[colnames(jakeet) == "JaeID"] <- "JaeID1"
if(sum(a) > 0) {
colnames(jakeet)[colnames(jakeet) == "Sivu"] <- "Sivu1"
filter$JaeID <- jaeid[a]
colnames(jakeet)[colnames(jakeet) == "Result"] <- "Jae1"
} else {
rel <- rel[c("RelaatioID", "Versio", "Sivu1", "JaeID1", "Result", "Sivu2", "JaeID2")]
dl <- FALSE
colnames(rel)[colnames(rel) == "Result"] <- "Relaatio"
}
out <- join(
}
rel[(!(rel$Relaatio %in% sis_opt)) & rel$Versio %in% original_version,],  
if (dl) {
jakeet,  
dat <- opbase.data(
match = "first" # versio - sivu - jaeid -> yksi yhteen
main_ident,
series_id,
main_subset,
include = filter
)
} else {
dat <- data.frame()
}
if (!is.null(jaeid)){
a <- grepl("^L", jaeid)
dl <- TRUE
if(sum(a) > 0) {
filter$JaeID <- jaeid[a]
} else {
dl <- FALSE
}
}
datlisays <- NULL
if (dl) {
datlisays <- tryCatch(
opbase.data(
main_ident,  
subset = added_subset,  
include = filter
),  
error = function(...) return(NULL)
)
)
}
if (!is.null(datlisays)) dat <- rbind(dat, datlisays)
colnames(jakeet)[colnames(jakeet) == "JaeID1"] <- "JaeID2"
datpoisto <- tryCatch(
colnames(jakeet)[colnames(jakeet) == "Sivu1"] <- "Sivu2"
opbase.data(
colnames(jakeet)[colnames(jakeet) == "Jae1"] <- "Jae2"
main_ident,
out <- join(out, jakeet, match = "first")
subset = deleted_subset,
include = filter
if(details) {
),
oprint(
error = function(...) return(NULL)
out[c("Versio", "RelaatioID", "Sivu1", "JaeID1", "Jae1", "Relaatio", "Sivu2", "JaeID2", "Jae2")],  
)
include.rownames = FALSE,  
if (!is.null(datpoisto)) dat <- dat[!dat$JaeID %in% datpoisto$Result,]
caption = "Relaatiot",
filter <- list()
caption.placement = "top",  
if (!is.null(jaeid)){
show_all = TRUE
a <- grepl("^K", jaeid)
dl <- TRUE
if(sum(a) > 0) {
filter$JaeID <- jaeid[a]
} else {
dl <- FALSE
}
}
if (length(filter) == 0) filter <- NULL
komm <- NULL
if (dl) {
komm <- tryCatch(
opbase.data(
page_ident,  
subset = comment_subset,
include = filter
),  
error = function(...) return(NULL)
)
)
}
} else {
if (!is.null(komm)) {
komm <- komm[c("Obs", "Kommentti")]
temp <- out[c("Versio", "RelaatioID", "Sivu1", "JaeID1", "Jae1", "Relaatio", "Sivu2", "JaeID2", "Jae2")]
colnames(komm) <- c("JaeID", "Result")
temp <- data.frame(
kommpois <- tryCatch(
Jae1 = paste(temp$Jae1, " (", temp$Sivu1, ")", sep = ""),
opbase.data(
Relaatio = temp$Relaatio,
page_ident,
Jae2 = paste(temp$Jae2, " (", temp$Sivu2, ")", sep = "")
subset = deleted_comment_subset
),
error = function(...) return(NULL)
)
if (!is.null(kommpois)) {
komm <- komm[!komm$JaeID %in% kommpois$Kommenttinro,]
}
if (nrow(komm) > 0) {
komm$JaeID <- paste("K", komm$JaeID, sep = "")
komm$Sivu <- sivu
}
dat <- rbind(dat, komm)
}
return(dat)
}
 
names <-  c(
'Liikenne ja viestintä palveluna',
'Liikenteen palvelumarkkinat',  
'Liikenteen energiareformi',  
'Älykkäät käyttäjälähtöiset digitaaliset palvelut',
'Monipuoliset sisällöt',
'Oma Painotus Teema I',
'Digitaalinen tieto hyvinvoinnin ja kilpailuedun lähteenä',
'Käyttäjän oikeus omaan tietoonsa ja sen hyödyntämiseen',
'Luottamuksen palauttaminen internettiin',
'Datan liiketoiminta- ja käyttömahdollisuudet',
'Tieto ja digitalisaatio liikenteessä',
'Oma Painotus Teema II',
'Infrastruktuuri kasvun alustana',
'Toimintavarmuus ja turvallisuus',
'Liikenne- ja viestintäyhteydet',
'Arktinen strategia',
'Liikennejärjestelmän rahoitus ja taloudellinen ohjaus',
'Oma Painotus Teema III'
)
)
ids <- c(4248, 4253, 4254, 4255, 4256, 4257, 4250, 4258, 4259, 4260, 4261, 4262, 4251, 4263, 4264, 4265, 4266, 4267)
oprint(temp,  
ids <- paste("Op_fi", ids, sep = "")
 
id <- ids[match(sivu, names)]
 
library(OpasnetUtils)
 
jae <- jaehakukone("Op_fi4362", 12748, sivu, id, jaeid)
oprint(jae)
 
rel1 <- tryCatch(
opbase.data("Op_fi4362", 12792, subset = "Relaatiot", include = list(Sivu = sivu, Jae = jaeid)),
error = function(...) return(NULL)
)
rel2 <- tryCatch(
opbase.data("Op_fi4362", 12792, subset = "Relaatiot", include = list(Sivu = sivu, Liittymäjae = jaeid)),
error = function(...) return(NULL)
)
if (is.null(rel1)) rel1 <- data.frame()
if (is.null(rel2)) rel2 <- data.frame()
rel <- rbind(rel1, rel2)
if (!is.null(liit)) rel <- rel[rel$"Liittyminen" == liit , ]
if (!is.null(sis)) rel <- rel[rel$"Sisällytys" == sis , ]
if (nrow(rel) == 0) {
oprint("Jakeelle ei löytynyt kysyttyjä relaatioita tietokannassa.")
} else {
liittymäjae <- jaehakukone("Op_fi4362", 12748, sivu, id, c(as.character(rel$Jae), as.character(rel$Liittymäjae)))
#jae <- rbind(jae, liittymäjae)
temp <- rel
colnames(temp)[colnames(temp) == "Jae"] <- "Lähtöjae"
colnames(liittymäjae)[colnames(liittymäjae) == "JaeID"] <- "Liittymäjae"
temp <- temp[colnames(temp) != "Result"]
rel_out1 <- merge(liittymäjae, temp)
colnames(liittymäjae)[colnames(liittymäjae) == "Liittymäjae"] <- "Lähtöjae"
rel_out2 <- merge(liittymäjae, temp)
rel_out1 <- rel_out1[rel_out1$Liittymäjae != jaeid,]
if (nrow(rel_out1)) {
oprint(
rel_out1[c("Lähtöjae", "Liittymäjae", "Liittyminen", "Sisällytys", "Result")],  
include.rownames = FALSE,  
include.rownames = FALSE,  
caption = "Liittyvät liittymä-/kohdejakeet",  
caption = "Relaatiot",  
caption.placement = "top"
caption.placement = "top",  
)
show_all = TRUE
}
rel_out2 <- rel_out2[rel_out2$Lähtöjae != jaeid,]
if (nrow(rel_out2)) {
oprint(
rel_out2[c("Lähtöjae", "Liittymäjae", "Liittyminen", "Sisällytys", "Result")],
include.rownames = FALSE,
caption = "Liittyvät lähtöjakeet",
caption.placement = "top"
)
)
}
} else {
cat("Ei relaatioita!\n")
}
# Sisällytykset
if (nrow(rel[(rel$Relaatio %in% sis_opt),]) > 0) {
colnames(jakeet)[colnames(jakeet) %in% c("JaeID","JaeID2")] <- "JaeID1"
colnames(jakeet)[colnames(jakeet) %in% c("Sivu", "Sivu2")] <- "Sivu1"
colnames(jakeet)[colnames(jakeet) %in% c("Result", "Jae2")] <- "Jae1"
colnames(rel)[colnames(rel) == "Relaatio"] <- "Sisällytys"
out <- join(
rel[rel$Sisällytys %in% sis_opt & rel$Versio %in% version[-length(version)],],
jakeet,
match = "first" # versio - sivu - jaeid -> yksi yhteen
)
colnames(jakeet)[colnames(jakeet) == "JaeID1"] <- "JaeID2"
colnames(jakeet)[colnames(jakeet) == "Sivu1"] <- "Sivu2"
colnames(jakeet)[colnames(jakeet) == "Jae1"] <- "Jae2"
jakeet$Versio <- as.numeric(as.character(jakeet$Versio)) - 1
out <- join(out, jakeet, match = "first")
oprint(
out[c("Versio", "RelaatioID", "Sivu1", "JaeID1", "Jae1", "Sisällytys", "Sivu2", "JaeID2", "Jae2")],
include.rownames = FALSE,
caption = "Sisällytys (uudempaan versioon)",
caption.placement = "top",
show_all = TRUE
)
} else {
cat("Ei sisällytyksiä!\n")
}
}
}
}
</rcode>
</rcode>


=== Hae sivun relaatiotietoja ===
=== Avainsana- ja relaatiotietojen analyysi ===


'''Tässä etsiä sivun jakeiden kytkentöjä eli relaatioita muihin jakeisiin.  
'''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.'''
Voit rajata haun tiettyyn sivuun tai tietyntyyppiseen relaatioon. Taulukko aukeaa uuteen ikkunaan.  


<rcode label="Näytä sivun relaatiot" name="sivu_show" embed=0 variables="
Käytetyt avainsanat:
name:sivu|description:Minkä sivun relaatioita haluat tarkastella?|type:selection|options:
{{piilotettu|
'Liikenne ja viestintä palveluna';Liikenne ja viestintä palveluna;
3D-tulostus                  Aikataulut                  Ajoneuvokanta                Alueellisuus                 
'Liikenteen palvelumarkkinat';Liikenteen palvelumarkkinat;
alustus                      Ammattiryhmät                Arvo                        Asutus                       
'Liikenteen energiareformi';Liikenteen energiareformi;
Aurinko                      Automatisaatio              Avoimuus                    Big Data                     
'Älykkäät käyttäjälähtöiset digitaaliset palvelut';Älykkäät käyttäjälähtöiset digitaaliset palvelut;
Biopolttoaine                Dataliikenne                Digitalisoituminen          Eettisyys                   
'Monipuoliset sisällöt';Monipuoliset sisällöt;
eIDAS                        Elintaso                    Energia                      Epäselvä luokka             
'Oma Painotus Teema I';Oma Painotus Teema I;
Eriarvoisuus                Erityisryhmät                Esineiden internet          Globaalius                   
'Digitaalinen tieto hyvinvoinnin ja kilpailuedun lähteenä';Digitaalinen tieto hyvinvoinnin ja kilpailuedun lähteenä;
Globaaluis                  Henkilökortti                Henkilötiedot                Huutokauppa                 
'Käyttäjän oikeus omaan tietoonsa ja sen hyödyntämiseen';Käyttäjän oikeus omaan tietoonsa ja sen hyödyntämiseen;
Hybridi                      Hybridi-TV                  Hyvinvointi                  Hyvinvointiyhteiskunta       
'Luottamuksen palauttaminen internettiin';Luottamuksen palauttaminen internettiin;
Häiriöt                      Ilmasto                      Infrastruktuuri              Innovatiivisus               
'Datan liiketoiminta- ja käyttömahdollisuudet';Datan liiketoiminta- ja käyttömahdollisuudet;
Innovatiivisuus              Internet                    Investoinnit                Joukkoliikenne               
'Tieto ja digitalisaatio liikenteessä';Tieto ja digitalisaatio liikenteessä;
Joustavuus                  Julkinen valta              Kaivosteollisuus            Kansainvälisyys             
'Oma Painotus Teema II';Oma Painotus Teema II;
Kasvihuonekaasut            Kaupallisuus                Kaupungit                    Kehitys                     
'Infrastruktuuri kasvun alustana';Infrastruktuuri kasvun alustana;
Kestävyys                    Kevyen liikenteen väylät    Kevytliikenne                Kiinteistöt                 
'Toimintavarmuus ja turvallisuus';Toimintavarmuus ja turvallisuus;
Kilpailu                    Kilpailukyky                Konesalit                    Konkreettisuus               
'Liikenne- ja viestintäyhteydet';Liikenne- ja viestintäyhteydet;
Kotimaisuus                  Koulutus                    Kunnat                      Kustannustehokkuus           
'Arktinen strategia';Arktinen strategia;
Kuuluvuus                    Kävely                      Laajakaista                  Lainsäädäntö                 
'Liikennejärjestelmän rahoitus ja taloudellinen ohjaus';Liikennejärjestelmän rahoitus ja taloudellinen ohjaus;
Laiton tarjonta              Langattomuus                Lappi                        Lentoliikenne               
'Oma Painotus Teema III';Oma Painotus Teema III|
Liikenne                    Liikenneverkostot            Liikkumistili                Linja-autot                 
 
Logistiikka                  Luonnonsuojelu              Lämmitys                    Maakaasu                     
name:liit|description:Miten jae liittyy haettaviin jakeisiin?|type:selection|options:
Maatalous                    Mainonta                    Markkinat                    Massavalvonta               
NULL;Kaikki;
Meriliikenne                Metadata                    Mobiiliverkko                Mopot                       
'tukee tai on linjassa';Tukee tai on linjassa;
Nopeus                      Ohjaus                      Ohjelmistot                  Ohjelmistotoimittaja         
'vastustaa tai on ristiriidassa';Vastustaa tai on ristiriidassa;
Oikeusturva                  Omavaraisuus                Operaattori                  Osaaminen                   
'on neutraali suhteessa';On neutraali suhteessa;
Ostovoima                    Palaute                      Palvelut                    Palvelutaso                 
'on uusi linjaus tai painotus';On uusi linjaus tai painotus|
Peruskunto                  Pilvipalvelut                Polttoaine                  Posti                       
name:sis|description:Sisällytettiinkö jae tulevaisuuskatsauksen uuteen versioon?|type:selection|options:
Puelueettomuus              Pysäköinti                  Pyöräily                    Päivitys                     
NULL;Kaikki;
Pääkaupunkiseutu            Päästöt                      Päätöksenteko                Päätös                       
'ehdotus huomioitu ja liittyvää painotusta muutettu';Ehdotus huomioitu ja liittyvää painotusta muutettu;
Raha                        Rahoitus                    Rahtliikenne                Rajapinnat                   
'ehdotus ei ole antanut aihetta muutoksiin';Ehdotus ei ole antanut aihetta muutoksiin;
Rakennemuutos                Rakentaminen                Raskas liikenne              Rautatiet                   
'ehdotus ei ole antanut aihetta muutoksiin vaan sisältyy olennaisesti jo kirjattuun';Ehdotus ei ole antanut aihetta muutoksiin vaan sisältyy olennaisesti jo kirjattuun
Riippuvuus                  Rikokset                    Robotisaatio                Ruuhkamaksu                 
Ruuhkautuminen              Saatavuus                    Sateliittipaikannus          Sovellukset                 
">
Strategia                    Suunnittelu                  Sähkö                        Sähköauto                   
 
Sääntely                    Säästöt                      Talous                      Talouskasvu                 
names <-  c(
Tarpeet                      Tasa-arvo                    Tasapuolisuus                Tasavertaisuus               
'Liikenne ja viestintä palveluna',
Tavaraliikenne              Tehokkuus                    Tekijänoikeus                Tekniikkaneutraalius         
'Liikenteen palvelumarkkinat',
Tekninen tuki                Teknologia                  Teknologianeutraalius        Teollisuus                   
'Liikenteen energiareformi',
Terveydenhuolto              Terveys                      testi                        Tiedon avoimuus             
'Älykkäät käyttäjälähtöiset digitaaliset palvelut',
Tiedon hallinnointi          Tiedon hallinta              Tiedon hyödyntäminen        Tieliikenne                 
'Monipuoliset sisällöt',
Tietoliikenne                Tietoturva                  Toimilupa                    Toiminta                     
'Oma Painotus Teema I',
Toimintavarmuus              Toimivuus                    Tuki                        Turvallisuus                 
'Digitaalinen tieto hyvinvoinnin ja kilpailuedun lähteenä',
Turvaverkko                  Tutkimus                    Tuuli                        TV                           
'Käyttäjän oikeus omaan tietoonsa ja sen hyödyntämiseen',
Työllisyys                  Työn tekemiseen liittyvä    Ulkomaat                    Uudistus                     
'Luottamuksen palauttaminen internettiin',
Vaihtoehtoiset polttoaineet  Vaikuttaminen                Vaikutus                    Vakuutus                     
'Datan liiketoiminta- ja käyttömahdollisuudet',
Valinnanvapaus              Valtio                      Varmenne                    Varmuus                     
'Tieto ja digitalisaatio liikenteessä',
Vastuu                      Verkostoituminen            Verotus                      Vesiliikenne                 
'Oma Painotus Teema II',
Vesiliikenne, Tasavertaisuus Viestintäverkot              Viranomaiset                Yhteensopivuus               
'Infrastruktuuri kasvun alustana',
Yhteiskunta                  Yhteiskuntamurros            Yhteistyö                    Yhteysnopeus                 
'Toimintavarmuus ja turvallisuus',
Yksityisautoilu              Yksityisyydensuoja          YLE                          Yleispalvelu                 
'Liikenne- ja viestintäyhteydet',
Yleisradio                  Ympäristö                    Yritykset                    Öljy                         
'Arktinen strategia',
'Liikennejärjestelmän rahoitus ja taloudellinen ohjaus',
'Oma Painotus Teema III'
)
ids <- c(4248, 4253, 4254, 4255, 4256, 4257, 4250, 4258, 4259, 4260, 4261, 4262, 4251, 4263, 4264, 4265, 4266, 4267)
ids <- paste("Op_fi", ids, sep = "")
 
id <- ids[match(sivu, names)]
 
library(OpasnetUtils)
 
jae <- rbind( opbase.data("Op_fi4362", 12748, subset = "jakeet"),
opbase.data("Op_fi4362", subset = "jakeenlisays"))
 
rel1 <- tryCatch(
opbase.data("Op_fi4362", 12792, subset = "Relaatiot", include = list(Sivu = sivu)),#, Jae = jaeid)),
error = function(...) return(NULL)
)
rel2 <- tryCatch(
opbase.data("Op_fi4362", 12792, subset = "Relaatiot", include = list(Liittymäsivu = sivu)),#, Liittymäjae = jaeid)),
error = function(...) return(NULL)
)
if (is.null(rel1)) rel1 <- data.frame()
if (is.null(rel2)) rel2 <- data.frame()
rel <- rbind(rel1, rel2)
if (!is.null(liit)) rel <- rel[rel$"Liittyminen" == liit , ]
if (!is.null(sis)) rel <- rel[rel$"Sisällytys" == sis , ]
if (nrow(rel) == 0) {
oprint("Jakeelle ei löytynyt kysyttyjä relaatioita tietokannassa.")
} else {
 
temp2 <- merge(rel, jae, by.x = c("Sivu", "Jae"), by.y = c("Sivu", "JaeID"))
#colnames(temp2)[colnames(temp2) == "Sivu"] <- "Lähtösivu"
temp3 <- merge(temp2, jae, by.x = c("Liittymäsivu", "Liittymäjae"), by.y = c("Sivu", "JaeID"))
temp3 <- temp3[ c("Sivu", "Result.y", "Liittyminen", "Result", "Sisällytys", "Liittymäsivu")]
colnames(temp3) <- c("Sivu", "Jae", "Liittyminen", "Liittymäjae", "Sisällytys", "sivu")
oprint(temp3, include.rownames = FALSE)
}
 
</rcode>
 
=== Hae jakeita avainsanalla ===
 
'''Tässä voit hakea jakeita ja analysoida niiden määriä hakemalla yhdellä tai useammalla avainsanalla.
Haku löytää jakeet, joissa on jokin annetuista hakusanoista (OR). Jos haluat löytää jakeet, jossa esiintyvät kaikki hakuehdon sanat (AND), voit näyttää kaikki löydetyt jakeet ja järjestää taulukon jaesarakkeen mukaan järjestykseen. Jokainen avainsanaosuma tuottaa uuden kopion jakeesta, joten ne jakeet joissa on useita osumia toistuvat monella rivillä.
{{attack|#|Tähän voisi kehittää elegantimmankin ratkaisun. |--[[Käyttäjä:Jouni|Jouni Tuomisto]] ([[Keskustelu käyttäjästä:Jouni|keskustelu]]) 18. heinäkuuta 2014 kello 05.04 (UTC)}}
 
Käytetyt avainsanat:
{{piilotettu|
3D-tulostus                  Aikataulut                  Ajoneuvokanta                Alueellisuus                 
alustus                      Ammattiryhmät                Arvo                        Asutus                       
Aurinko                      Automatisaatio              Avoimuus                    Big Data                     
Biopolttoaine                Dataliikenne                Digitalisoituminen          Eettisyys                   
eIDAS                        Elintaso                    Energia                      Epäselvä luokka             
Eriarvoisuus                Erityisryhmät                Esineiden internet          Globaalius                   
Globaaluis                  Henkilökortti                Henkilötiedot                Huutokauppa                 
Hybridi                      Hybridi-TV                  Hyvinvointi                  Hyvinvointiyhteiskunta       
Häiriöt                      Ilmasto                      Infrastruktuuri              Innovatiivisus               
Innovatiivisuus              Internet                    Investoinnit                Joukkoliikenne               
Joustavuus                  Julkinen valta              Kaivosteollisuus            Kansainvälisyys             
Kasvihuonekaasut            Kaupallisuus                Kaupungit                    Kehitys                     
Kestävyys                    Kevyen liikenteen väylät    Kevytliikenne                Kiinteistöt                 
Kilpailu                    Kilpailukyky                Konesalit                    Konkreettisuus               
Kotimaisuus                  Koulutus                    Kunnat                      Kustannustehokkuus           
Kuuluvuus                    Kävely                      Laajakaista                  Lainsäädäntö                 
Laiton tarjonta              Langattomuus                Lappi                        Lentoliikenne               
Liikenne                    Liikenneverkostot            Liikkumistili                Linja-autot                 
Logistiikka                  Luonnonsuojelu              Lämmitys                    Maakaasu                     
Maatalous                    Mainonta                    Markkinat                    Massavalvonta               
Meriliikenne                Metadata                    Mobiiliverkko                Mopot                       
Nopeus                      Ohjaus                      Ohjelmistot                  Ohjelmistotoimittaja         
Oikeusturva                  Omavaraisuus                Operaattori                  Osaaminen                   
Ostovoima                    Palaute                      Palvelut                    Palvelutaso                 
Peruskunto                  Pilvipalvelut                Polttoaine                  Posti                       
Puelueettomuus              Pysäköinti                  Pyöräily                    Päivitys                     
Pääkaupunkiseutu            Päästöt                      Päätöksenteko                Päätös                       
Raha                        Rahoitus                    Rahtliikenne                Rajapinnat                   
Rakennemuutos                Rakentaminen                Raskas liikenne              Rautatiet                   
Riippuvuus                  Rikokset                    Robotisaatio                Ruuhkamaksu                 
Ruuhkautuminen              Saatavuus                    Sateliittipaikannus          Sovellukset                 
Strategia                    Suunnittelu                  Sähkö                        Sähköauto                   
Sääntely                    Säästöt                      Talous                      Talouskasvu                 
Tarpeet                      Tasa-arvo                    Tasapuolisuus                Tasavertaisuus               
Tavaraliikenne              Tehokkuus                    Tekijänoikeus                Tekniikkaneutraalius         
Tekninen tuki                Teknologia                  Teknologianeutraalius        Teollisuus                   
Terveydenhuolto              Terveys                      testi                        Tiedon avoimuus             
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ä 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:
name:sivu|description:Minkä sivun jakeita haluat tarkastella?|type:selection|options:
'kaikki';Kaikki;
NULL;Kaikki;
'Liikenne ja viestintä palveluna';Liikenne ja viestintä palveluna;
'Liikenne ja viestintä palveluna';Liikenne ja viestintä palveluna;
'Liikenteen palvelumarkkinat';Liikenteen palvelumarkkinat;
'Liikenteen palvelumarkkinat';Liikenteen palvelumarkkinat;
Rivi 666: Rivi 403:
'Arktinen strategia';Arktinen strategia;
'Arktinen strategia';Arktinen strategia;
'Liikennejärjestelmän rahoitus ja taloudellinen ohjaus';Liikennejärjestelmän rahoitus ja taloudellinen ohjaus;
'Liikennejärjestelmän rahoitus ja taloudellinen ohjaus';Liikennejärjestelmän rahoitus ja taloudellinen ohjaus;
'Oma Painotus Teema III';Oma Painotus Teema III|
'Oma Painotus Teema III';Oma Painotus Teema III;
name:avainsanat|description:Mihin avainsanoihin liittyviä jakeita haluat tarkastella? (pilkulla eroteltuna useampia, tyhjä kenttä hakee kaikki)|type:text|
'Ympäristöministeriön tulevaisuuskatsaus';Ympäristöministeriön tulevaisuuskatsaus|
name:jaelista|description:Haluatko nähdä kaikki löydetyt jakeet?|type:selection|options:FALSE;En;TRUE;Kyllä|default:FALSE
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|
library(OpasnetUtils)
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)
library(ggplot2)


names <-  c(
'Liikenne ja viestintä palveluna',
'Liikenteen palvelumarkkinat',
'Liikenteen energiareformi',
'Älykkäät käyttäjälähtöiset digitaaliset palvelut',
'Monipuoliset sisällöt',
'Oma Painotus Teema I',
'Digitaalinen tieto hyvinvoinnin ja kilpailuedun lähteenä',
'Käyttäjän oikeus omaan tietoonsa ja sen hyödyntämiseen',
'Luottamuksen palauttaminen internettiin',
'Datan liiketoiminta- ja käyttömahdollisuudet',
'Tieto ja digitalisaatio liikenteessä',
'Oma Painotus Teema II',
'Infrastruktuuri kasvun alustana',
'Toimintavarmuus ja turvallisuus',
'Liikenne- ja viestintäyhteydet',
'Arktinen strategia',
'Liikennejärjestelmän rahoitus ja taloudellinen ohjaus',
'Oma Painotus Teema III'
)
ids <- c(4248, 4253, 4254, 4255, 4256, 4257, 4250, 4258, 4259, 4260, 4261,
4262, 4251, 4263, 4264, 4265, 4266, 4267)
ids <- paste("Op_fi", ids, sep = "")
if (sivu == "kaikki") {
#sivu <- names
id <- ids
} else {
id <- ids[match(sivu, names)]
}
filter <- list()
filter <- list()
if (nchar(gsub(" ", "", avainsanat)) > 0) {
if (nchar(gsub(" ", "", avainsanat)) > 0) {
filter$Avainsana <- strsplit(avainsanat, ",")[[1]]
avainsanat <- strsplit(avainsanat, ",")[[1]]
filter$Avainsana <- gsub("^\\s*|\\s*$", "", filter$Avainsana)   
avainsanat <- gsub("^\\s*|\\s*$", "", avainsanat)   
} else {
avainsanat <- NULL
}
}
if (sivu != "kaikki") {
if (nchar(gsub(" ", "", avainsanat_all)) > 0) {
filter$Sivu <- sivu
avainsanat_all <- strsplit(avainsanat_all, ",")[[1]]
}# else {
avainsanat_all <- gsub("^\\s*|\\s*$", "", avainsanat_all)
# filter$Sivu <- names
#filter$Avainsana <- avainsanat_all
#}
} else {
if (length(filter) == 0) filter <- NULL
avainsanat_all <- NULL
tags <- tryCatch(
}
opbase.data("Op_fi4362", 12794, subset = "Avainsanat", include = filter),
filter$Sivu <- sivu
error = function(...) return(NULL)
version <- gsub("^\\s*|\\s*$", "", strsplit(version, ",")[[1]])
)
if (is.null(filter)) filter <- list()
 
filter2 <- filter
filter2$Avainsana <- NULL
if (length(filter2) == 0) filter2 <- NULL
dat <- opbase.data("Op_fi4362", 12748, "jakeet", include = filter2)


datlisays <- tryCatch(
a <- tolower(version) == "nykyinen"
opbase.data("Op_fi4362", 12749, subset = "jakeenlisays", include = filter2),
if (any(a)) {
error = function(...) return(NULL)
version <- version[!a]
)
version <- c(version, get_current_version(ident))
if (!is.null(datlisays)) dat <- rbind(dat, datlisays)
#datpoisto <- tryCatch(
# opbase.data("Op_fi4362", 12755, subset = "jakeenpoistot", include = filter),
# error = function(...) return(NULL)
#)
#if (!is.null(datpoisto)) dat <- dat[!dat$JaeID %in% datpoisto$Result,]
 
for (i in 1: length(id)) {
komm <- tryCatch(
opbase.data(id[i], subset = "Kommentit"),
error = function(...) return(NULL)
)
if (!is.null(komm)) {
kommpois <- opbase.data(id[i], subset = "Kommenttipoistot")
komm <- komm[c("Obs", "Kommentti")]
colnames(komm) <- c("JaeID", "Result")
komm <- komm[!komm$JaeID %in% kommpois$Kommenttinro,]
if (nrow(komm) > 0) {
komm$JaeID <- paste("K", komm$JaeID, sep = "")
if (sivu == 'kaikki') {
komm$Sivu <- names[i]
} else {
komm$Sivu <- sivu[i]
}
}
dat <- rbind(dat, komm)
}
}
}
version <- as.numeric(version)
filter$Versio <- version


colnames(dat)[colnames(dat) == "JaeID"] <- "Jae"
if (length(filter) == 0) filter <- NULL


tagged <- NULL
tags <- try_dl_rm(
if (is.null(tags)) {
paste(ident, "Avainsanat", sep = "."),
oprint("Avainsanoja ei löytynyt")
filter = filter,
} else {
rm_id = paste(ident, "Avainsananpoistot", sep = "."),
tags$Avainsana <- gsub("^[ \t]+|[ \t]+$", "", tags$Avainsana)
rm_ind = "AvainsanaID"
)


tagged <- merge(dat, tags[c("Jae", "Sivu", "Avainsana")])
jaeid <- NULL
if(jaelista) oprint(tagged, include.rownames = FALSE)


if (!is.null(avainsanat)|!is.null(avainsanat_all)) {
tagged_out <- tapply(1:nrow(tagged), tagged$Avainsana, length)
tags <- tags[tags$Result %in% c(avainsanat, avainsanat_all), ]
tagged_out[is.na(tagged_out)] <- 0
jaeid <- unique(as.character(tags$JaeID))
tagged_out <- data.frame(Avainsana = names(tagged_out), Result = tagged_out)
temp <- tagged_out[order(tagged_out$Result, decreasing = TRUE)[1:10],]
colnames(temp)[2] <- "Lukumäärä"
oprint(
temp,
caption = "Top 10 avainsanaa",
caption.placement = "top",
include.rownames = FALSE,
digits = c(0, 0, 0)
)
ggplot(tagged_out, aes(x = Avainsana, y = Result, 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")# + facet_wrap(~Sivu)
}
}


rel <- tryCatch(
if(!is.null(avainsanat_all)) {
opbase.data("Op_fi4362", 12792, subset = "Relaatiot", include = filter2),
temp <- list()
error = function(...) return(NULL)
for (i in 1:nrow(jaeid)) {
)
temp[[i]] <- avainsanat_all %in% tags$Result[tags$JaeID == jaeid[i]]
related <- NULL
}
affected <- NULL
temp <- lapply(temp, all)
if(is.null(rel)) {
jaeid <- jaeid[temp]
oprint("Relaatiota ei löytynyt")  
tags <- tags[tags$JaeID %in% jaeid,]
} else {
related <- merge(dat, rel[c("Jae", "Sivu", "Liittyminen")])
affected <- merge(dat, rel[c("Jae", "Sivu", "Sisällytys")])
related <- related[
related$Liittyminen %in% c(
"on neutraali suhteessa",
"on uusi linjaus tai painotus",
"tukee tai on linjassa",
"vastustaa tai on ristiriidassa"
),
]
related$Liittyminen <- factor(related$Liittyminen)
affected <- affected[!(is.na(affected$Sisällytys) | nchar(gsub(" ", "", affected$Sisällytys)) == 0), ]
affected$Sisällytys <- factor(affected$Sisällytys)
original_levels <- 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"
)
new_levels <- c(
"Ei aihetta muutoksiin",
"Sisältyy valmiiksi",
"Huomioitu painotuksella",
"Huomioitu lisäyksellä"
)
levels(affected$Sisällytys) <- new_levels[
match(
levels(affected$Sisällytys),
original_levels
)
]
}
}


if (!is.null(related)) {
if (nrow(tags) == 0) {
related_out <- tapply(related$Result, related$Liittyminen, length)
cat("Avainsanoja ei löytynyt.\n")
related_out[is.na(related_out)] <- 0
related_out <- data.frame(Liittyminen = names(related_out), Result = related_out)
ggplot(related_out, aes(x = Liittyminen, y = Result, fill = Liittyminen)) +
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 (!is.null(affected)) {
if (is.null(filter)) {
affected_out <- tapply(affected$Result, affected$Sisällytys, length)
filter2 <- list()
affected_out[is.na(affected_out)] <- 0
} else {
affected_out <- data.frame(Sisällytys = names(affected_out), Result = affected_out)
filter2 <- filter
ggplot(affected_out, aes(x = Sisällytys, y = Result, 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)
}
}


</rcode>
filter2$JaeID <- jaeid


=== Piirrä avainsanapilviä ===
if (length(filter2) == 0) filter2 <- NULL


'''Tässä voit valita yhden tai useamman sivun ja piirtää niissä esiintyvistä avainsanoista avainsanapilven eli tägipilven.
if (jaelista) {
 
jakeet <- jaehakukone(
<rcode label="Näytä avainsanapilvi" name="jae_stats" embed=1 graphics=1 variables="
ident,
name:sivu|description:Minkä sivujen avainsanoja haluat tarkastella?|type:checkbox|options:
sivu = filter2$Sivu, # *list$non-existent returns NULL
'Liikenne ja viestintä palveluna';Liikenne ja viestintä palveluna;
versio = filter2$Versio,
'Liikenteen palvelumarkkinat';Liikenteen palvelumarkkinat;
jae = filter2$JaeID
'Liikenteen energiareformi';Liikenteen energiareformi;
)
'Älykkäät käyttäjälähtöiset digitaaliset palvelut';Älykkäät käyttäjälähtöiset digitaaliset palvelut;
if (nrow(jakeet) == 0) {
'Monipuoliset sisällöt';Monipuoliset sisällöt;
cat("Avainsanoissa listattuja jakeita ei löytynyt.\n")
'Oma Painotus Teema I';Oma Painotus Teema I;
} else {
'Digitaalinen tieto hyvinvoinnin ja kilpailuedun lähteenä';Digitaalinen tieto hyvinvoinnin ja kilpailuedun lähteenä;
colnames(jakeet)[colnames(jakeet) == "Result"] <- "Sisältö"
'Käyttäjän oikeus omaan tietoonsa ja sen hyödyntämiseen';Käyttäjän oikeus omaan tietoonsa ja sen hyödyntämiseen;
tagged <- NULL
'Luottamuksen palauttaminen internettiin';Luottamuksen palauttaminen internettiin;
if (nrow(tags) > 0) {
'Datan liiketoiminta- ja käyttömahdollisuudet';Datan liiketoiminta- ja käyttömahdollisuudet;
#tagged <- join(
'Tieto ja digitalisaatio liikenteessä';Tieto ja digitalisaatio liikenteessä;
# jakeet[c("Versio", "Sivu", "Aihe", "JaeID")],
'Oma Painotus Teema II';Oma Painotus Teema II;
# tags[c("Versio", "Sivu", "JaeID", "Result")]
'Infrastruktuuri kasvun alustana';Infrastruktuuri kasvun alustana;
#)
'Toimintavarmuus ja turvallisuus';Toimintavarmuus ja turvallisuus;
#colnames(tagged)[colnames(tagged) == "Result"] <- "Avainsana"
'Liikenne- ja viestintäyhteydet';Liikenne- ja viestintäyhteydet;
tagged <- tapply(tags$Result, tags[c("Versio", "Sivu", "JaeID")], paste, collapse = ", ")
'Arktinen strategia';Arktinen strategia;
tagged <- as.data.frame(as.table(tagged))
'Liikennejärjestelmän rahoitus ja taloudellinen ohjaus';Liikennejärjestelmän rahoitus ja taloudellinen ohjaus;
colnames(tagged)[colnames(tagged) == "Freq"] <- "Avainsanat"
'Oma Painotus Teema III';Oma Painotus Teema III
tagged <- join(
">
jakeet[c("Versio", "Sivu", "JaeID", "Sisältö")],  
library(OpasnetUtils)
tagged[c("Versio", "Sivu", "JaeID", "Avainsanat")],
library(wordcloud)
type = "inner",
 
match = "first"
filter <- list()
)
#if (nchar(gsub(" ", "", avainsanat)) > 0) {
oprint(
# filter$Avainsana <- strsplit(avainsanat, ",")[[1]]
tagged[c("Versio", "Sivu", "JaeID", "Sisältö", "Avainsanat")],
#}
caption = "Jakeet",  
#if (sivu != "kaikki") {
caption.placement = "top",
filter$Sivu <- sivu
include.rownames = FALSE,
#}
digits = rep(0, 6)
if (length(filter) == 0) filter <- NULL
)
dat <- opbase.data("Op_fi4362", 12794, subset = "Avainsanat", include = filter)
}
tags <- as.data.frame(as.table(tapply(dat$Result, INDEX = dat["Avainsana"], sum)))
}
tags <- tags[!tags$Avainsana %in% c("Päätös", "Arvo", "Vaikutus", "Epäselvä luokka") , ]
}
 
# Koko tägipilvi
wordcloud(
tags$Avainsana, # words
tags$Freq, # frequencies
scale = c(4,1), # size of largest and smallest words
colors = "blue", # brewer.pal(9,"Blues"), # number of colors, palette
rot.per = 0, # proportion of words to rotate 90 degrees
min.freq = 1
)
</rcode>
== Uusi systeemi ==
{{tuloslinkki}}
<rcode label="Päivitä tietokantarakenne" variables="
name:ident|type:hidden|default:'{{{1|Op_fi{{PAGEID}}}}}'|
name:pagename|type:hidden|default:'{{PAGENAME}}'
">
library(OpasnetUtils)


jakeet <- opbase.data(paste("Op_fi4362", "Jakeet", sep = "."), 12748)
if (nrow(tags) > 0) {
jakeet$Versio <- 1
tags_out <- ddply(tags, "Result", nrow)
temp <- jakeet[grep("^U", jakeet$JaeID),]
colnames(tags_out) <- c("Avainsana", "Lukumäärä")
temp <- jakeet[!(jakeet$Sivu %in% unique(as.character(temp$Sivu))),]
tags_out <- tags_out[order(tags_out$Lukumäärä, decreasing = TRUE),]
temp$Versio <- 2
oprint(
jakeet$Versio[grep("^U", jakeet$JaeID)] <- 2
tags_out,
jakeet$JaeID <- gsub("[A-Za-z]", "", as.character(jakeet$JaeID))
caption = "Avainsanojen lukumäärät",  
jakeet <- rbind(jakeet, temp)
caption.placement = "top",
jakeet$Aihe <- NA
include.rownames = FALSE,
 
digits = c(0, 0, 0)
opbase.upload(
)
jakeet[c("Versio", "Sivu", "Aihe", "JaeID", "Result")],
ggplot(tags_out, aes(x = Avainsana, y = Lukumäärä, fill = Avainsana)) +
name = pagename,
geom_bar(stat = "identity") +
who = wiki_username,  
theme_grey(base_size = 24) +
subset = "Jakeet"
theme(axis.text.x = element_blank(), axis.title.x = element_blank()) +
)
ggtitle("Avainsanojen frekvenssit")
}


jaepois <- opbase.data(paste("Op_fi4362", "Jakeenpoistot", sep = "."))
# Add previous and next versions to check for inclusion from previous and into next
#jaepois <- data.frame(
original_version <- version
# Versio = 0,
if (!(1 %in% version)) {
# Sivu = NA,
prev <- TRUE
# Aika = date(),
version <- c(min(version, na.rm = TRUE) - 1, version)
# Käyttäjä = wiki_username,
}
# Syy = "Alustus",
version <- c(version, max(version, na.rm = TRUE) + 1)
# Result = NA
#)
jaepois$Versio <- 1
jaepois$Aika <- NA # date()
jaepois$Käyttäjä <- NA # wiki_username
jaepois$Versio[grep("^[Uu]", jaepois$Result)] <- 2
temp <- jaepois[!(jaepois$Sivu %in% unique(jaepois$Sivu[jaepois$Versio == 2])), ]
temp$Versio <- 2
jaepois <- rbind(jaepois, temp)
 
opbase.upload(
jaepois[c("Versio", "Sivu", "Aika", "Käyttäjä", "Syy", "Result")],
name = pagename,
who = wiki_username,
subset = "Jakeenpoistot"
)


jaelisa <- opbase.data(paste("Op_fi4362", "jakeenlisays", sep = "."))
filter3 <- list()
#out <- data.frame(
filter3$Sivu1 <- sivu
# Versio = 0,
filter3$Versio <- version
# Sivu = NA, 
filter3$JaeID1 <- jaeid
# Aika = date(),
# Käyttäjä = wiki_username,
# JaeID = NA,
# Result = "Alustus"
#)
jaelisa$Versio <- 1
jaelisa$Aika <- NA # date()
jaelisa$Käyttäjä <- NA # wiki_username
temp <- jaelisa
temp$Versio <- 2
jaelisa <- rbind(jaelisa, temp)


opbase.upload(
rel1 <- try_dl_rm(
jaelisa[c("Versio", "Sivu", "Aika", "Käyttäjä", "JaeID", "Result")],
paste(ident, "Relaatiot", sep = "."),  
name = pagename,
filter = filter3,  
who = wiki_username,  
rm_id = paste(ident, "Relaationpoistot", sep = "."),
subset = "Jakeenlisaykset"
rm_ind = "RelaatioID"
)
)
 
if (is.null(jaeid)) {
avainsanat <- opbase.data(paste("Op_fi4362", "avainsanat", sep = "."))
rel2 <- data.frame()
 
} else {
#out <- data.frame(
filter3$JaeID1 <- NULL
# AvainsanaID = NA,
filter3$Sivu1 <- NULL
# Versio = 0,
filter3$JaeID2 <- jaeid
# Aika = date(),
filter3$Sivu2 <- sivu
# Käyttäjä = wiki_username,
# Sivu = NA,
rel2 <- try_dl_rm(
# JaeID = NA,
paste(ident, "Relaatiot", sep = "."),  
# Result = "Alustus"
filter = filter3,  
#)
rm_id = paste(ident, "Relaationpoistot", sep = "."),
avainsanat$AvainsanaID <- 1:nrow(avainsanat)
rm_ind = "RelaatioID"
avainsanat$Versio <- 1
)
avainsanat$JaeID <- avainsanat$Jae
}
avainsanat$Result <- avainsanat$Avainsana
temp <- avainsanat
temp$Versio <- 2
avainsanat <- rbind(avainsanat, temp)
 
opbase.upload(
avainsanat[c("AvainsanaID", "Versio", "Aika", "Käyttäjä", "Sivu", "JaeID", "Result")],  
name = pagename,  
who = wiki_username,
subset = "Avainsanat"
)
 
# Tuli LVM tägikoneen päivityksen kanssa tämmönen ongelma vastaan: Edellisen tägikoneen relaatioiden
# syöttökoodin takia jakeet on usein relaatiossa sen jakeen kanssa johon ne on sisällytetty (vastustaa/puolustaa/jne),
# mikä ei käy järkeen koska relaatiot pätevät pääasiassa saman version sisällä toisin kuin sisällytys mikä tapahtuu
# seuraavaan versioon. Sisällytys on ihan eri asia kuin relaatio, se on vaan samanmuotoinen kuin relaatio ja siksi
# samassa taulussa, tai ainakin tää on mun tämänhetkinen tulkinta.
 
# Ongelma on siis tän LVM tägäyksen kanssa siinä että relaatio ja sisällytys piti antaa samanaikaisesti
 
rel <- opbase.data(paste("Op_fi4362", "relaatiot", sep = "."))
 
#out <- data.frame(
# RelaatioID = NA,
# Versio = 0,
# Aika = date(),
# Käyttäjä = wiki_username,
# Sivu1 = NA,
# JaeID1 = NA,
# Sivu2 = NA,
# JaeID2 = NA,
# Result = "Alustus"
#)
#rel$RelaatioID <- 1:nrow(rel)
rel$Versio <- 1
rel$Sivu1 <- rel$Sivu
rel$JaeID1 <- rel$Jae
rel$Sivu2 <- rel$Liittymäsivu
rel$JaeID2 <- rel$Liittymäjae
 
rel1 <- rel
rel1$Result <- rel$Liittyminen
temp1 <- rel1[grep("^[Uu]", rel1$JaeID2),]
temp1$Versio <- 2
rel1 <- rel1[-grep("^[Uu]", rel1$JaeID2),]
relt <- rel1
relt$Versio <- 2
rel1 <- rbind(rel1, relt)
rel1 <- rbind(rel1, temp1)
 
rel2 <- rel
rel2$Result <- rel$Sisällytys
temp2 <- rel2[grep("^[Uu]", rel2$JaeID2),]
temp2$JaeID2 <- gsub("^[Uu]", "", as.character(temp2$JaeID2))
#temp2$Versio <- 1
rel2 <- rel2[-grep("^[Uu]", rel2$JaeID2),]
rel2 <- rbind(rel2, temp2)


rel <- rbind(rel1, rel2)
rel <- rbind(rel1, rel2)
rel$JaeID1 <- gsub("^[Uu]", "", as.character(rel$JaeID1))
rel$JaeID2 <- gsub("^[Uu]", "", as.character(rel$JaeID2))


rel$RelaatioID <- 1:nrow(rel)
if (!any(original_version %in% rel$Versio)) stop("Annetuilla versiolla ei löytynyt relaatioita.")


opbase.upload(
if (nrow(rel) == 0) {
rel,
cat("Jakeelle ei löytynyt kysyttyjä relaatioita tietokannassa.\n")
name = pagename,
} else {
who = wiki_username,
related <- rel[
subset = "Relaatiot"
rel$Result %in% c(
)
"on neutraali suhteessa",  
 
"on uusi linjaus tai painotus",  
#out <- data.frame(
"tukee tai on linjassa",  
# Versio = 0,
"vastustaa tai on ristiriidassa"
# Aika = date(),  
), ]
# Käyttäjä = wiki_username,
related$Result <- as.character(related$Result)
# Syy = "Alustus",  
affected <- rel[
# Result = NA
rel$Result %in% c(
#)
"ehdotus ei ole antanut aihetta muutoksiin",
 
"ehdotus ei ole antanut aihetta muutoksiin vaan sisältyy olennaisesti jo kirjattuun",  
#opbase.upload(
"ehdotus huomioitu ja liittyvää painotusta muutettu",
# out,  
"ehdotus huomioitu ja uusi kohta lisätty"
# name = pagename,  
), ]
# subset = "Relaationpoistot",  
affected$Result <- as.character(affected$Result)
# who = wiki_username
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"
#out <- data.frame(
affected$Result[affected$Result == "ehdotus huomioitu ja uusi kohta lisätty"] <- "Huomioitu lisäyksellä"
# Versio = 0,
# Aika = date(),
related_out <- ddply(related, "Result", nrow)
# Käyttäjä = wiki_username,
colnames(related_out) <- c("Relaatio", "Lukumäärä")
# Syy = "Alustus",
# Result = NA
affected_out <- ddply(affected, "Result", nrow)
#)
colnames(affected_out) <- c("Sisällytys", "Lukumäärä")
 
}
#opbase.upload(
# out,  
# name = pagename,
# subset = "Avainsananpoistot",  
# who = wiki_username
#)
</rcode>
=== Versiot ===
<t2b name="Versiot" index="Versio,Sivu,Ident" unit="OldID">
1|Liikenne ja viestintä palveluna|Op_fi4248|
1|Liikenteen palvelumarkkinat|Op_fi4253|
1|Liikenteen energiareformi|Op_fi4254|
1|Älykkäät käyttäjälähtöiset digitaaliset palvelut|Op_fi4255|
1|Monipuoliset sisällöt|Op_fi4256|
1|Oma Painotus Teema I|Op_fi4257|
1|Digitaalinen tieto hyvinvoinnin ja kilpailuedun lähteenä|Op_fi4250|
1|Käyttäjän oikeus omaan tietoonsa ja sen hyödyntämiseen|Op_fi4258|
1|Luottamuksen palauttaminen internettiin|Op_fi4259|
1|Datan liiketoiminta- ja käyttömahdollisuudet|Op_fi4260|
1|Tieto ja digitalisaatio liikenteessä|Op_fi4261|
1|Oma Painotus Teema II|Op_fi4262|
1|Infrastruktuuri kasvun alustana|Op_fi4251|
1|Toimintavarmuus ja turvallisuus|Op_fi4263|
1|Liikenne- ja viestintäyhteydet|Op_fi4264|
1|Arktinen strategia|Op_fi4265|
1|Liikennejärjestelmän rahoitus ja taloudellinen ohjaus|Op_fi4266|
1|Oma Painotus Teema III|Op_fi4267|
2|Liikenne ja viestintä palveluna|Op_fi4248|
2|Liikenteen palvelumarkkinat|Op_fi4253|
2|Liikenteen energiareformi|Op_fi4254|
2|Älykkäät käyttäjälähtöiset digitaaliset palvelut|Op_fi4255|
2|Monipuoliset sisällöt|Op_fi4256|
2|Oma Painotus Teema I|Op_fi4257|
2|Digitaalinen tieto hyvinvoinnin ja kilpailuedun lähteenä|Op_fi4250|
2|Käyttäjän oikeus omaan tietoonsa ja sen hyödyntämiseen|Op_fi4258|
2|Luottamuksen palauttaminen internettiin|Op_fi4259|
2|Datan liiketoiminta- ja käyttömahdollisuudet|Op_fi4260|
2|Tieto ja digitalisaatio liikenteessä|Op_fi4261|
2|Oma Painotus Teema II|Op_fi4262|
2|Infrastruktuuri kasvun alustana|Op_fi4251|
2|Toimintavarmuus ja turvallisuus|Op_fi4263|
2|Liikenne- ja viestintäyhteydet|Op_fi4264|
2|Arktinen strategia|Op_fi4265|
2|Liikennejärjestelmän rahoitus ja taloudellinen ohjaus|Op_fi4266|
2|Oma Painotus Teema III|Op_fi4267|
</t2b>


===Jakeet===
if (nrow(related_out > 0)) {
'''Kaikkien kenttien arvot saa erotella pilkuilla tässä haussa'''
ggplot(related_out, aes(x = Relaatio, y = Lukumäärä, fill = Relaatio)) +
<rcode label="Näytä jakeet" name="jakeet" embed=1 variables="
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)
}
</rcode>
 
== 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.'''
<rcode label="Näytä jakeet" name="jakeet" embed=1 variables="
name:sivu|description:Sivu jolta jakeita haetaan|type:selection|options:
name:sivu|description:Sivu jolta jakeita haetaan|type:selection|options:
NULL;Kaikilta;
NULL;Kaikilta;
Rivi 1 160: Rivi 649:
'Arktinen strategia';Arktinen strategia;
'Arktinen strategia';Arktinen strategia;
'Liikennejärjestelmän rahoitus ja taloudellinen ohjaus';Liikennejärjestelmän rahoitus ja taloudellinen ohjaus;
'Liikennejärjestelmän rahoitus ja taloudellinen ohjaus';Liikennejärjestelmän rahoitus ja taloudellinen ohjaus;
'Oma Painotus Teema III';Oma Painotus Teema III|
'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: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|
Rivi 1 192: Rivi 682:
cat("Jakeita ei löytynyt!\n")
cat("Jakeita ei löytynyt!\n")
}
}
</rcode>
</rcode>


<rcode label="Poista jae" name="jakeenpoisto" embed=1 variables="
==== Jakeenlisäyskone ====
name:sivu|description:Poistettavan jakeen sivu|type:selection|options:
'''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="Lisää jae" name="jakeenlisays" embed=1 variables="
name:sivu|description:Sivu jolle jae lisätään|type:selection|options:
'Liikenne ja viestintä palveluna';Liikenne ja viestintä palveluna;
'Liikenne ja viestintä palveluna';Liikenne ja viestintä palveluna;
'Liikenteen palvelumarkkinat';Liikenteen palvelumarkkinat;
'Liikenteen palvelumarkkinat';Liikenteen palvelumarkkinat;
Rivi 1 214: Rivi 705:
'Arktinen strategia';Arktinen strategia;
'Arktinen strategia';Arktinen strategia;
'Liikennejärjestelmän rahoitus ja taloudellinen ohjaus';Liikennejärjestelmän rahoitus ja taloudellinen ohjaus;
'Liikennejärjestelmän rahoitus ja taloudellinen ohjaus';Liikennejärjestelmän rahoitus ja taloudellinen ohjaus;
'Oma Painotus Teema III';Oma Painotus Teema III|
'Oma Painotus Teema III';Oma Painotus Teema III;
name:jaeid|description:Poistettavan jakeen ID (pilkulla eroteltuna useampia)|type:text|
'Ympäristöministeriön tulevaisuuskatsaus';Ympäristöministeriön tulevaisuuskatsaus|
name:version|description:Versio|type:text|default:nykyinen|
name:version|description:Versio|type:text|default:nykyinen|
name:syy|description:Poiston syy|type:selection|options:
name:sisalto|description:Jakeen sisältö|type:textbox|
' ';- 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:ident|type:hidden|default:'{{{1|Op_fi{{PAGEID}}}}}'|
name:pagename|type:hidden|default:'{{PAGENAME}}'
name:pagename|type:hidden|default:'{{PAGENAME}}'
">
">
library(OpasnetUtils)
library(OpasnetUtils)
 
objects.latest("Op_fi4325", "apufunktiot")
jaeid <- strsplit(jaeid, ",", fixed = TRUE)[[1]]
jaeid <- gsub(" ", "", jaeid)
 
if (sum(nchar(jaeid)) == 0) stop("Anna jakeen ID")


if (tolower(version) == "nykyinen") {
if (tolower(version) == "nykyinen") {
objects.latest("Op_fi4325", "apufunktiot")
version <- get_current_version(ident)
version <- get_current_version(ident)
} else {
} else {
Rivi 1 239: Rivi 721:
}
}


out <- data.frame(
out <- data.frame(  
Versio = version,
Versio = version,
Sivu = sivu,  
Sivu = sivu,
Aika = date(),  
Aika = date(),  
Käyttäjä = wiki_username,
Käyttäjä = wiki_username,
Syy = syy,  
JaeID = NA,
Result = as.character(jaeid)
Result = sisalto
)
)


opbase.upload(
ident.subset <- paste(ident, "Jakeenlisaykset", sep = ".")
out,
 
who = wiki_username,
filter <- list()
name = pagename,
filter$Versio <- version
subset = "Jakeenpoistot",
filter$Sivu <- sivu
act_type = "append",
language = "fin"
)
</rcode>


<rcode label="Lisää jae" name="jakeenlisays" embed=1 variables="
upload_with_autoid(
name:sivu|description:Sivu jolle jae lisätään|type:selection|options:
out,
'Liikenne ja viestintä palveluna';Liikenne ja viestintä palveluna;
ident.subset,
'Liikenteen palvelumarkkinat';Liikenteen palvelumarkkinat;
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.'''
<rcode label="Poista jae" name="jakeenpoisto" embed=1 variables="
name:sivu|description:Poistettavan jakeen sivu|type:selection|options:
'Liikenne ja viestintä palveluna';Liikenne ja viestintä palveluna;
'Liikenteen palvelumarkkinat';Liikenteen palvelumarkkinat;
'Liikenteen energiareformi';Liikenteen energiareformi;
'Liikenteen energiareformi';Liikenteen energiareformi;
'Älykkäät käyttäjälähtöiset digitaaliset palvelut';Älykkäät käyttäjälähtöiset digitaaliset palvelut;
'Älykkäät käyttäjälähtöiset digitaaliset palvelut';Älykkäät käyttäjälähtöiset digitaaliset palvelut;
Rivi 1 277: Rivi 767:
'Arktinen strategia';Arktinen strategia;
'Arktinen strategia';Arktinen strategia;
'Liikennejärjestelmän rahoitus ja taloudellinen ohjaus';Liikennejärjestelmän rahoitus ja taloudellinen ohjaus;
'Liikennejärjestelmän rahoitus ja taloudellinen ohjaus';Liikennejärjestelmän rahoitus ja taloudellinen ohjaus;
'Oma Painotus Teema III';Oma Painotus Teema III|
'Oma Painotus Teema III';Oma Painotus Teema III;
'Ympäristöministeriön tulevaisuuskatsaus';Ympäristöministeriön tulevaisuuskatsaus|
name:jaeid|description:Poistettavan jakeen ID (pilkulla eroteltuna useampia)|type:text|
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:syy|description:Poiston syy|type:selection|options:
' ';- 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:ident|type:hidden|default:'{{{1|Op_fi{{PAGEID}}}}}'|
name:pagename|type:hidden|default:'{{PAGENAME}}'
name:pagename|type:hidden|default:'{{PAGENAME}}'
">
">
library(OpasnetUtils)
library(OpasnetUtils)
objects.latest("Op_fi4325", "apufunktiot")
 
jaeid <- strsplit(jaeid, ",", fixed = TRUE)[[1]]
jaeid <- gsub(" ", "", jaeid)
 
if (sum(nchar(jaeid)) == 0) stop("Anna jakeen ID")


if (tolower(version) == "nykyinen") {
if (tolower(version) == "nykyinen") {
objects.latest("Op_fi4325", "apufunktiot")
version <- get_current_version(ident)
version <- get_current_version(ident)
} else {
} else {
Rivi 1 292: Rivi 793:
}
}


out <- data.frame(  
out <- data.frame(
Versio = version,
Versio = version,
Sivu = sivu,
Sivu = sivu,  
Aika = date(),  
Aika = date(),  
Käyttäjä = wiki_username,
Käyttäjä = wiki_username,
JaeID = NA,
Syy = syy,  
Result = sisalto
Result = as.character(jaeid)
)
)


ident.subset <- paste(ident, "Jakeenlisaykset", sep = ".")
opbase.upload(
out,
who = wiki_username,
name = pagename,
subset = "Jakeenpoistot",
act_type = "append",  
language = "fin"
)
</rcode>


filter <- list()
=== Avainsanat ===
filter$Versio <- version
==== Avainsanahakukone ====
filter$Sivu <- sivu
'''Hakee jaekohtaisia avainsanoja. Näyttää datan sellaisena kuin se on tietokannassa.'''
 
<rcode label="Näytä avainsanat" name="avainsanat_display" embed=1 variables="
upload_with_autoid(
name:sivu|description:Sivu jonka avainsanoja haetaan|type:selection|options:
out,
NULL;Kaikki;
ident.subset,
id_name = "JaeID",
pagename = pagename,
prefix = "L",
filter = filter
)
</rcode>
 
=== Avainsanat ===
<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;
'Liikenne ja viestintä palveluna';Liikenne ja viestintä palveluna;
'Liikenteen palvelumarkkinat';Liikenteen palvelumarkkinat;
'Liikenteen palvelumarkkinat';Liikenteen palvelumarkkinat;
Rivi 1 338: Rivi 835:
'Arktinen strategia';Arktinen strategia;
'Arktinen strategia';Arktinen strategia;
'Liikennejärjestelmän rahoitus ja taloudellinen ohjaus';Liikennejärjestelmän rahoitus ja taloudellinen ohjaus;
'Liikennejärjestelmän rahoitus ja taloudellinen ohjaus';Liikennejärjestelmän rahoitus ja taloudellinen ohjaus;
'Oma Painotus Teema III';Oma Painotus Teema III|
'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: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|
Rivi 1 381: Rivi 879:


</rcode>
</rcode>
<rcode label="Lisää avainsana" name="avainsanat" embed=1 variables="
==== Avainsanoitus ====
'''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="
name:sivu|description:Minkä sivun jakeelle haluat lisätä avainsanoja?|type:selection|options:
name:sivu|description:Minkä sivun jakeelle haluat lisätä avainsanoja?|type:selection|options:
'Liikenne ja viestintä palveluna';Liikenne ja viestintä palveluna;
'Liikenne ja viestintä palveluna';Liikenne ja viestintä palveluna;
Rivi 1 400: Rivi 900:
'Arktinen strategia';Arktinen strategia;
'Arktinen strategia';Arktinen strategia;
'Liikennejärjestelmän rahoitus ja taloudellinen ohjaus';Liikennejärjestelmän rahoitus ja taloudellinen ohjaus;
'Liikennejärjestelmän rahoitus ja taloudellinen ohjaus';Liikennejärjestelmän rahoitus ja taloudellinen ohjaus;
'Oma Painotus Teema III';Oma Painotus Teema III|
'Oma Painotus Teema III';Oma Painotus Teema III;
'Ympäristöministeriön tulevaisuuskatsaus';Ympäristöministeriön tulevaisuuskatsaus|
name:version|description:Mikä on jakeen versio?|type:text|default:nykyinen|
name:version|description:Mikä on jakeen versio?|type:text|default:nykyinen|
name:jae|description:Mikä on jakeen ID?|type:text|
name:jae|description:Mikä on jakeen ID?|type:text|
Rivi 1 414: Rivi 915:
">
">
avainsanat <- strsplit(avainsanat, ",", fixed = TRUE)[[1]]
avainsanat <- strsplit(avainsanat, ",", fixed = TRUE)[[1]]
avainsanat <- gsub(" ", "", avainsanat)
avainsanat <- gsub("^\\s*|\\s*$", "", avainsanat)
avainsanat <- avainsanat[nchar(avainsanat) > 0]
avainsanat <- avainsanat[nchar(avainsanat) > 0]
avainsanat <- c(yl_avainsanat, avainsanat)
avainsanat <- c(yl_avainsanat, avainsanat)
Rivi 1 454: Rivi 955:
</rcode>
</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="
<rcode name="avainsananpoisto" embed=1 label="Poista avainsana" showcode=0 variables="
name:avid|description:Poistettavan avainsanan ID (pilkulla eroteltuna useampia)|type:text|
name:avid|description:Poistettavan avainsanan ID (pilkulla eroteltuna useampia)|type:text|
Rivi 1 496: Rivi 999:
cat("Avainsana poistettiin onnistuneesti.\n")
cat("Avainsana poistettiin onnistuneesti.\n")
</rcode>
</rcode>


=== Relaatiot ===
=== 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="
<rcode label="Näytä relaatiot" name="relaatiot_display" embed=1 variables="
name:sivu|description:Sivu jonka relaatioita haetaan|type:selection|options:
name:sivu|description:Sivu jonka relaatioita haetaan|type:selection|options:
Rivi 1 518: Rivi 1 025:
'Arktinen strategia';Arktinen strategia;
'Arktinen strategia';Arktinen strategia;
'Liikennejärjestelmän rahoitus ja taloudellinen ohjaus';Liikennejärjestelmän rahoitus ja taloudellinen ohjaus;
'Liikennejärjestelmän rahoitus ja taloudellinen ohjaus';Liikennejärjestelmän rahoitus ja taloudellinen ohjaus;
'Oma Painotus Teema III';Oma Painotus Teema III|
'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: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|
Rivi 1 584: Rivi 1 092:
</rcode>
</rcode>


==== 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. '''
<rcode label="Lisää relaatio" name="relaatio" embed=1 variables="
<rcode label="Lisää relaatio" name="relaatio" embed=1 variables="
name:sivu1|description:Mikä on lähtöjakeen sivu?|type:selection|options:
name:sivu1|description:Mikä on lähtöjakeen sivu?|type:selection|options:
Rivi 1 603: Rivi 1 113:
'Arktinen strategia';Arktinen strategia;
'Arktinen strategia';Arktinen strategia;
'Liikennejärjestelmän rahoitus ja taloudellinen ohjaus';Liikennejärjestelmän rahoitus ja taloudellinen ohjaus;
'Liikennejärjestelmän rahoitus ja taloudellinen ohjaus';Liikennejärjestelmän rahoitus ja taloudellinen ohjaus;
'Oma Painotus Teema III';Oma Painotus Teema III|
'Oma Painotus Teema III';Oma Painotus Teema III;
'Ympäristöministeriön tulevaisuuskatsaus';Ympäristöministeriön tulevaisuuskatsaus|
name:jaeid1|description:Mikä on lähtöjakeen ID?|type:text|
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:version|description:Mikä on lähtöjakeen versio?|type:text|default:nykyinen|
Rivi 1 625: Rivi 1 136:
'Arktinen strategia';Arktinen strategia;
'Arktinen strategia';Arktinen strategia;
'Liikennejärjestelmän rahoitus ja taloudellinen ohjaus';Liikennejärjestelmän rahoitus ja taloudellinen ohjaus;
'Liikennejärjestelmän rahoitus ja taloudellinen ohjaus';Liikennejärjestelmän rahoitus ja taloudellinen ohjaus;
'Oma Painotus Teema III';Oma Painotus Teema III|
'Oma Painotus Teema III';Oma Painotus Teema III;
'Ympäristöministeriön tulevaisuuskatsaus';Ympäristöministeriön tulevaisuuskatsaus|
name:jaeid2|description:Mikä on kohdejakeen ID?|type:text|
name:jaeid2|description:Mikä on kohdejakeen ID?|type:text|
name:relaatio|description:'''Kuinka lähtöjae liittyy kohdejakeeseen?'''|type:selection|options:
name:relaatio|description:'''Kuinka lähtöjae liittyy kohdejakeeseen?'''|type:selection|options:
Rivi 1 686: Rivi 1 198:
</rcode>
</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 voi tehdä kaikki yhteen, yksi kaikkiin tai yksi yhteen. '''
<rcode label="Lisää sisällytys" name="sisallytys" embed=1 variables="
<rcode label="Lisää sisällytys" name="sisallytys" embed=1 variables="
name:sivu1|description:Mikä on lähtöjakeen sivu?|type:selection|options:
name:sivu1|description:Mikä on lähtöjakeen sivu?|type:selection|options:
Rivi 1 705: Rivi 1 219:
'Arktinen strategia';Arktinen strategia;
'Arktinen strategia';Arktinen strategia;
'Liikennejärjestelmän rahoitus ja taloudellinen ohjaus';Liikennejärjestelmän rahoitus ja taloudellinen ohjaus;
'Liikennejärjestelmän rahoitus ja taloudellinen ohjaus';Liikennejärjestelmän rahoitus ja taloudellinen ohjaus;
'Oma Painotus Teema III';Oma Painotus Teema III|
'Oma Painotus Teema III';Oma Painotus Teema III;
'Ympäristöministeriön tulevaisuuskatsaus';Ympäristöministeriön tulevaisuuskatsaus|
name:jaeid1|description:Mikä on lähtöjakeen ID?|type:text|
name:jaeid1|description:Mikä on lähtöjakeen ID?|type:text|
name:version|description:Mikä on lähtöjakeen versio?|type:text|default:edellinen|
name:version|description:Mikä on lähtöjakeen versio?|type:text|default:edellinen|
Rivi 1 727: Rivi 1 242:
'Arktinen strategia';Arktinen strategia;
'Arktinen strategia';Arktinen strategia;
'Liikennejärjestelmän rahoitus ja taloudellinen ohjaus';Liikennejärjestelmän rahoitus ja taloudellinen ohjaus;
'Liikennejärjestelmän rahoitus ja taloudellinen ohjaus';Liikennejärjestelmän rahoitus ja taloudellinen ohjaus;
'Oma Painotus Teema III';Oma Painotus Teema III|
'Oma Painotus Teema III';Oma Painotus Teema III;
'Ympäristöministeriön tulevaisuuskatsaus';Ympäristöministeriön tulevaisuuskatsaus|
name:jaeid2|description:Mikä on kohdejakeen ID (uudemmassa versiossa)?|type:text|
name:jaeid2|description:Mikä on kohdejakeen ID (uudemmassa versiossa)?|type:text|
name:sisallytys|description:'''Sisällytettiinkö ehdotus uudempaan versioon?'''|type:selection|options:
name:sisallytys|description:'''Sisällytettiinkö ehdotus uudempaan versioon?'''|type:selection|options:
Rivi 1 785: Rivi 1 301:
</rcode>
</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="
<rcode name="relaationpoisto" embed=1 label="Poista relaatio" showcode=0 variables="
name:relid|description:Poistettavan relaation ID (pilkulla eroteltuna useampia)|type:text|
name:relid|description:Poistettavan relaation ID (pilkulla eroteltuna useampia)|type:text|
Rivi 1 828: Rivi 1 346:
</rcode>
</rcode>


=== Kehittyneemmät hakukoneet ===
=== Sulautus (automaattinen sisällytys) ===
'''Hae jakeita ja niihin liittyviä avainsanoja'''
'''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 pitkistä teksteistä.'''  
<rcode label="Hae" name="avainsanat_disp" embed=1 variables="
{{tuloslinkki}}
name:sivu|description:Sivu jolta jakeita haetaan|type:selection|options:
 
NULL;Kaikilta;
<rcode label="Etsi sulautuksia" name="sulautus" embed=0 variables="
name:sivu|description:Sivut joihin sulautus tehdään (kaikista edellisen version jakeista)|type:checkbox|options:
'Liikenne ja viestintä palveluna';Liikenne ja viestintä palveluna;
'Liikenne ja viestintä palveluna';Liikenne ja viestintä palveluna;
'Liikenteen palvelumarkkinat';Liikenteen palvelumarkkinat;
'Liikenteen palvelumarkkinat';Liikenteen palvelumarkkinat;
Rivi 1 850: Rivi 1 369:
'Arktinen strategia';Arktinen strategia;
'Arktinen strategia';Arktinen strategia;
'Liikennejärjestelmän rahoitus ja taloudellinen ohjaus';Liikennejärjestelmän rahoitus ja taloudellinen ohjaus;
'Liikennejärjestelmän rahoitus ja taloudellinen ohjaus';Liikennejärjestelmän rahoitus ja taloudellinen ohjaus;
'Oma Painotus Teema III';Oma Painotus Teema III|
'Oma Painotus Teema III';Oma Painotus Teema III;
name:jaeid|description:Anna halutessasi jakeen ID(:t)|type:text|default:hae kaikki|
'Ympäristöministeriön tulevaisuuskatsaus';Ympäristöministeriön tulevaisuuskatsaus|
name:version|description:Versio|type:text|default:nykyinen|
name:version|description:Versio|type:text|default:nykyinen|
name:ident|type:hidden|default:'{{{1|Op_fi{{PAGEID}}}}}'
name:toleranssi|description:Toleranssi (Levenshtein distance)|default:5|
name:tallenna|description:Tallenna kantaan|type:selection|options:TRUE;Kyllä;FALSE;Ei|default:FALSE|
name:ident|type:hidden|default:'{{{1|Op_fi{{PAGEID}}}}}'|
name:pagename|type:hidden|default:'{{PAGENAME}}'
">
">
library(OpasnetUtils)
library(OpasnetUtils)
Rivi 1 859: Rivi 1 381:
objects.latest("Op_fi4325", "apufunktiot")
objects.latest("Op_fi4325", "apufunktiot")


# Erottelu pilkuilla ja välilyöntien poisto
mdat <- get_meta_data(ident)
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"
a <- tolower(version) == "nykyinen"
Rivi 1 874: Rivi 1 389:
}
}
version <- as.numeric(version)
version <- as.numeric(version)
version <- c(version - 1, version)


out <- jaehakukone(ident, sivu = sivu, versio = version, jae = jaeid)
jakeet <- jaehakukone(ident, versio = version)
 
ver1 <- jakeet[jakeet$Versio == version[1],]
ver2 <- jakeet[jakeet$Versio == version[2] & jakeet$Sivu == sivu,]


if (nrow(out) == 0) {
# adist too slow
stop("Jakeita ei löytynyt!")
d <- adist(
}
ver1$Result,
ver2$Result,
fixed = FALSE
)
d[is.na(d)] <- Inf
#d_min <- apply(d, 1, min)
#d_tol <- d <= toleranssi
#d_out <- apply(d, 1, which.min)


filter <- list()
colnames(ver1)[colnames(ver1) == "Versio"] <- "Versio1"
filter$Sivu <- sivu
colnames(ver1)[colnames(ver1) == "Sivu"] <- "Sivu1"
filter$Versio <- version
colnames(ver1)[colnames(ver1) == "JaeID"] <- "JaeID1"
filter$JaeID <- jaeid
colnames(ver1)[colnames(ver1) == "Result"] <- "Result1"


tags <- try_dl_rm(
colnames(ver2)[colnames(ver2) == "Versio"] <- "Versio2"
paste(ident, "Avainsanat", sep = "."),
colnames(ver2)[colnames(ver2) == "Sivu"] <- "Sivu2"
filter = filter,
colnames(ver2)[colnames(ver2) == "JaeID"] <- "JaeID2"
rm_id = paste(ident, "Avainsananpoistot", sep = "."),
colnames(ver2)[colnames(ver2) == "Result"] <- "Result2"
rm_ind = "AvainsanaID"
)


if (nrow(tags) == 0) {
#out <- cbind(ver1[d_min <= toleranssi, ], ver2[d_out[d_min <= toleranssi], ])
cat("Avainsanoja ei löytynyt!\n")
 
} else {
d <- alply(d, 1, I)
colnames(tags)[colnames(tags) == "Result"] <- "Avainsana"
d_tol <- llply(d, function(x) {x <= toleranssi})
out <- join(
d_reps <- laply(d_tol, sum)
tags[c("Versio", "Sivu", "JaeID", "AvainsanaID", "Avainsana")],
d_w <- llply(d_tol, which)
out[c("Versio", "Sivu", "JaeID", "Result")]
d_w <- unlist(d_w)
 
out <- cbind(ver1[rep(1:nrow(ver1), d_reps),], ver2[d_w, ])
 
#d <- NULL
#n <- NULL
#for (i in 1:nrow(ver1)) {
# for (j in split(ver2$Result, ceiling((1:nrow(ver2)) / 100))) {
# temp <- agrep(ver1$Result[i], j, toleranssi)
# d <- append(d, temp)
# n <- append(n, length(temp))
# }
#}
 
#out <- cbind(
# ver1[rep(1:nrow(ver1), n),],
# ver2[d,]
#)
if (tallenna) {
opbase.upload(
out,
name = pagename,
who = wiki_username,
subset = "Sulautukset"
)
} else {
oprint(
out,
include.rownames = FALSE,  
digits = rep(0, ncol(out) + 1),
caption("Sulautus uuteen versioon"),  
caption.placement = "top",
show.all = TRUE
)
)
# Jos annettiin vain yksi versio ja/tai sivu niin niitä ei tarvitse printata
filter_ind <- NULL
if (length(version) != 1) filter_ind <- c(filter_ind, "Versio")
if (length(sivu) != 1) filter_ind <- c(filter_ind, "Sivu")
filter_ind <- c(filter_ind, "JaeID")
oprint(out[c(filter_ind, "Result", "AvainsanaID", "Avainsana")], include.rownames = FALSE)
}
}
</rcode>
</rcode>
'''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:
NULL;Kaikilta;
'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|
name:jaeid|description:Anna halutessasi jakeen ID(:t)|type:text|default:hae kaikki|
name:liit|description:Liittymistyyppi|type:selection|options:
NULL;Kaikki;
'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|
name:sis|description:Sisällytys|type:selection|options:
NULL;Kaikki;
'ehdotus huomioitu ja liittyvää painotusta muutettu';Ehdotus huomioitu ja liittyvää painotusta muutettu;
'ehdotus huomioitu ja uusi kohta lisätty';Ehdotus huomioitu ja uusi kohta lisätty;
'ehdotus ei ole antanut aihetta muutoksiin';Ehdotus ei ole antanut aihetta muutoksiin;
'ehdotus ei ole antanut aihetta muutoksiin vaan sisältyy olennaisesti jo kirjattuun';Ehdotus ei ole antanut aihetta muutoksiin vaan sisältyy olennaisesti jo kirjattuun|
name:version|description:Versio|type:text|default:nykyinen|
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")
# Erottelu pilkuilla ja välilyöntien poisto
if (!is.null(sivu)) sivu <- gsub("^\\s*|\\s*$", "", strsplit(sivu, ",")[[1]])
if (tolower(jaeid == "hae kaikki")) {
jaeid <- NULL
} else {
jaeid <- gsub("^\\s*|\\s*$", "", strsplit(jaeid, ",")[[1]])
}
version <- gsub("^\\s*|\\s*$", "", strsplit(version, ",")[[1]])
a <- tolower(version) == "nykyinen"
if (any(a)) {
version <- version[!a]
version <- c(version, get_current_version(ident))
}
version <- as.numeric(version)
# Add previous and next versions to check for inclusion from previous and into next
original_version <- version
if (!(1 %in% version)) {
prev <- TRUE
version <- c(min(version, na.rm = TRUE) - 1, version)
}
version <- c(version, max(version, na.rm = TRUE) + 1)
filter <- list()
filter$Sivu1 <- sivu
filter$Versio <- version
filter$JaeID1 <- jaeid
rel1 <- try_dl_rm(
paste(ident, "Relaatiot", sep = "."),
filter = filter,
rm_id = paste(ident, "Relaationpoistot", sep = "."),
rm_ind = "RelaatioID"
)
if (is.null(jaeid)) {
rel2 <- data.frame()
} else {
filter$JaeID1 <- NULL
filter$Sivu1 <- NULL
filter$JaeID2 <- jaeid
filter$Sivu2 <- sivu
rel2 <- try_dl_rm(
paste(ident, "Relaatiot", sep = "."),
filter = filter,
rm_id = paste(ident, "Relaationpoistot", sep = "."),
rm_ind = "RelaatioID"
)
}
rel <- rbind(rel1, rel2)
if (!any(original_version %in% rel$Versio)) stop("Annetuilla versiolla ei löytynyt relaatioita.")
if (!is.null(liit)|!is.null(sis)) rel <- rel[rel$Result == c(liit,sis), ]
if (nrow(rel) == 0) {
cat("Jakeelle ei löytynyt kysyttyjä relaatioita tietokannassa.\n")
} else {
jakeet <- jaehakukone(
ident,
sivu = unique(c(
as.character(rel$Sivu1),
as.character(rel$Sivu2)
)),
versio = version,
jae = unique(c(
as.character(rel$JaeID1),
as.character(rel$JaeID2)
))
)
if (nrow(jakeet) == 0) stop("Relaatioissa listattuja jakeita ei löytynyt!")
# Relaatiot
if (nrow(rel[!(rel$Relaatio %in% sis_opt),]) > 0) {
jakeet <- jakeet[c("Versio", "Sivu", "JaeID", "Result")]
colnames(jakeet)[colnames(jakeet) == "JaeID"] <- "JaeID1"
colnames(jakeet)[colnames(jakeet) == "Sivu"] <- "Sivu1"
colnames(jakeet)[colnames(jakeet) == "Result"] <- "Jae1"
rel <- rel[c("RelaatioID", "Versio", "Sivu1", "JaeID1", "Result", "Sivu2", "JaeID2")]
colnames(rel)[colnames(rel) == "Result"] <- "Relaatio"
out <- join(
rel[(!(rel$Relaatio %in% sis_opt)) & rel$Versio %in% original_version,],
jakeet,
match = "first" # versio - sivu - jaeid -> yksi yhteen
)
colnames(jakeet)[colnames(jakeet) == "JaeID1"] <- "JaeID2"
colnames(jakeet)[colnames(jakeet) == "Sivu1"] <- "Sivu2"
colnames(jakeet)[colnames(jakeet) == "Jae1"] <- "Jae2"
out <- join(out, jakeet, match = "first")
oprint(
out[c("Versio", "RelaatioID", "Sivu1", "JaeID1", "Jae1", "Relaatio", "Sivu2", "JaeID2", "Jae2")],
include.rownames = FALSE,
caption = "Relaatiot",
caption.placement = "top"
)
} else {
cat("Ei relaatioita!\n")
}
# Sisällytykset
if (nrow(rel[(rel$Relaatio %in% sis_opt),]) > 0) {
colnames(jakeet)[colnames(jakeet) %in% c("JaeID","JaeID2")] <- "JaeID1"
colnames(jakeet)[colnames(jakeet) %in% c("Sivu", "Sivu2")] <- "Sivu1"
colnames(jakeet)[colnames(jakeet) %in% c("Result", "Jae2")] <- "Jae1"
colnames(rel)[colnames(rel) == "Relaatio"] <- "Sisällytys"
out <- join(
rel[rel$Sisällytys %in% sis_opt & rel$Versio %in% version[-length(version)],],
jakeet,
match = "first" # versio - sivu - jaeid -> yksi yhteen
)
colnames(jakeet)[colnames(jakeet) == "JaeID1"] <- "JaeID2"
colnames(jakeet)[colnames(jakeet) == "Sivu1"] <- "Sivu2"
colnames(jakeet)[colnames(jakeet) == "Jae1"] <- "Jae2"
jakeet$Versio <- as.numeric(as.character(jakeet$Versio)) - 1
out <- join(out, jakeet, match = "first")
oprint(
out[c("Versio", "RelaatioID", "Sivu1", "JaeID1", "Jae1", "Sisällytys", "Sivu2", "JaeID2", "Jae2")],
include.rownames = FALSE,
caption = "Sisällytys (uudempaan versioon)",
caption.placement = "top"
)
} else {
cat("Ei sisällytyksiä!\n")
}
}
</rcode>
===Analyysi===
'''Tässä voit hakea jakeita ja analysoida niiden määriä hakemalla yhdellä tai useammalla avainsanalla. '''
Käytetyt avainsanat:
{{piilotettu|
3D-tulostus                  Aikataulut                  Ajoneuvokanta                Alueellisuus               
alustus                      Ammattiryhmät                Arvo                        Asutus                     
Aurinko                      Automatisaatio              Avoimuus                    Big Data                   
Biopolttoaine                Dataliikenne                Digitalisoituminen          Eettisyys                 
eIDAS                        Elintaso                    Energia                      Epäselvä luokka           
Eriarvoisuus                Erityisryhmät                Esineiden internet          Globaalius                 
Globaaluis                  Henkilökortti                Henkilötiedot                Huutokauppa               
Hybridi                      Hybridi-TV                  Hyvinvointi                  Hyvinvointiyhteiskunta     
Häiriöt                      Ilmasto                      Infrastruktuuri              Innovatiivisus             
Innovatiivisuus              Internet                    Investoinnit                Joukkoliikenne             
Joustavuus                  Julkinen valta              Kaivosteollisuus            Kansainvälisyys           
Kasvihuonekaasut            Kaupallisuus                Kaupungit                    Kehitys                   
Kestävyys                    Kevyen liikenteen väylät    Kevytliikenne                Kiinteistöt               
Kilpailu                    Kilpailukyky                Konesalit                    Konkreettisuus             
Kotimaisuus                  Koulutus                    Kunnat                      Kustannustehokkuus         
Kuuluvuus                    Kävely                      Laajakaista                  Lainsäädäntö               
Laiton tarjonta              Langattomuus                Lappi                        Lentoliikenne             
Liikenne                    Liikenneverkostot            Liikkumistili                Linja-autot               
Logistiikka                  Luonnonsuojelu              Lämmitys                    Maakaasu                   
Maatalous                    Mainonta                    Markkinat                    Massavalvonta             
Meriliikenne                Metadata                    Mobiiliverkko                Mopot                     
Nopeus                      Ohjaus                      Ohjelmistot                  Ohjelmistotoimittaja       
Oikeusturva                  Omavaraisuus                Operaattori                  Osaaminen                 
Ostovoima                    Palaute                      Palvelut                    Palvelutaso               
Peruskunto                  Pilvipalvelut                Polttoaine                  Posti                     
Puelueettomuus              Pysäköinti                  Pyöräily                    Päivitys                   
Pääkaupunkiseutu            Päästöt                      Päätöksenteko                Päätös                     
Raha                        Rahoitus                    Rahtliikenne                Rajapinnat                 
Rakennemuutos                Rakentaminen                Raskas liikenne              Rautatiet                 
Riippuvuus                  Rikokset                    Robotisaatio                Ruuhkamaksu               
Ruuhkautuminen              Saatavuus                    Sateliittipaikannus          Sovellukset               
Strategia                    Suunnittelu                  Sähkö                        Sähköauto                 
Sääntely                    Säästöt                      Talous                      Talouskasvu               
Tarpeet                      Tasa-arvo                    Tasapuolisuus                Tasavertaisuus             
Tavaraliikenne              Tehokkuus                    Tekijänoikeus                Tekniikkaneutraalius       
Tekninen tuki                Teknologia                  Teknologianeutraalius        Teollisuus                 
Terveydenhuolto              Terveys                      testi                        Tiedon avoimuus           
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ä jakeita/tilastoja" name="jae_stats" embed=1 graphics=1 variables="
name:sivu|description:Minkä sivun jakeita haluat tarkastella?|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|
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) {
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) {
== Versiot ==
cat("Jakeelle ei löytynyt kysyttyjä relaatioita tietokannassa.\n")
'''Alla olevassa taulukossa on listattuna hankkeeseen kuuluvat sivut versiokohtaisesti. Tätä taulukkoa käytetään lähes kaikissa tämän sivun hakukoneissa määrittämään nykyinen versio (jokaista sivua kohden on lisättävä uusi rivi aina kun uusi versio luodaan, sikäli kun sivu on vielä mukana hankkeessa) sekä haettaessa kommentteja sivukohtaisista tietokannoista. Periaatteessa taulukkoa myös käytettäisiin määrittelemään sivujen versiokohtaiset revisiot (päivitysajankohtaiset sivut) wiki-jakeiden konelukemista varten, mutta koska tässä hankkeessa suurin osa työstä tehtiin ennen viimeistä versiota niin tätä toiminnallisuutta ei voida käyttää koska JaeID:t menisivät sekaisin.'''
} else {
<t2b name="Versiot" index="Versio,Sivu,Ident" unit="OldID">
related <- rel[
1|Liikenne ja viestintä palveluna|Op_fi4248|
rel$Result %in% c(
1|Liikenteen palvelumarkkinat|Op_fi4253|
"on neutraali suhteessa",  
1|Liikenteen energiareformi|Op_fi4254|
"on uusi linjaus tai painotus",  
1|Älykkäät käyttäjälähtöiset digitaaliset palvelut|Op_fi4255|
"tukee tai on linjassa",
1|Monipuoliset sisällöt|Op_fi4256|
"vastustaa tai on ristiriidassa"
1|Oma Painotus Teema I|Op_fi4257|
), ]
1|Digitaalinen tieto hyvinvoinnin ja kilpailuedun lähteenä|Op_fi4250|
related$Result <- as.character(related$Result)
1|Käyttäjän oikeus omaan tietoonsa ja sen hyödyntämiseen|Op_fi4258|
affected <- rel[
1|Luottamuksen palauttaminen internettiin|Op_fi4259|
rel$Result %in% c(
1|Datan liiketoiminta- ja käyttömahdollisuudet|Op_fi4260|
"ehdotus ei ole antanut aihetta muutoksiin",
1|Tieto ja digitalisaatio liikenteessä|Op_fi4261|
"ehdotus ei ole antanut aihetta muutoksiin vaan sisältyy olennaisesti jo kirjattuun",
1|Oma Painotus Teema II|Op_fi4262|
"ehdotus huomioitu ja liittyvää painotusta muutettu",
1|Infrastruktuuri kasvun alustana|Op_fi4251|
"ehdotus huomioitu ja uusi kohta lisätty"
1|Toimintavarmuus ja turvallisuus|Op_fi4263|
), ]
1|Liikenne- ja viestintäyhteydet|Op_fi4264|
affected$Result <- as.character(affected$Result)
1|Arktinen strategia|Op_fi4265|
affected$Result[affected$Result == "ehdotus ei ole antanut aihetta muutoksiin"] <- "Ei aihetta muutoksiin"
1|Liikennejärjestelmän rahoitus ja taloudellinen ohjaus|Op_fi4266|
affected$Result[affected$Result == "ehdotus ei ole antanut aihetta muutoksiin vaan sisältyy olennaisesti jo kirjattuun"] <- "Sisältyy valmiiksi"
1|Oma Painotus Teema III|Op_fi4267|
affected$Result[affected$Result == "ehdotus huomioitu ja liittyvää painotusta muutettu"] <- "Huomioitu painotuksella"
1|Ympäristöministeriön tulevaisuuskatsaus|Op_fi4443|24666
affected$Result[affected$Result == "ehdotus huomioitu ja uusi kohta lisätty"] <- "Huomioitu lisäyksellä"
2|Liikenne ja viestintä palveluna|Op_fi4248|
2|Liikenteen palvelumarkkinat|Op_fi4253|
related_out <- ddply(related, "Result", nrow)
2|Liikenteen energiareformi|Op_fi4254|
colnames(related_out) <- c("Relaatio", "Lukumäärä")
2|Älykkäät käyttäjälähtöiset digitaaliset palvelut|Op_fi4255|
2|Monipuoliset sisällöt|Op_fi4256|
ggplot(related_out, aes(x = Relaatio, y = Lukumäärä, fill = Relaatio)) +
2|Oma Painotus Teema I|Op_fi4257|
geom_bar(stat = "identity") +
2|Digitaalinen tieto hyvinvoinnin ja kilpailuedun lähteenä|Op_fi4250|
theme_grey(base_size = 24) +
2|Käyttäjän oikeus omaan tietoonsa ja sen hyödyntämiseen|Op_fi4258|
theme(axis.text.x = element_blank(), axis.title.x = element_blank()) +
2|Luottamuksen palauttaminen internettiin|Op_fi4259|
ggtitle("Relaatioiden frekvenssit")# + facet_wrap(~Sivu)
2|Datan liiketoiminta- ja käyttömahdollisuudet|Op_fi4260|
2|Tieto ja digitalisaatio liikenteessä|Op_fi4261|
2|Oma Painotus Teema II|Op_fi4262|
2|Infrastruktuuri kasvun alustana|Op_fi4251|
2|Toimintavarmuus ja turvallisuus|Op_fi4263|
2|Liikenne- ja viestintäyhteydet|Op_fi4264|
2|Arktinen strategia|Op_fi4265|
2|Liikennejärjestelmän rahoitus ja taloudellinen ohjaus|Op_fi4266|
2|Oma Painotus Teema III|Op_fi4267|
2|Ympäristöministeriön tulevaisuuskatsaus|Op_fi4443|24666
</t2b>
 


affected_out <- ddply(affected, "Result", nrow)
== Linkkejä ==
colnames(affected_out) <- c("Sisällytys", "Lukumäärä")
* [[Keskustelu:Tuotosten jäsentäminen Opasnetissä]]
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)
}
</rcode>

Nykyinen versio 18. marraskuuta 2014 kello 16.20

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

Tägikone on toteutettu FinICT-projetissa ja sitä voi kuka tahansa hyödyntää omien tekstiaineistojensa rikastamisessa. Muista FinICT-pilottihankkeista, jotka hyödyntävät semanttista rikastusta, voit lukea lisää täältä.

{{#opasnet_base_link:Op_fi4526}}


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 .


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

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

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:


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

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.

Sivu jolta jakeita haetaan:

Anna halutessasi jakeen ID(:t):

Versio:

+ Näytä koodi

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

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

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

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

Avainsanan poisto

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

Poistettavan avainsanan ID (pilkulla eroteltuna useampia):

Mikä versio on kyseessä?:

Poiston syy:

+ Näytä koodi


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

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

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 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 (uudemmassa versiossa)?:

Sisällytettiinkö ehdotus uudempaan versioon?:

+ Näytä koodi

Relaation poisto

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

Poistettavan relaation ID (pilkulla eroteltuna useampia):

Mikä versio on kyseessä?:

Poiston syy:

+ Näytä koodi

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 pitkistä teksteistä. {{#opasnet_base_link:Op_fi4526}}


Sivut joihin sulautus tehdään (kaikista edellisen version jakeista):
Liikenne ja viestintä palveluna
Liikenteen palvelumarkkinat
Liikenteen energiareformi
Älykkäät käyttäjälähtöiset digitaaliset palvelut
Monipuoliset sisällöt
Oma Painotus Teema I
Digitaalinen tieto hyvinvoinnin ja kilpailuedun lähteenä
Käyttäjän oikeus omaan tietoonsa ja sen hyödyntämiseen
Luottamuksen palauttaminen internettiin
Datan liiketoiminta- ja käyttömahdollisuudet
Tieto ja digitalisaatio liikenteessä
Oma Painotus Teema II
Infrastruktuuri kasvun alustana
Toimintavarmuus ja turvallisuus
Liikenne- ja viestintäyhteydet
Arktinen strategia
Liikennejärjestelmän rahoitus ja taloudellinen ohjaus
Oma Painotus Teema III
Ympäristöministeriön tulevaisuuskatsaus

Versio:

Toleranssi (Levenshtein distance):

Tallenna kantaan:

+ Näytä koodi

Versiot

Alla olevassa taulukossa on listattuna hankkeeseen kuuluvat sivut versiokohtaisesti. Tätä taulukkoa käytetään lähes kaikissa tämän sivun hakukoneissa määrittämään nykyinen versio (jokaista sivua kohden on lisättävä uusi rivi aina kun uusi versio luodaan, sikäli kun sivu on vielä mukana hankkeessa) sekä haettaessa kommentteja sivukohtaisista tietokannoista. Periaatteessa taulukkoa myös käytettäisiin määrittelemään sivujen versiokohtaiset revisiot (päivitysajankohtaiset sivut) wiki-jakeiden konelukemista varten, mutta koska tässä hankkeessa suurin osa työstä tehtiin ennen viimeistä versiota niin tätä toiminnallisuutta ei voida käyttää koska JaeID:t menisivät sekaisin.

Versiot(OldID)
ObsVersioSivuIdentResult
11Liikenne ja viestintä palvelunaOp_fi4248
21Liikenteen palvelumarkkinatOp_fi4253
31Liikenteen energiareformiOp_fi4254
41Älykkäät käyttäjälähtöiset digitaaliset palvelutOp_fi4255
51Monipuoliset sisällötOp_fi4256
61Oma Painotus Teema IOp_fi4257
71Digitaalinen tieto hyvinvoinnin ja kilpailuedun lähteenäOp_fi4250
81Käyttäjän oikeus omaan tietoonsa ja sen hyödyntämiseenOp_fi4258
91Luottamuksen palauttaminen internettiinOp_fi4259
101Datan liiketoiminta- ja käyttömahdollisuudetOp_fi4260
111Tieto ja digitalisaatio liikenteessäOp_fi4261
121Oma Painotus Teema IIOp_fi4262
131Infrastruktuuri kasvun alustanaOp_fi4251
141Toimintavarmuus ja turvallisuusOp_fi4263
151Liikenne- ja viestintäyhteydetOp_fi4264
161Arktinen strategiaOp_fi4265
171Liikennejärjestelmän rahoitus ja taloudellinen ohjausOp_fi4266
181Oma Painotus Teema IIIOp_fi4267
191Ympäristöministeriön tulevaisuuskatsausOp_fi444324666
202Liikenne ja viestintä palvelunaOp_fi4248
212Liikenteen palvelumarkkinatOp_fi4253
222Liikenteen energiareformiOp_fi4254
232Älykkäät käyttäjälähtöiset digitaaliset palvelutOp_fi4255
242Monipuoliset sisällötOp_fi4256
252Oma Painotus Teema IOp_fi4257
262Digitaalinen tieto hyvinvoinnin ja kilpailuedun lähteenäOp_fi4250
272Käyttäjän oikeus omaan tietoonsa ja sen hyödyntämiseenOp_fi4258
282Luottamuksen palauttaminen internettiinOp_fi4259
292Datan liiketoiminta- ja käyttömahdollisuudetOp_fi4260
302Tieto ja digitalisaatio liikenteessäOp_fi4261
312Oma Painotus Teema IIOp_fi4262
322Infrastruktuuri kasvun alustanaOp_fi4251
332Toimintavarmuus ja turvallisuusOp_fi4263
342Liikenne- ja viestintäyhteydetOp_fi4264
352Arktinen strategiaOp_fi4265
362Liikennejärjestelmän rahoitus ja taloudellinen ohjausOp_fi4266
372Oma Painotus Teema IIIOp_fi4267
382Ympäristöministeriön tulevaisuuskatsausOp_fi444324666


Linkkejä

Noudettu kohteesta ”https://fi.opasnet.org/index.php?title=Liikenne_ja_viestintä_digitaalisessa_Suomessa_2020/Sisällönanalyysi&oldid=27432”