Liikenne ja viestintä digitaalisessa Suomessa 2020/Sisällönanalyysi

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.

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.

Minkä sivun jakeet haluat nähdä?: 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 + Näytä koodi- Piilota koodi library(OpasnetUtils) 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 = "") 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) } avainsanat <- opbase.data("Op_fi4362", 12794, subset = "Avainsanat", include = list(Sivu = sivu)) avainsanat$Jae <- toupper(avainsanat$Jae) avainsanat <- as.data.frame(as.table(tapply( avainsanat$Avainsana, INDEX = avainsanat[c("Sivu", "Jae")], FUN = function(x) {paste(x, collapse = ", ")} ))) 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)

Hae jakeen avainsanatietoja

Tässä voit antaa jakeen tunnisteen ja hakea jakeeseen liittyviä avainsanoja. 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.

Minkä sivun jakeen tietoja haluat tarkastella?: 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 Jae: + Näytä koodi- Piilota koodi library(OpasnetUtils) jaehakukone <- function(main_ident, series_id, page, page_ident, jaeid = NULL) { main_subset <- "jakeet" added_subset <- "jakeenlisays" deleted_subset <- "jakeenpoistot" comment_subset <- "kommentit" deleted_comment_subset <- "Kommenttipoistot" general_loc <- "Yleinen" dl <- TRUE filter <- list() filter$Sivu <- c(page, general_loc) if (!is.null(jaeid)){ a <- !grepl("^[a-zA-Z]", jaeid) if(sum(a) > 0) { filter$JaeID <- jaeid[a] } else { 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) ids <- paste("Op_fi", ids, sep = "") id <- ids[match(sivu, names)] jae <- jaehakukone("Op_fi4362", 12748, sivu, id, jaeid) jae <- jae[!colnames(jae) %in% c("Sivu", "JaeID")] 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 { cat("Avainsanat: ") cat(paste(as.character(tags$Avainsana), collapse = ", ")) cat("\n") }

Hae jakeen relaatiotietoja

Tässä voit antaa jakeen tunnisteen ja etsiä jakeen kytkentöjä eli relaatioita muihin jakeisiin. Voit rajata haun tiettyyn sivuun tai tietyntyyppiseen relaatioon.

Minkä sivun jakeen relaatioita haluat tarkastella?: 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 Jae: Miten jae liittyy haettaviin jakeisiin?: Kaikki Tukee tai on linjassa Vastustaa tai on ristiriidassa On neutraali suhteessa On uusi linjaus tai painotus Sisällytettiinkö jae tulevaisuuskatsauksen uuteen versioon?: Kaikki Ehdotus huomioitu ja liittyvää painotusta muutettu Ehdotus ei ole antanut aihetta muutoksiin Ehdotus ei ole antanut aihetta muutoksiin vaan sisältyy olennaisesti jo kirjattuun + Näytä koodi- Piilota koodi jaehakukone <- function(main_ident, series_id, page, page_ident, jaeid = NULL) { main_subset <- "jakeet" added_subset <- "jakeenlisays" deleted_subset <- "jakeenpoistot" comment_subset <- "kommentit" deleted_comment_subset <- "Kommenttipoistot" general_loc <- "Yleinen" dl <- TRUE filter <- list() filter$Sivu <- c(page, general_loc) if (!is.null(jaeid)){ a <- !grepl("^[a-zA-Z]", jaeid) if(sum(a) > 0) { filter$JaeID <- jaeid[a] } else { 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) 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, caption = "Liittyvät liittymä-/kohdejakeet", caption.placement = "top" ) } 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" ) } }

Hae sivun relaatiotietoja

Tässä etsiä sivun jakeiden kytkentöjä eli relaatioita muihin jakeisiin. Voit rajata haun tiettyyn sivuun tai tietyntyyppiseen relaatioon. Taulukko aukeaa uuteen ikkunaan.

Minkä sivun relaatioita haluat tarkastella?: 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 Miten jae liittyy haettaviin jakeisiin?: Kaikki Tukee tai on linjassa Vastustaa tai on ristiriidassa On neutraali suhteessa On uusi linjaus tai painotus Sisällytettiinkö jae tulevaisuuskatsauksen uuteen versioon?: Kaikki Ehdotus huomioitu ja liittyvää painotusta muutettu Ehdotus ei ole antanut aihetta muutoksiin Ehdotus ei ole antanut aihetta muutoksiin vaan sisältyy olennaisesti jo kirjattuun + Näytä koodi- Piilota koodi 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 = "") 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) }

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ä. ⇤--#: . Tähän voisi kehittää elegantimmankin ratkaisun. --Jouni Tuomisto (keskustelu) 18. heinäkuuta 2014 kello 05.04 (UTC) (type: truth; paradigms: science: attack)

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

Minkä sivun jakeita haluat tarkastella?: Kaikki 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 Mihin avainsanoihin liittyviä jakeita haluat tarkastella? (pilkulla eroteltuna useampia, tyhjä kenttä hakee kaikki): Haluatko nähdä kaikki löydetyt jakeet?: En Kyllä + Näytä koodi- Piilota koodi library(OpasnetUtils) 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() if (nchar(gsub(" ", "", avainsanat)) > 0) { filter$Avainsana <- strsplit(avainsanat, ",")[[1]] filter$Avainsana <- gsub("^\\s*|\\s*$", "", filter$Avainsana) } if (sivu != "kaikki") { filter$Sivu <- sivu }# else { # filter$Sivu <- names #} if (length(filter) == 0) filter <- NULL tags <- tryCatch( opbase.data("Op_fi4362", 12794, subset = "Avainsanat", include = filter), error = function(...) return(NULL) ) 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( opbase.data("Op_fi4362", 12749, subset = "jakeenlisays", include = filter2), error = function(...) return(NULL) ) 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) } } colnames(dat)[colnames(dat) == "JaeID"] <- "Jae" tagged <- NULL if (is.null(tags)) { oprint("Avainsanoja ei löytynyt") } else { tags$Avainsana <- gsub("^[ \t]+|[ \t]+$", "", tags$Avainsana) tagged <- merge(dat, tags[c("Jae", "Sivu", "Avainsana")]) if(jaelista) oprint(tagged, include.rownames = FALSE) tagged_out <- tapply(1:nrow(tagged), tagged$Avainsana, length) tagged_out[is.na(tagged_out)] <- 0 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( opbase.data("Op_fi4362", 12792, subset = "Relaatiot", include = filter2), error = function(...) return(NULL) ) related <- NULL affected <- NULL if(is.null(rel)) { oprint("Relaatiota ei löytynyt") } 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)) { related_out <- tapply(related$Result, related$Liittyminen, length) 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)) { affected_out <- tapply(affected$Result, affected$Sisällytys, length) affected_out[is.na(affected_out)] <- 0 affected_out <- data.frame(Sisällytys = names(affected_out), Result = affected_out) 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) }

Piirrä avainsanapilviä

Tässä voit valita yhden tai useamman sivun ja piirtää niissä esiintyvistä avainsanoista avainsanapilven eli tägipilven.

Minkä sivujen avainsanoja haluat tarkastella?: 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 + Näytä koodi- Piilota koodi library(OpasnetUtils) library(wordcloud) filter <- list() #if (nchar(gsub(" ", "", avainsanat)) > 0) { # filter$Avainsana <- strsplit(avainsanat, ",")[[1]] #} #if (sivu != "kaikki") { filter$Sivu <- sivu #} 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 )

Uusi systeemi

{{#opasnet_base_link:Op_fi4526}}

+ Näytä koodi- Piilota koodi library(OpasnetUtils) jakeet <- opbase.data(paste("Op_fi4362", "Jakeet", sep = "."), 12748) jakeet$Versio <- 1 temp <- jakeet[grep("^U", jakeet$JaeID),] temp <- jakeet[!(jakeet$Sivu %in% unique(as.character(temp$Sivu))),] temp$Versio <- 2 jakeet$Versio[grep("^U", jakeet$JaeID)] <- 2 jakeet$JaeID <- gsub("[A-Za-z]", "", as.character(jakeet$JaeID)) jakeet <- rbind(jakeet, temp) jakeet$Aihe <- NA opbase.upload( jakeet[c("Versio", "Sivu", "Aihe", "JaeID", "Result")], name = pagename, who = wiki_username, subset = "Jakeet" ) jaepois <- opbase.data(paste("Op_fi4362", "Jakeenpoistot", sep = ".")) #jaepois <- data.frame( # Versio = 0, # Sivu = NA, # Aika = date(), # Käyttäjä = wiki_username, # Syy = "Alustus", # 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 = ".")) #out <- data.frame( # Versio = 0, # Sivu = NA, # 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( jaelisa[c("Versio", "Sivu", "Aika", "Käyttäjä", "JaeID", "Result")], name = pagename, who = wiki_username, subset = "Jakeenlisaykset" ) avainsanat <- opbase.data(paste("Op_fi4362", "avainsanat", sep = ".")) #out <- data.frame( # AvainsanaID = NA, # Versio = 0, # Aika = date(), # Käyttäjä = wiki_username, # Sivu = NA, # JaeID = NA, # Result = "Alustus" #) avainsanat$AvainsanaID <- 1:nrow(avainsanat) 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$JaeID1 <- gsub("^[Uu]", "", as.character(rel$JaeID1)) rel$JaeID2 <- gsub("^[Uu]", "", as.character(rel$JaeID2)) rel$RelaatioID <- 1:nrow(rel) opbase.upload( rel, name = pagename, who = wiki_username, subset = "Relaatiot" ) #out <- data.frame( # Versio = 0, # Aika = date(), # Käyttäjä = wiki_username, # Syy = "Alustus", # Result = NA #) #opbase.upload( # out, # name = pagename, # subset = "Relaationpoistot", # who = wiki_username #) #out <- data.frame( # Versio = 0, # Aika = date(), # Käyttäjä = wiki_username, # Syy = "Alustus", # Result = NA #) #opbase.upload( # out, # name = pagename, # subset = "Avainsananpoistot", # who = wiki_username #)

Versiot

Versiot(OldID)

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

Jakeet

Kaikkien kenttien arvot saa erotella pilkuilla tässä haussa

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

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

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

Avainsanat

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

Minkä sivun jakeelle haluat lisätä avainsanoja?: 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 Mikä on jakeen versio?: Mikä on jakeen ID?: Valitse alla olevasta listasta yleisiä avainsanoja.: A Päätös (jae sisältää päätös- tai toimintaehdotuksen) B Vaikutus (jae kuvaa ilmiötä tai vaikutusta) C Arvo (jakeessa on arvoarvostelma tai kuvaa asian merkitystä) D Katsaustyön tekemiseen liittyvä E Ei mikään edellisistä (valitse ainakin yksi A-E) Laita halutessasi yllä listaamattomattomia avainsanoja tähän pilkulla eroteltuna.: + Näytä koodi- Piilota koodi avainsanat <- strsplit(avainsanat, ",", fixed = TRUE)[[1]] avainsanat <- gsub(" ", "", avainsanat) avainsanat <- avainsanat[nchar(avainsanat) > 0] avainsanat <- c(yl_avainsanat, avainsanat) if (length(avainsanat) == 0) stop("Yhtään avainsanaa ei annettu!") library(OpasnetUtils) objects.latest("Op_fi4325", "apufunktiot") if (tolower(version) == "nykyinen") { version <- get_current_version(ident) } else { version <- as.numeric(version) } dat <- data.frame( AvainsanaID = NA, Versio = version, Aika = date(), Käyttäjä = wiki_username, Sivu = sivu, JaeID = as.character(jae), Result = avainsanat ) ident.subset <- paste(ident, "Avainsanat", sep = ".") filter <- list() filter$Versio <- version upload_with_autoid( dat, ident.subset, id_name = "AvainsanaID", pagename = pagename, filter = filter ) cat("Avainsanojen lisääminen onnistui.\n")

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

Relaatiot

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

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

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

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

Kehittyneemmät hakukoneet

Hae jakeita ja niihin liittyviä avainsanoja

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

Hae relaatioita ja niihin kuuluvia jakeita

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

Analyysi

Minkä sivun jakeita haluat tarkastella?: Kaikki 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 Hae jakeita joilla on ainakin yksi seuraavista avainsanoista: Hae jakeita joilla on kaikki seuraavat avainsanat: Haluatko nähdä kaikki löydetyt jakeet?: En Kyllä Versio: + Näytä koodi- Piilota koodi library(OpasnetUtils) library(plyr) objects.latest("Op_fi4325", "apufunktiot") library(ggplot2) filter <- list() if (nchar(gsub(" ", "", avainsanat)) > 0) { avainsanat <- strsplit(avainsanat, ",")[[1]] avainsanat <- gsub("^\\s*|\\s*$", "", avainsanat) } else { avainsanat <- NULL } if (nchar(gsub(" ", "", avainsanat_all)) > 0) { avainsanat_all <- strsplit(avainsanat_all, ",")[[1]] avainsanat_all <- gsub("^\\s*|\\s*$", "", avainsanat_all) #filter$Avainsana <- avainsanat_all } else { avainsanat_all <- NULL } filter$Sivu <- sivu version <- gsub("^\\s*|\\s*$", "", strsplit(version, ",")[[1]]) a <- tolower(version) == "nykyinen" if (any(a)) { version <- version[!a] version <- c(version, get_current_version(ident)) } version <- as.numeric(version) filter$Versio <- version if (length(filter) == 0) filter <- NULL tags <- try_dl_rm( paste(ident, "Avainsanat", sep = "."), filter = filter, rm_id = paste(ident, "Avainsananpoistot", sep = "."), rm_ind = "AvainsanaID" ) jaeid <- NULL if (!is.null(avainsanat)|!is.null(avainsanat_all)) { tags <- tags[tags$Result %in% c(avainsanat, avainsanat_all), ] jaeid <- unique(as.character(tags$JaeID)) } if(!is.null(avainsanat_all)) { temp <- list() for (i in 1:nrow(jaeid)) { temp[[i]] <- avainsanat_all %in% tags$Result[tags$JaeID == jaeid[i]] } temp <- lapply(temp, all) jaeid <- jaeid[temp] tags <- tags[tags$JaeID %in% jaeid,] } if (nrow(tags) == 0) { cat("Avainsanoja ei löytynyt.\n") } if (is.null(filter)) { filter2 <- list() } else { filter2 <- filter } filter2$JaeID <- jaeid if (length(filter2) == 0) filter2 <- NULL if (jaelista) { jakeet <- jaehakukone( ident, sivu = filter2$Sivu, # *list$non-existent returns NULL versio = filter2$Versio, jae = filter2$JaeID ) if (nrow(jakeet) == 0) { cat("Avainsanoissa listattuja jakeita ei löytynyt.\n") } else { colnames(jakeet)[colnames(jakeet) == "Result"] <- "Sisältö" tagged <- NULL if (nrow(tags) > 0) { #tagged <- join( # jakeet[c("Versio", "Sivu", "Aihe", "JaeID")], # tags[c("Versio", "Sivu", "JaeID", "Result")] #) #colnames(tagged)[colnames(tagged) == "Result"] <- "Avainsana" tagged <- tapply(tags$Result, tags[c("Versio", "Sivu", "JaeID")], paste, collapse = ", ") tagged <- as.data.frame(as.table(tagged)) colnames(tagged)[colnames(tagged) == "Freq"] <- "Avainsanat" tagged <- join( jakeet[c("Versio", "Sivu", "Aihe", "JaeID")], tagged[c("Versio", "Sivu", "JaeID", "Avainsanat")], type = "inner", match = "first" ) oprint( tagged[c("Versio", "Sivu", "Aihe", "JaeID", "Sisältö", "Avainsanat")], caption = "Jakeet", caption.placement = "top", include.rownames = FALSE, digits = rep(0, 7) ) } } } 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" ), ] 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[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ä") 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) affected_out <- ddply(affected, "Result", nrow) colnames(affected_out) <- c("Sisällytys", "Lukumäärä") ggplot(affected_out, aes(x = Sisällytys, 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("Sisällytyksen frekvenssit")# + facet_wrap(~Sivu) }