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ä.
Näytä tulokset
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
+ Näytä koodi- Piilota koodi
library(OpasnetUtils)
library(plyr)
objects.latest("Op_fi4325", "apufunktiot")
# Erottelu pilkuilla ja välilyöntien poisto
if (!is.null(sivu)) sivu <- gsub("^\\s*|\\s*$", "", strsplit(sivu, ",")[[1]])
if (tolower(jaeid == "hae kaikki")) {
jaeid <- NULL
} else {
jaeid <- gsub("^\\s*|\\s*$", "", strsplit(jaeid, ",")[[1]])
}
version <- gsub("^\\s*|\\s*$", "", strsplit(version, ",")[[1]])
a <- tolower(version) == "nykyinen"
if (any(a)) {
version <- version[!a]
version <- c(version, get_current_version(ident))
}
version <- as.numeric(version)
out <- jaehakukone(ident, sivu = sivu, versio = version, jae = jaeid)
if (nrow(out) == 0) {
stop("Jakeita ei löytynyt!")
}
filter <- list()
filter$Sivu <- sivu
filter$Versio <- version
filter$JaeID <- jaeid
tags <- try_dl_rm(
paste(ident, "Avainsanat", sep = "."),
filter = filter,
rm_id = paste(ident, "Avainsananpoistot", sep = "."),
rm_ind = "AvainsanaID"
)
if (nrow(tags) == 0) {
cat("Avainsanoja ei löytynyt!\n")
} else {
# Yhdistetään kunkin jakeen avainsanat yhdelle riville
tags <- ddply(
tags,
c("Versio", "Sivu", "JaeID"),
function(x) {a <- x[1,];a$Avainsanat <- paste(x$Result, collapse = ", ");return(a)}
)
out <- join(
out[c("Versio", "Sivu", "JaeID", "Result")],
tags[c("Versio", "Sivu", "JaeID", "Avainsanat")],
by = c("Versio", "Sivu", "JaeID"),
type = "inner",
match = "first"
)
# Jos annettiin vain yksi versio ja/tai sivu niin niitä ei tarvitse printata
filter_ind <- NULL
if (length(version) != 1) filter_ind <- c(filter_ind, "Versio")
if (length(sivu) != 1) filter_ind <- c(filter_ind, "Sivu")
filter_ind <- c(filter_ind, "JaeID")
oprint(
out[c(filter_ind, "Result", "Avainsanat")],
include.rownames = FALSE,
show_all = TRUE
)
}
| |
Jae-relaatio-jae listaus
Hakee jakeita ja niihin liittyviä toisia jakeita listaten myös relaation tyypin
+ Näytä koodi- Piilota koodi
# Eri sisältymistyypit pitää määritellä niin että ne voidaan käsitellä erillään muista relaatioista
sis_opt <- c(
'ehdotus huomioitu ja liittyvää painotusta muutettu',
'ehdotus huomioitu ja uusi kohta lisätty',
'ehdotus ei ole antanut aihetta muutoksiin',
'ehdotus ei ole antanut aihetta muutoksiin vaan sisältyy olennaisesti jo kirjattuun'
)
#liit_opt <- c(
# 'tukee tai on linjassa',
# 'vastustaa tai on ristiriidassa',
# 'on neutraali suhteessa',
# 'on uusi linjaus tai painotus'
#)
library(OpasnetUtils)
library(plyr)
objects.latest("Op_fi4325", "apufunktiot")
# Erottelu pilkuilla ja välilyöntien poisto
if (!is.null(sivu)) sivu <- gsub("^\\s*|\\s*$", "", strsplit(sivu, ",")[[1]])
if (tolower(jaeid == "hae kaikki")) {
jaeid <- NULL
} else {
jaeid <- gsub("^\\s*|\\s*$", "", strsplit(jaeid, ",")[[1]])
}
version <- gsub("^\\s*|\\s*$", "", strsplit(version, ",")[[1]])
a <- tolower(version) == "nykyinen"
if (any(a)) {
version <- version[!a]
version <- c(version, get_current_version(ident))
}
version <- as.numeric(version)
# Add previous and next versions to check for inclusion from previous and into next
original_version <- version
if (!(1 %in% version)) {
prev <- TRUE
version <- c(min(version, na.rm = TRUE) - 1, version)
}
version <- c(version, max(version, na.rm = TRUE) + 1)
filter <- list()
filter$Sivu1 <- sivu
filter$Versio <- version
filter$JaeID1 <- jaeid
rel1 <- try_dl_rm(
paste(ident, "Relaatiot", sep = "."),
filter = filter,
rm_id = paste(ident, "Relaationpoistot", sep = "."),
rm_ind = "RelaatioID"
)
if (is.null(jaeid)) {
rel2 <- data.frame()
} else {
filter$JaeID1 <- NULL
filter$Sivu1 <- NULL
filter$JaeID2 <- jaeid
filter$Sivu2 <- sivu
rel2 <- try_dl_rm(
paste(ident, "Relaatiot", sep = "."),
filter = filter,
rm_id = paste(ident, "Relaationpoistot", sep = "."),
rm_ind = "RelaatioID"
)
}
rel <- rbind(rel1, rel2)
if (!any(original_version %in% rel$Versio)) stop("Annetuilla versiolla ei löytynyt relaatioita.")
if (!is.null(liitsis)) rel <- rel[rel$Result %in% liitsis, ]
if (nrow(rel) == 0) {
cat("Jakeelle ei löytynyt kysyttyjä relaatioita tietokannassa.\n")
} else {
jakeet <- jaehakukone(
ident,
sivu = unique(c(
as.character(rel$Sivu1),
as.character(rel$Sivu2)
)),
versio = version,
jae = unique(c(
as.character(rel$JaeID1),
as.character(rel$JaeID2)
))
)
if (nrow(jakeet) == 0) stop("Relaatioissa listattuja jakeita ei löytynyt!")
# Relaatiot
if (nrow(rel[!(rel$Relaatio %in% sis_opt),]) > 0) {
jakeet <- jakeet[c("Versio", "Sivu", "JaeID", "Result")]
colnames(jakeet)[colnames(jakeet) == "JaeID"] <- "JaeID1"
colnames(jakeet)[colnames(jakeet) == "Sivu"] <- "Sivu1"
colnames(jakeet)[colnames(jakeet) == "Result"] <- "Jae1"
rel <- rel[c("RelaatioID", "Versio", "Sivu1", "JaeID1", "Result", "Sivu2", "JaeID2")]
colnames(rel)[colnames(rel) == "Result"] <- "Relaatio"
out <- join(
rel[(!(rel$Relaatio %in% sis_opt)) & rel$Versio %in% original_version,],
jakeet,
match = "first" # versio - sivu - jaeid -> yksi yhteen
)
colnames(jakeet)[colnames(jakeet) == "JaeID1"] <- "JaeID2"
colnames(jakeet)[colnames(jakeet) == "Sivu1"] <- "Sivu2"
colnames(jakeet)[colnames(jakeet) == "Jae1"] <- "Jae2"
out <- join(out, jakeet, match = "first")
if(details) {
oprint(
out[c("Versio", "RelaatioID", "Sivu1", "JaeID1", "Jae1", "Relaatio", "Sivu2", "JaeID2", "Jae2")],
include.rownames = FALSE,
caption = "Relaatiot",
caption.placement = "top",
show_all = TRUE
)
} else {
temp <- out[c("Versio", "RelaatioID", "Sivu1", "JaeID1", "Jae1", "Relaatio", "Sivu2", "JaeID2", "Jae2")]
temp <- data.frame(
Jae1 = paste(temp$Jae1, " (", temp$Sivu1, ")", sep = ""),
Relaatio = temp$Relaatio,
Jae2 = paste(temp$Jae2, " (", temp$Sivu2, ")", sep = "")
)
oprint(temp,
include.rownames = FALSE,
caption = "Relaatiot",
caption.placement = "top",
show_all = TRUE
)
}
} else {
cat("Ei relaatioita!\n")
}
# Sisällytykset
if (nrow(rel[(rel$Relaatio %in% sis_opt),]) > 0) {
colnames(jakeet)[colnames(jakeet) %in% c("JaeID","JaeID2")] <- "JaeID1"
colnames(jakeet)[colnames(jakeet) %in% c("Sivu", "Sivu2")] <- "Sivu1"
colnames(jakeet)[colnames(jakeet) %in% c("Result", "Jae2")] <- "Jae1"
colnames(rel)[colnames(rel) == "Relaatio"] <- "Sisällytys"
out <- join(
rel[rel$Sisällytys %in% sis_opt & rel$Versio %in% version[-length(version)],],
jakeet,
match = "first" # versio - sivu - jaeid -> yksi yhteen
)
colnames(jakeet)[colnames(jakeet) == "JaeID1"] <- "JaeID2"
colnames(jakeet)[colnames(jakeet) == "Sivu1"] <- "Sivu2"
colnames(jakeet)[colnames(jakeet) == "Jae1"] <- "Jae2"
jakeet$Versio <- as.numeric(as.character(jakeet$Versio)) - 1
out <- join(out, jakeet, match = "first")
oprint(
out[c("Versio", "RelaatioID", "Sivu1", "JaeID1", "Jae1", "Sisällytys", "Sivu2", "JaeID2", "Jae2")],
include.rownames = FALSE,
caption = "Sisällytys (uudempaan versioon)",
caption.placement = "top",
show_all = TRUE
)
} else {
cat("Ei sisällytyksiä!\n")
}
}
| |
Avainsana- ja relaatiotietojen analyysi
Hae jakeita annetuilla kriteereillä ja vertaile avainsanojen ja relaatioiden lukumääriä. Halutessasi voit myös listata jaeosumat. Vapaakenttiin voi syöttää useita arvoja erottelemalla ne pilkuilla.
Käytetyt avainsanat:
| Näytä yksityiskohdat
|
|
3D-tulostus Aikataulut 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
|
+ Näytä koodi- Piilota koodi
library(OpasnetUtils)
library(plyr)
objects.latest("Op_fi4325", "apufunktiot")
library(ggplot2)
filter <- list()
if (nchar(gsub(" ", "", avainsanat)) > 0) {
avainsanat <- strsplit(avainsanat, ",")[[1]]
avainsanat <- gsub("^\\s*|\\s*$", "", avainsanat)
} else {
avainsanat <- NULL
}
if (nchar(gsub(" ", "", avainsanat_all)) > 0) {
avainsanat_all <- strsplit(avainsanat_all, ",")[[1]]
avainsanat_all <- gsub("^\\s*|\\s*$", "", avainsanat_all)
#filter$Avainsana <- avainsanat_all
} else {
avainsanat_all <- NULL
}
filter$Sivu <- sivu
version <- gsub("^\\s*|\\s*$", "", strsplit(version, ",")[[1]])
a <- tolower(version) == "nykyinen"
if (any(a)) {
version <- version[!a]
version <- c(version, get_current_version(ident))
}
version <- as.numeric(version)
filter$Versio <- version
if (length(filter) == 0) filter <- NULL
tags <- try_dl_rm(
paste(ident, "Avainsanat", sep = "."),
filter = filter,
rm_id = paste(ident, "Avainsananpoistot", sep = "."),
rm_ind = "AvainsanaID"
)
jaeid <- NULL
if (!is.null(avainsanat)|!is.null(avainsanat_all)) {
tags <- tags[tags$Result %in% c(avainsanat, avainsanat_all), ]
jaeid <- unique(as.character(tags$JaeID))
}
if(!is.null(avainsanat_all)) {
temp <- list()
for (i in 1:nrow(jaeid)) {
temp[[i]] <- avainsanat_all %in% tags$Result[tags$JaeID == jaeid[i]]
}
temp <- lapply(temp, all)
jaeid <- jaeid[temp]
tags <- tags[tags$JaeID %in% jaeid,]
}
if (nrow(tags) == 0) {
cat("Avainsanoja ei löytynyt.\n")
}
if (is.null(filter)) {
filter2 <- list()
} else {
filter2 <- filter
}
filter2$JaeID <- jaeid
if (length(filter2) == 0) filter2 <- NULL
if (jaelista) {
jakeet <- jaehakukone(
ident,
sivu = filter2$Sivu, # *list$non-existent returns NULL
versio = filter2$Versio,
jae = filter2$JaeID
)
if (nrow(jakeet) == 0) {
cat("Avainsanoissa listattuja jakeita ei löytynyt.\n")
} else {
colnames(jakeet)[colnames(jakeet) == "Result"] <- "Sisältö"
tagged <- NULL
if (nrow(tags) > 0) {
#tagged <- join(
# jakeet[c("Versio", "Sivu", "Aihe", "JaeID")],
# tags[c("Versio", "Sivu", "JaeID", "Result")]
#)
#colnames(tagged)[colnames(tagged) == "Result"] <- "Avainsana"
tagged <- tapply(tags$Result, tags[c("Versio", "Sivu", "JaeID")], paste, collapse = ", ")
tagged <- as.data.frame(as.table(tagged))
colnames(tagged)[colnames(tagged) == "Freq"] <- "Avainsanat"
tagged <- join(
jakeet[c("Versio", "Sivu", "JaeID", "Sisältö")],
tagged[c("Versio", "Sivu", "JaeID", "Avainsanat")],
type = "inner",
match = "first"
)
oprint(
tagged[c("Versio", "Sivu", "JaeID", "Sisältö", "Avainsanat")],
caption = "Jakeet",
caption.placement = "top",
include.rownames = FALSE,
digits = rep(0, 6)
)
}
}
}
if (nrow(tags) > 0) {
tags_out <- ddply(tags, "Result", nrow)
colnames(tags_out) <- c("Avainsana", "Lukumäärä")
tags_out <- tags_out[order(tags_out$Lukumäärä, decreasing = TRUE),]
oprint(
tags_out,
caption = "Avainsanojen lukumäärät",
caption.placement = "top",
include.rownames = FALSE,
digits = c(0, 0, 0)
)
ggplot(tags_out, aes(x = Avainsana, y = Lukumäärä, fill = Avainsana)) +
geom_bar(stat = "identity") +
theme_grey(base_size = 24) +
theme(axis.text.x = element_blank(), axis.title.x = element_blank()) +
ggtitle("Avainsanojen frekvenssit")
}
# Add previous and next versions to check for inclusion from previous and into next
original_version <- version
if (!(1 %in% version)) {
prev <- TRUE
version <- c(min(version, na.rm = TRUE) - 1, version)
}
version <- c(version, max(version, na.rm = TRUE) + 1)
filter3 <- list()
filter3$Sivu1 <- sivu
filter3$Versio <- version
filter3$JaeID1 <- jaeid
rel1 <- try_dl_rm(
paste(ident, "Relaatiot", sep = "."),
filter = filter3,
rm_id = paste(ident, "Relaationpoistot", sep = "."),
rm_ind = "RelaatioID"
)
if (is.null(jaeid)) {
rel2 <- data.frame()
} else {
filter3$JaeID1 <- NULL
filter3$Sivu1 <- NULL
filter3$JaeID2 <- jaeid
filter3$Sivu2 <- sivu
rel2 <- try_dl_rm(
paste(ident, "Relaatiot", sep = "."),
filter = filter3,
rm_id = paste(ident, "Relaationpoistot", sep = "."),
rm_ind = "RelaatioID"
)
}
rel <- rbind(rel1, rel2)
if (!any(original_version %in% rel$Versio)) stop("Annetuilla versiolla ei löytynyt relaatioita.")
if (nrow(rel) == 0) {
cat("Jakeelle ei löytynyt kysyttyjä relaatioita tietokannassa.\n")
} else {
related <- rel[
rel$Result %in% c(
"on neutraali suhteessa",
"on uusi linjaus tai painotus",
"tukee tai on linjassa",
"vastustaa tai on ristiriidassa"
), ]
related$Result <- as.character(related$Result)
affected <- rel[
rel$Result %in% c(
"ehdotus ei ole antanut aihetta muutoksiin",
"ehdotus ei ole antanut aihetta muutoksiin vaan sisältyy olennaisesti jo kirjattuun",
"ehdotus huomioitu ja liittyvää painotusta muutettu",
"ehdotus huomioitu ja uusi kohta lisätty"
), ]
affected$Result <- as.character(affected$Result)
affected$Result[affected$Result == "ehdotus ei ole antanut aihetta muutoksiin"] <- "Ei aihetta muutoksiin"
affected$Result[affected$Result == "ehdotus ei ole antanut aihetta muutoksiin vaan sisältyy olennaisesti jo kirjattuun"] <- "Sisältyy valmiiksi"
affected$Result[affected$Result == "ehdotus huomioitu ja liittyvää painotusta muutettu"] <- "Huomioitu painotuksella"
affected$Result[affected$Result == "ehdotus huomioitu ja uusi kohta lisätty"] <- "Huomioitu lisäyksellä"
related_out <- ddply(related, "Result", nrow)
colnames(related_out) <- c("Relaatio", "Lukumäärä")
affected_out <- ddply(affected, "Result", nrow)
colnames(affected_out) <- c("Sisällytys", "Lukumäärä")
}
if (nrow(related_out > 0)) {
ggplot(related_out, aes(x = Relaatio, y = Lukumäärä, fill = Relaatio)) +
geom_bar(stat = "identity") +
theme_grey(base_size = 24) +
theme(axis.text.x = element_blank(), axis.title.x = element_blank()) +
ggtitle("Relaatioiden frekvenssit")# + facet_wrap(~Sivu)
}
if (nrow(affected_out > 0)) {
ggplot(affected_out, aes(x = Sisällytys, y = Lukumäärä, fill = Sisällytys)) +
geom_bar(stat = "identity") +
theme_grey(base_size = 24) +
theme(axis.text.x = element_blank(), axis.title.x = element_blank()) +
ggtitle("Sisällytyksen frekvenssit")# + facet_wrap(~Sivu)
}
| |
Työkalut
Aineiston työstämiseen tarkoitettuja koodeja.
Jakeet
Jaehakukone
Hakee jakeita annetuilla kriteereillä. Näyttää myös tekniset sarakkeet. Vapaakenttiin voi laittaa useita arvoja erottelemalla ne pilkuilla.
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.
Jakeenpoistokone
Merkitsee jakeen epäkelvoksi, jolloin se jätetään näyttämättä kaikissa tämän sivun hakukoneissa.
Avainsanat
Avainsanahakukone
Hakee jaekohtaisia avainsanoja. Näyttää datan sellaisena kuin se on tietokannassa.
Avainsanoitus
Lisää annetut avainsanat tietokantaan. Avainanoja voidaan lisätä ruksaamalla annetusta listasta (vain yleisimmät) ja syöttämällä vapaakenttään pilkulla eroteltuna.
Avainsanan poisto
Merkitsee avainsanan epäkelvoksi, jolloin tämän sivun hakukoneet eivät näytä sitä.
Relaatiot
Relaatiohakukone
Hakee relaatioita joissa mahdollisesti annetut jakeet esiintyvät. Näyttää datan sellaisena kuin se on tietokannassa.
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.
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.
Relaation poisto
Merkitsee relaation/sisällytyksen epäkelvoksi, jolloin tämän sivun hakukoneet eivät näytä sitä.
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ä.
Näytä tulokset
+ Näytä koodi- Piilota koodi
library(OpasnetUtils)
library(plyr)
objects.latest("Op_fi4325", "apufunktiot")
mdat <- get_meta_data(ident)
a <- tolower(version) == "nykyinen"
if (any(a)) {
version <- version[!a]
version <- c(version, get_current_version(ident))
}
version <- as.numeric(version)
version <- c(version - 1, version)
jakeet <- jaehakukone(ident, versio = version)
ver1 <- jakeet[jakeet$Versio == version[1],]
ver2 <- jakeet[jakeet$Versio == version[2] & jakeet$Sivu == sivu,]
# adist too slow
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)
colnames(ver1)[colnames(ver1) == "Versio"] <- "Versio1"
colnames(ver1)[colnames(ver1) == "Sivu"] <- "Sivu1"
colnames(ver1)[colnames(ver1) == "JaeID"] <- "JaeID1"
colnames(ver1)[colnames(ver1) == "Result"] <- "Result1"
colnames(ver2)[colnames(ver2) == "Versio"] <- "Versio2"
colnames(ver2)[colnames(ver2) == "Sivu"] <- "Sivu2"
colnames(ver2)[colnames(ver2) == "JaeID"] <- "JaeID2"
colnames(ver2)[colnames(ver2) == "Result"] <- "Result2"
#out <- cbind(ver1[d_min <= toleranssi, ], ver2[d_out[d_min <= toleranssi], ])
d <- alply(d, 1, I)
d_tol <- llply(d, function(x) {x <= toleranssi})
d_reps <- laply(d_tol, sum)
d_w <- llply(d_tol, which)
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
)
}
| |
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)| Obs | Versio | Sivu | Ident | Result |
|---|
| 1 | 1 | Liikenne ja viestintä palveluna | Op_fi4248 | |
| 2 | 1 | Liikenteen palvelumarkkinat | Op_fi4253 | |
| 3 | 1 | Liikenteen energiareformi | Op_fi4254 | |
| 4 | 1 | Älykkäät käyttäjälähtöiset digitaaliset palvelut | Op_fi4255 | |
| 5 | 1 | Monipuoliset sisällöt | Op_fi4256 | |
| 6 | 1 | Oma Painotus Teema I | Op_fi4257 | |
| 7 | 1 | Digitaalinen tieto hyvinvoinnin ja kilpailuedun lähteenä | Op_fi4250 | |
| 8 | 1 | Käyttäjän oikeus omaan tietoonsa ja sen hyödyntämiseen | Op_fi4258 | |
| 9 | 1 | Luottamuksen palauttaminen internettiin | Op_fi4259 | |
| 10 | 1 | Datan liiketoiminta- ja käyttömahdollisuudet | Op_fi4260 | |
| 11 | 1 | Tieto ja digitalisaatio liikenteessä | Op_fi4261 | |
| 12 | 1 | Oma Painotus Teema II | Op_fi4262 | |
| 13 | 1 | Infrastruktuuri kasvun alustana | Op_fi4251 | |
| 14 | 1 | Toimintavarmuus ja turvallisuus | Op_fi4263 | |
| 15 | 1 | Liikenne- ja viestintäyhteydet | Op_fi4264 | |
| 16 | 1 | Arktinen strategia | Op_fi4265 | |
| 17 | 1 | Liikennejärjestelmän rahoitus ja taloudellinen ohjaus | Op_fi4266 | |
| 18 | 1 | Oma Painotus Teema III | Op_fi4267 | |
| 19 | 1 | Ympäristöministeriön tulevaisuuskatsaus | Op_fi4443 | 24666 |
| 20 | 2 | Liikenne ja viestintä palveluna | Op_fi4248 | |
| 21 | 2 | Liikenteen palvelumarkkinat | Op_fi4253 | |
| 22 | 2 | Liikenteen energiareformi | Op_fi4254 | |
| 23 | 2 | Älykkäät käyttäjälähtöiset digitaaliset palvelut | Op_fi4255 | |
| 24 | 2 | Monipuoliset sisällöt | Op_fi4256 | |
| 25 | 2 | Oma Painotus Teema I | Op_fi4257 | |
| 26 | 2 | Digitaalinen tieto hyvinvoinnin ja kilpailuedun lähteenä | Op_fi4250 | |
| 27 | 2 | Käyttäjän oikeus omaan tietoonsa ja sen hyödyntämiseen | Op_fi4258 | |
| 28 | 2 | Luottamuksen palauttaminen internettiin | Op_fi4259 | |
| 29 | 2 | Datan liiketoiminta- ja käyttömahdollisuudet | Op_fi4260 | |
| 30 | 2 | Tieto ja digitalisaatio liikenteessä | Op_fi4261 | |
| 31 | 2 | Oma Painotus Teema II | Op_fi4262 | |
| 32 | 2 | Infrastruktuuri kasvun alustana | Op_fi4251 | |
| 33 | 2 | Toimintavarmuus ja turvallisuus | Op_fi4263 | |
| 34 | 2 | Liikenne- ja viestintäyhteydet | Op_fi4264 | |
| 35 | 2 | Arktinen strategia | Op_fi4265 | |
| 36 | 2 | Liikennejärjestelmän rahoitus ja taloudellinen ohjaus | Op_fi4266 | |
| 37 | 2 | Oma Painotus Teema III | Op_fi4267 | |
| 38 | 2 | Ympäristöministeriön tulevaisuuskatsaus | Op_fi4443 | 24666 |
Linkkejä
