Keskustelu:Liikenne ja viestintä digitaalisessa Suomessa 2020

Tämä sivu on tietokide alatyypiltään metodi. Sivutunniste: Op_fi4362
Moderaattori:Jouni (katso kaikki) Sivun edistymistä ei ole arvioitu. Arvostuksen määrää ei ole arvioitu (ks. peer review).
Lisää dataa {{#opasnet_base_link:Op_fi4362}}

Näytä tietyn sivun jakeet

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", 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", 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) } oprint(dat, show_all = TRUE)

Minkä sivun jakeen haluat poistaa?: 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 Yleinen Jakeen ID (voi laittaa pilkulla eroteltuna esim: 1,2,U1,U2): Poiston syy: + Näytä koodi- Piilota koodi library(OpasnetUtils) jaeid <- strsplit(jaeid, ",") jaeid <- unlist(jaeid) jaeid <- gsub(" ", "", jaeid) out <- data.frame(Sivu = sivu, Syy = syy, Result = as.character(jaeid)) opbase.upload( out, name = "Liikenne ja viestintä digitaalisessa Suomessa 2020", who = wiki_username, subset = "jakeenpoistot", act_type = "append" )

Mille sivulle haluat lisätä jakeen?: 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 Yleinen Jakeen sisältö: + Näytä koodi- Piilota koodi library(OpasnetUtils) datlisays <- tryCatch(opbase.data("Op_fi4362", subset = "jakeenlisays", include = list(Sivu = sivu)), error = function(...) return(NULL)) if (is.null(datlisays)) jaeid <- "L1" else jaeid <- paste("L", nrow(datlisays) + 1, sep = "") out <- data.frame(Sivu = sivu, JaeID = jaeid, Result = sisalto) opbase.upload( out, name = "Liikenne ja viestintä digitaalisessa Suomessa 2020", who = wiki_username, subset = "jakeenlisays", act_type = "append" )

+ Näytä koodi- Piilota koodi library(OpasnetUtils) #library(RCurl) #url <- "http://fi.opasnet.org/fi/Liikenne_ja_viestint%C3%A4_digitaalisessa_Suomessa_2020/Kommentit?action=render" #url <- "Liikenne_ja_viestint%C3%A4_digitaalisessa_Suomessa_2020/Kommentit?action=render" #a parse_page <- function(url, url_args = "", aggregate_url = FALSE) { turl <- paste(url, url_args, "&action=render", sep = "") a <- opasnet.page(turl, wiki = "opasnet_fi") b1 <- gregexpr("<p>", a)[[1]] b2 <- gregexpr("</p>", a)[[1]] #b1table <- gregexpr("<table", a)[[1]] #b2table <- gregexpr("</table>", a)[[1]] #b1th <- gregexpr("<th", a)[[1]] #b2th <- gregexpr("</th>", a)[[1]] #b1td <- gregexpr("<td", a)[[1]] #b2td <- gregexpr("</td>", a)[[1]] #b1tr <- gregexpr("<tr>", a)[[1]] #b2tr <- gregexpr("</tr>", a)[[1]] #par <- gregexpr("<p>(.*?)</p>", a)[[1]] table <- gregexpr("<table[^>]*>(.*?)</table>", a)[[1]] td <- gregexpr("<td[^>]*>(.*?)</td>", a)[[1]] #th <- gregexpr("<th[^>]*>(.*?)</th>", a)[[1]] table_out <- substr(rep(a, length(td)), td, td + attributes(td)$match.length) table_out <- gsub("<td[^>]*>", "", table_out) table_out <- gsub("</td>", "", table_out) #rowspan <- gregexpr("<td[^>]*rowspan=\"(.\\d?)\"[^>]*>", a)[[1]] #test <- substr(rep(a, length(td)), rowspan, rowspan + attributes(rowspan)$match.length) #theaders <- substr(rep(a, length(th)), th, th + attributes(th)$match.length) #theaders <- gsub("<th[^>]*>", "", theaders) #theaders <- gsub("</th>", "", theaders) #t1 <- gregexpr("<", "table_out") #t1l <- sapply(t1, length) #t1 <- unlist(t1)[cumsum(c(0, t1l) + 1)[-(length(t1l) + 1)]] # Break paragraphs inside of table cells into separate blocks #for (i in length) #tdp <- gregexpr("<p>(.*?)</p>", table_out) #tdpl <- sapply(tdp, length) #temp <- list() #temp2 <- list() #temp3 <- list() #for (i in (1:length(tdp))[tdpl > 1]) { # temp[[i]] <- substr(rep(table_out[i], length(tdp[[i]])), tdp[[i]], tdp[[i]] + attributes(tdp[[i]])$match.length) # temp2[[i]] <- tdp[[i]] + td[i] #} #temp <- unlist(temp) #temp2 <- unlist(temp2) # Break by paragraphs inside of table cells into separate blocks tdppos <- gregexpr("<p>(.*?)</p>", table_out) table_out <- gsub("<p>(.*?)</p>", "<super_separator>", table_out) tdp <- strsplit(table_out, "<super_separator>") tdpl <- sapply(tdp, length) temp <- list() for (i in (1:length(tdp))[tdpl > 1]) { temp[[i]] <- c(0, tdppos[[i]] + attributes(tdppos[[i]])$match.length) + td[i] #temp[[i]] <- temp[[i]][-length(temp[[i]])] } filter <- logical() for (i in 1:length(tdp)) { if (tdpl[i] == 1) val <- FALSE else val <- TRUE filter <- c(filter, rep(val, tdpl[i])) } tdp <- unlist(tdp)[filter] filter <- -(1:length(tdpl))[tdpl > 1] table_out <- table_out[filter] td <- td[filter] table_out <- c(table_out, tdp) td <- c(td, unlist(temp)) # Paste headers before cells #i <- 1 #j <- 1 #k <- 1 #while (1) { # t3 <- td > table[i] & td < c(table, Inf)[i + 1] & td[k] < c(table, Inf)[i + 1] # if (any(t3)) { # t2 <- th > table[i] & th < td[k] # if (any(t2)) { # # One row at a time # len <- sum(t2) # table_out[k:(k + len)] <- paste(theaders[t2], table_out[k:(k + len)]) # k <- k + len # } else { # k <- k + sum(t3) # } # } else { # i <- i + 1 # if (i == length(table)) break # } #} #sum(b1th > b1table & b1th < b1td) #b1li <- gregexpr("<li>", a) #b2li <- gregexpr("</li>", a) li <- gregexpr("<li>(.*?)</li>", a)[[1]] li_out <- substr(rep(a, length(li)), li, li + attributes(li)$match.length) li_out <- gsub("<li>", "", li_out) li_out <- gsub("</li>", "", li_out) #Filter out p inside table from p result (not necessary in current setup) #for (i in 1:length(table)) { # filter3 <- !(b1 > table[i] & b1 < table[i] + attributes(table)$match.length[i]) # b1 <- b1[filter3] # b2 <- b2[filter3] #} out <- substr(rep(a, length(b1)), b1 + 3, b2 - 1) #filter <- nchar(out) > 11 #out <- out[filter] out <- c(out, table_out, li_out) pos <- order(c(b1, td, li)) out <- out[pos] pos <- c(b1, td, li)[pos] filter <- nchar(out) > 11 out <- out[filter] pos <- pos[filter] #filter <- nchar(out) > 11 #out <- out[filter] if (aggregate_url) { b3 <- gregexpr("<h1>", a)[[1]] b4 <- gregexpr("</h1>", a)[[1]] #h <- gregexpr("<h1>(.*?)</h1>", a)[[1]] headers <- substr(rep(a, length(b3)), b3 + 4, b4 - 1) b5 <- gregexpr(">.*<", headers) out <- data.frame(Sivu = NA, JaeID = 0, Result = out) for (i in 1:length(headers)) { test <- TRUE while(test) { headers[i] <- substr(headers[i], b5[[i]][1] + 1, b5[[i]][1] + attributes(b5[[i]])$match.length[1] - 2) temp <- gregexpr(">.*<", headers[i])[[1]] if (attributes(temp)$match.length[1] > 0) b5[[i]] <- temp else test <- FALSE } filter2 <- pos < c(b3, Inf)[i + 1] & pos > b3[i] out$Sivu[filter2] <- headers[i] tempid <- 1:sum(filter2) if (0 %in% tempid) tempid <- NA out$JaeID[filter2] <- tempid } } else { out <- data.frame(Sivu = gsub("_", " ", url), JaeID = 1:length(out), Result = out) } out$JaeID <- as.character(out$JaeID) return(out) } names <- c( 'Liikenteen palvelumarkkinat', 'Liikenteen energiareformi', 'Älykkäät käyttäjälähtöiset digitaaliset palvelut', 'Monipuoliset sisällöt', 'Oma Painotus Teema I', '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', 'Toimintavarmuus ja turvallisuus', 'Liikenne- ja viestintäyhteydet', 'Arktinen strategia', 'Liikennejärjestelmän rahoitus ja taloudellinen ohjaus', 'Oma Painotus Teema III' ) url <- c( names, 'Liikenne ja viestintä palveluna', 'Liikenne ja viestintä palveluna', 'Digitaalinen tieto hyvinvoinnin ja kilpailuedun lähteenä', 'Digitaalinen tieto hyvinvoinnin ja kilpailuedun lähteenä', 'Infrastruktuuri kasvun alustana', 'Infrastruktuuri kasvun alustana' ) url <- gsub(" ", "_", url) url_args <- c(rep("", length(names)), "&oldid=22043", "", "&oldid=22044", "", "&oldid=22045", "") aggregate_url <- rep(FALSE, length(url)) old <- c(rep(TRUE, length(names)), TRUE, FALSE, TRUE, FALSE, TRUE, FALSE) out <- list() for (i in 1:length(url)) { out[[i]] <- parse_page(url[i], url_args[i], aggregate_url[i]) if (!old[i]) out[[i]]$JaeID <- paste("U", out[[i]]$JaeID, sep = "") } out2 <- out[[1]] for (i in 2:length(url)) { out2 <- rbind(out2, out[[i]]) } out <- out2 opbase.upload( out, name = "Liikenne ja viestintä digitaalisessa Suomessa 2020", who = wiki_username, subset = "jakeet" )

Syötä tägitietoja

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 JaeID? (voi erotella pilkulla esim. 1,2,3): Mikä on liittyvän jakeen 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 liittyvän jakeen JaeID?: Kuinka lähtöjae liittyy (LVM:n TUKA-esityksen) kohdejakeeseen?: - Valitse - tukee tai on linjassa vastustaa tai on ristiriidassa on neutraali suhteessa on uusi linjaus tai painotus kuuluu ryhmään/kokoelmaan Sisällytetäänkö ehdotus uuteen 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 VAPAAEHTOINEN Voit antaa oman jakeiden välisen relaation vapaakenttään.: + Näytä koodi- Piilota koodi library(OpasnetUtils) liittyminen <- ifelse(lisarelaatio == '', liittyminen, lisarelaatio) if(liittymasivu == "Sama") liittymasivu <- sivu obs <- opbase.data("Op_fi4362", subset = "Relaatiot")$Obs obs <- max(as.numeric(levels(obs)[obs])) jae <- strsplit(as.character(jae), ",") jae <- unlist(jae) jae <- gsub(" ", "", jae) dat <- data.frame( Obs = obs + 1, Aika = date(), Käyttäjä = wiki_username, Sivu = sivu, Jae = jae, Liittyminen = liittyminen, Sisällytys = sisallytys, Liittymäsivu = liittymasivu, Liittymäjae = as.character(liittymajae), Result = 1 ) opbase.upload(dat, ident = "Op_fi4362", subset = "Relaatiot", act_type = "append", name = "Liikenne ja viestintä digitaalisessa Suomessa", language = "fin", who = wiki_username) cat("Tägin lisääminen onnistui.\n") oprint(dat)

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 JaeID?: avainsanat: 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) Aurinko Automatisaatio Big Data Biopolttoaine Digitalisoituminen Eettisyys Elintaso Energia Erityisryhmät Esineiden internet Globaalius Hyvinvointi Hyvinvointiyhteiskunta Häiriöt Ilmasto Infrastruktuuri Internet Joukkoliikenne Julkinen valta Kansainvälisyys Kaupallisuus Kaupungit Kehitys Kestävyys Kevyen liikenteen väylät Kiinteistöt Kilpailu Kilpailukyky Konesalit Kotimaisuus Koulutus Kävely Laajakaista Lainsäädäntö Langattomuus Liikenne Liikkumistili Logistiikka Luonnonsuojelu Maakaasu Mobiiliverkko Ohjaus Ohjelmistotoimittaja Operaattori Osaaminen Ostovoima Palvelut Pilvipalvelut Posti Pyöräily Päivitys Päästöt Raha Rahoitus Rajapinnat Rakennemuutos Rautatiet Riippuvuus Robotisaatio Sähkö Sähköauto Sosiaali- ja terveysministeriö Strategia Suunnittelu Talous Talouskasvu Tarpeet Tehokkuus Tekniikkaneutraalius Tekninen tuki Terveydenhuolto Terveys Tiedon hyödyntäminen Tieliikenne Tietoliikenne Tietoturva Toiminta Toimintavarmuus Tuki Turvallisuus Turvaverkko Tuuli Työllisyys Ulkomaat Uudistus Vaihtoehtoiset polttoaineet Valinnanvapaus Verkostoituminen Vesiliikenne Viestintäverkot Yhteiskuntamurros Yhteistyö Yhteysnopeus Yksityisyydensuoja Yleispalvelu Ympäristöministeriö Yritykset Öljy VAPAAEHTOINEN: Anna lähtöjaetta kuvaava avainsana vapaakenttään.: + Näytä koodi- Piilota koodi library(OpasnetUtils) if(lisasana == '') {lisasana <- NULL; if(is.null(avainsanat)) avainsanat <- ''} obs <- opbase.data("Op_fi4362", subset = "Avainsanat")$Obs obs <- max(as.numeric(levels(obs)[obs])) dat <- data.frame( Obs = obs + 1, Aika = date(), Käyttäjä = wiki_username, Sivu = sivu, Jae = as.character(jae), Avainsana = c(avainsanat, lisasana), Result = 1 ) opbase.upload(dat, ident = "Op_fi4362", subset = "Avainsanat", act_type = "append", name = "Liikenne ja viestintä digitaalisessa Suomessa", language = "fin", who = wiki_username) cat("Avainsanojen lisääminen onnistui.\n") oprint(dat)

Hae jakeen tägitietoja

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) jae <- tryCatch( opbase.data("Op_fi4362", subset = "jakeet", include = list(Sivu = sivu, JaeID = jaeid)), error = function(...) return(NULL) ) if(!is.null(jae)) oprint(jae) rel1 <- tryCatch( opbase.data("Op_fi4362", subset = "Relaatiot", include = list(Sivu = sivu, Jae = jaeid)), error = function(...) return(NULL) ) rel2 <- tryCatch( opbase.data("Op_fi4362", 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 (nrow(rel) == 0) { oprint("Jakeella ei relaatioita tietokannassa.") } else { oprint("Jakeen relaatiot") oprint(rel) } tags <- tryCatch( opbase.data("Op_fi4362", subset = "Avainsanat", include = list(Sivu = sivu, Jae = jaeid)), error = function(...) return(NULL) ) if (is.null(tags)) { oprint("Jakeella ei ole avainsanoja tietokannassa") } else { oprint("Jakeen avainsanat") oprint(tags) }

Ohjeita

Työnjako

Tekijä	Sivu	Valmis?
Pauli	Liikenteen palvelumarkkinat	Valmis
Timo	Liikenteen energiareformi	Valmis
Matleena	Älykkäät käyttäjälähtöiset digitaaliset palvelut	Valmis
Tuukka	Monipuoliset sisällöt	Ei
Julia	Käyttäjän oikeus omaan tietoonsa ja sen hyödyntämiseen	Ei
Jaakko	Luottamuksen palauttaminen internettiin	Valmis
Vilma	Tieto ja digitalisaatio liikenteessä	Valmis
Matleena	Datan liiketoiminta- ja käyttömahdollisuudet	Valmis
Matleena	Toimintavarmuus ja turvallisuus	Valmis
Timo	Liikenne- ja viestintäyhteydet	Avainsanat syötetty
Jaakko	Arktinen strategia	Valmis
Matleena	Liikennejärjestelmän rahoitus ja taloudellinen ohjaus	Ei

←--#: . HUOM! Tägikone toimii nyt ja numeroituna on alkuperäinen ehdotus, käyttäjien lisäämät tekstit ja kommenttityökalulla annetut kommentit. Kommenttityökalulla annettujen numeron edessä on K, esim. K15. Jakeen ID on annettava tuossa muodossa tai se tulkitaan väärin. Saa syöttää tietoja! --Jouni Tuomisto (keskustelu) 11. kesäkuuta 2014 kello 20.56 (UTC) (type: truth; paradigms: science: defence)

----#: . Huom2! Keskiviikkona oli asiasana Tekninen jae merkkinä jakeille, joita ei näytetä. Nyt on sen sijaan käytössä jakeenpoistokone, johon merkitään sellaiset jakeet, jotka sisältävät vain teknistä tietoa mutta eivät sisältöä. Voit antaa monta numeroa kerralla R:n syntaksin mukaisesti, esim. c(1:4, 7, 11, "K3"). --Jouni Tuomisto (keskustelu) 11. kesäkuuta 2014 kello 20.56 (UTC) (type: truth; paradigms: science: comment)

----#: . Vaihdoin poiston syntaksin pilkulla erotteluksi (esim. 1,2,U1,U2) ennen kuin luin tänne sivua alaspäin... --Teemu R (keskustelu) 13. kesäkuuta 2014 kello 12.32 (UTC) (type: truth; paradigms: science: comment)

----#: . Huom3! Ole tarkkana, että aina valitset oikean sivun tägikoneeseen. Joka sivulla jakeet numeroidaan juoksevasti ykkösestä alkaen. Käytännössä tämä lienee helpointa tehdä niin, että avaat toiseen ikkunaan jaelistauksen ja toiseen ikkunaan tägikoneen ja asiasanoittimen. Näin näet yhtä aikaa että sama sivu on valittuna joka koneessa ja lisäksi on helpompi tarkistaa, että jakeen numero on oikein. --Jouni Tuomisto (keskustelu) 11. kesäkuuta 2014 kello 20.56 (UTC) (type: truth; paradigms: science: comment)

Ehdotuksia avainsanoiksi

Tähän voit listata uusia ehdotuksia avainsanoiksi. Ne jotka on nostettu tägikoneeseen poistetaan tästä, paitsi jos sanan käyttö vaatii selityksen.

Päätös

Jae sisältää päätös- tai toimintaehdotuksen.

Vaikutus

Jae kuvailee jotakin ilmiötä tai vaikutusta, jolle on nähtävissä syysuhde joko niin, että jokin päätös vaikuttaa siihen tai niin, että se vaikuttaa johonkin arvostettuun asiaan. Tässä syysuhteita täytyy arvioida liberaalisti eli lähtökohtaisesti oletetaan, että tällainen syysuhde on olemassa, vaikka käyttäjä ei asiaa selkeästi kuvaisikaan. Tägääjän on suositeltavaa lisätä jae, jossa tällainen implisiittinen suhde kuvataan auki, jos se on uskottavasti kuviteltavissa. Vain jos lukija ei pysty näkemään minkäänlaista vaikutussuhdetta lausuttuihin tai lausumattomiin päätöksiin tai arvioihin, jae merkitään roskaluokkaan D ei mikään edellisistä.

Arvo

Jae kuvailee jonkin asian tärkeyttä tai jotain asiaa siten, että asiayhteydestä voi päätellä sitä pidettävän tärkeänä. Myös pahat tai vältettävät asiat luokitellaan tähän, koska niilläkin on tärkeys (joskin "negatiivinen").

Katsaustyön tekemiseen liittyvä

Jae käsittelee tulevaisuuskatsaustyötä tai katsauksen laatua eikä siis itse asiaa eli tulevaisuuskatsauksen sisältöä.

Ei mikään edellisistä

rationaalisen keskustelun oletetaan käsittelevän vain asioita, jotka on luokiteltavissa noihin kolmeen luokkaan. Jos tägääjä ei parhaalla tahdollaankaan pysty ymmärtämään, miten jae voisi johonkin noista kolmesta luokasta, se merkitään tähän roskaluokkaan. Tarvittaessa voi kirjoittaa ja lisätä tietokantaan uuden jakeen, joka selventää asiayhteyttä ja luokituksen perusteita.

Lisää tähän ehdotuksia uusiksi avainsanoiksi:

Lisäksi useassa kohti kommentin yhteys alkuperäiseen asiaan ei oikeastaan ollut samaa mieltä, eri mieltä, eikä lisäävä, vaan ennemminkin asia, joka pitää muistaa ottaa huomioon päätöstä tehdessä. Olisiko "Huomioon otettava asia" tyhmä suhdekuvaus?

LVM:n uusi ohje

----#: . Kirjoita näistä johdonmukainen tiivistelmä! --Jouni Tuomisto (keskustelu) 3. kesäkuuta 2014 kello 13.52 (UTC) (type: truth; paradigms: science: comment)

Koko homma pitää kuitenkin tehdä ja julkaista ennen juhannusta ja tämä viikko menee sisällön tuottamiseen. Joten useamman ukon saa heittää projektiin jotta pysytään aikataulussa. Jos muodollisia sopimuksia ei saada aikaan niin nopeasti niin laskutetaan sitten vaikka jälkikäteen kunhan vaan hommat saadaan tehtyä.

Joo, luulen että tämä on järkevää. Näin me saisimme teknistä harjoitusta sisältöjen jäsentämisestä, ja teillä taas asiaa tuntevat tahot voisivat keskittyä substanssin kehittämiseen. Selvittelen tuota laskutusasiaa meidän puolelta, ei ole mitenkään harvinaista että THL laskuttaa ulkopuolisia tahoja. Näppituntuma on, että tämä on ehkä reilun henkilötyökuukauden mittainen homma.

LVM-porukat vaan tekisivät uudet tekstitaulukot ja upottaisivat viittausinformaation tekstiin ilman tägikonetta. Kesätyöntekijät syöttäisivät infon tägikoneeseen ja lyhentäisivät tekstit niin että tietokannasta voitaisiin generoida kieliopillisesti järkeviä lauseita jotka olisivat ihmisen luettavissa.

Tägitykseen ja tekstien luettavaksi tekemiseen olisi apuja mulla saatavilla jos FinICT-rahoista on luvallista maksaa THL:ssä parille kesähessulle parin päivän töistä. Rahaa kyllä on mutta en tiedä onko jotain sääntöjä jotka koskevat tämmöisen työn ostamista. Olisiko siis sellainen työjärjestely järkevä, että sinä ja Piia teette suoraan uudet teemataulukot (Piiahan jo aloitti hommansa) ilman tägikoneen käyttöä ja kun olette valmiit, kesätyöläiset tägittävät kommentit jälkeenpäin sekä kirjoittavat tekstilyhennelmät niin että järkeviä lukukelpoisia lauseita syntyy. Sitten sinä ja Piia kävisitte tulokset läpi ja korjaisitte mahdolliset virheet. Näin ette saa tenniskyynärpäätä. Itse asiassa virheiden määrä pienensi radikaalisti jos ensin vaivautuisitte vaan kirjoittamaan tunnusnumeron (juokseva numero) jokaisen loogiseksi kokonaisuudeksi katsomanne ehdotuksen eteen. Ihan siis tekstinä eikä tarvi siis käyttää tägikonetta. Sitten kirjottaisitte tekstinä ilman tägikonetta samaan tapaan uusiin teemalaatikoihin niiden ehdotusten numerot jotka ovat kyseiseen muutokseen johtaneet. Näin teidän ei tarvitsisi koskea tägikoneeseen ja kesätyöntekijät voisivat hoitaa tekstin osaksi kirjoittamanne numerot tägikoneeseen sekä lyhennellä tekstin niin että tietokanta generoi järkeviä lauseita. Miltä kuulostaa?

Joo, jotenkin näin sen näen myös. Tehtäisiinkö niin että LVM:n vastuulle jää uusien teemataulukoiden muotoilu kommenttien pohjalta. Niissä on sama rakenne kuin vanhassa mutta joidenkin painopisteiden sisältöteksti voi siis kommenteista riippuen jonkin verran muuttua. Lisäksi voi syntyä uusia painopisteitä jos järkeviä ideoita löytyy eikä niitä ollut alkuperäisessä LVMn esityksessä. Tägitys ja tekstien lyhentäminen niin että syntyy luettavia lauseita jäisi THLn vastuulle. Ainoa ongelma on että uusia teemataulukoita kirjoittaessaan LVMn edustajat jo yhdistelevät päässään ehdotuksia ja jos näitä linkkejä ja syitä niiden tekemiseen ei kerätä syntyhetkellä, ei logiikan löytäminen toisten toimesta ole ehkä aina kovin suoraviivaista. Jos tätä toimintatapaa käytettäisiin niin sitten pitäisi ainakin järjestää tarkistuskierros jossa helpolla työkalulla voisi muutoksen kirjannut henkilö myös korjata linkkivirheet.

Tulostuksesta: ei ole ylivoimaista rakentaa koodia, joka tuottaa tuollaisia virkkeitä suoraan koneellisesti nykyrakenteen mukaisesta tägikoneesta. Siinä kuitenkin on iso ongelma estetiikan kannalta: varsinaiset tuotoksethan on tehty mikä milläkin työkalulla: osa suoraan wikiin, osa kommentointityökalulla, osa isomman tekstipalan joukossa kopioitu wikisivulle. Pullonkaulaksi tässä siis muodostuu se, että vaikka tuommoinen virke kyllä saadaan tägikonedatalla muodostettua, siihen on tosi hankalaa kytkeä se varsinaisen tuotoksen alkuperäinen teksti (tai osa siitä) millään muulla tavalla kuin niin, että kaikki jakeet copy-pastataan kommentointityökaluun yksi kerrallaan ja sitten sieltä kutsutaan niitä osaksi muodostettuja virkkeitä. Jos tämän olisi ajatellut etukäteen, olisi ehkä kannattanut sallia ainoastaan kommentointityökalun käyttö muttei lainkaan wikityöskentelyä.

Tai sitten jonkun pitää tehdä käsityönä tuo tuotosten heittäminen tietokantaan. Miten haluatte? Minulla tämmöistä työvoimaa on irrotettavissa hetikin, jos haluatte tästä työstä maksaa. Toinen mahdollisuus on, että virkkeessä ei olekaan alkuperäistä kontribuutiota vaan linkki siihen. Tulosteen lukeminen on silloin hankalampaa, mutta dokumentointimielessä voi olla riittävää.

tänään en ehtinyt toteuttaa kaikkia tägikoneeseen liittyviä toivomuksia, enkä osannut tulostusta muuttaa. Jotenkin seuraava muoto olisi tulostukseen hyvä

Eli nykyinen versio inputteineen (joka löytyy pääsivun keskustelusivulta) on ok, mutta pitäisi voida linkittää alkuperäinen toimenpide-ehdotus (skenaariota edistyvä, uudistuva ja rohkea ei tarvi tässä vaiheessa eritellä) inputissa mainituilla verbeillä (tukee, vastustaa, on neutraali) siihen jakeeseen (toimenpide-ehdotukseen), joka kirjoitetaan nyt mahdollisesti uusiksi. Lisäksi olisi samalla rivillä nähtävä mikä oli ministeriön alkuperäinen ehdotus ja toimenpide, joka tehtiin (määritetään nyt inputissa, eli muutettiin, ei muutettu koska sisältyi jo tai ei tehty mitään). Eli tietokannan tuloste, joka nyt hajoaa usealle riville pitäisi jotenkin saada näyttämään seuraavalta

Käyttäjän ehdotus (jae 1) | tukee/vastustaa/on neutraali | Alkuperäinen LVM-ehdotus (jae 2) | Toimenpide (muutettiin/ei muutettu koska sisältyi/ei muutettu) | Uusittu LVM:n ehdotus (jae 3 = jakeen 1 modifioitu muoto)

Noita jae 3:ia ei siis vielä ole ennen kuin kontrollerit ovat saaneet Teemojen pääsivuilla olevat isot taulukot kirjoitettua kommenttien pohjalta uusiksi. Täytyy vaan tehdä

tägikoneeseen sloti niille. Lisäksi tägikoneessa pitäisi olla pari tyhjää slotia huomioille kuten nyt, jos tehdään uusi päivityskierros myöhemmin ja lisätään jotain infoa.

Tuossa tulostuksessa voisin kaivata jeesiä, muut kohdat sujunevat jos ehdin 16 jälkeen vielä palaveeriin, missä näitä katsotaan (vastustusta on koska klikkailua=tenniskyynärpäätä

seuraa jos jakeita alkaa käsipelillä lyhentelemään niin että yllä oleva lause on ihmisen mukava lukea… En keksinyt tähän muuta kuin että otetaa pari ekaa riviä joka jakeesta jos ne ovat kovin pitkiä)

Jounin vanha (ei vanhentunut) ohje

Nyt käytän nimitystä jae kuvaamaan yksittäistä kappaletta tai tekstipätkää, jossa toivottavasti on yksi kantava ajatus. Jakeet on numeroitu sivuittain siten, että ensin on väliotsikon numero, sitten kappaleen järjestysnumero alkaen väliotsikosta. Esimerkiksi sivulla http://fi.opasnet.org/fi/Liikenteen_palvelumarkkinat on nyt numeroituna jakeet 1.1, 2.1, ... 8.2.

Jakeita lisätään tekstiin yksinkertaisella mallineella Malline:Jae, jossa ainoa parametri on jakeen numero: {{jae|1.2}}

Jae on merkitty tekstiin kahdella symbolilla: alakärki ja yläkärki (nämä voi vapaasti vaihtaa eivätkä nämä ole kyllä kovin johdonmukaiset). Alakärjessä on kaksi toiminnallisuutta: kun vie hiiren sen päälle, se ilmoittaa hover boxissa jakeen numeron ja lyhyen selitystekstin (joka tosin ei ole kovin selkeä). Hover-toiminnallisuus toimii Malline:H:title-mallineella ja se on kuvattu [1]. Toinen toiminnallisuus on linkki, joka vie suoraan jakeen kohtaan ko. sivulla. Tämä perustuu span-tagin nimeämiseen ankkuriksi, katso tarkemmin Wikimediasta tai Wikipediasta.

Yläkärki on myös linkki. Se vie Tägikone-sivun alasivulle pikahaku. URLiin on piilotettu käsky ajaa sivulla oleva koodi käyttäen jakeen URLia parametrina. Koodi hakee automaattisesti tietokannasta kaikki tägit, jotka on kytketty ko. jakeeseen. Sivulla Tägikone on kaksi koodia, joista jälkimmäinen sama kuin pikahaussa, mutta tässä käyttäjän annetaan itse antaa jakeen tunniste ja painaa nappia koodin ajamiseksi. Ensimmäinen koodi on käyttöliittymä tägien antamiseksi jakeille. Jakeen tunnisteena käytetään URLia, jonka saa jakeen alussa olevasta ruutusymbolista (ks. yllä). avainsanoja voi valita kyhäämästäni lyhyestä listasta nolla tai useampia tai myös voi antaa vapaakenttään oman avainsanan. Jakeen voi myös merkitä liittyväksi johonkin toiseen jakeeseen, antamalla niiden välisen relaation (erittäin lyhyt ja puutteellinen lista mahdollisista relaatioista).

Lopputuloksena tietokantaan tallentuu taulua, jonka rakenne näkyy kokonaisuudessaan esimerkiksi tästä linkistä: [2]

Sarakkeet Obs ja Result ovat tällä hetkellä hyödyttömiä eikä niillä tehdä mitään. Ne ovat kuitenkin yhdenmukaisuuden vuoksi mukana.

Miltä näyttää? Ainakin avainsanat ja relaatiot pitäisi täydentää tolkullisiksi listoiksi. Edit-tilassa näitä asioita on helppo editoida itsekin; koodi on tältä osin aika itsensä selittävää. Niksi on yksinkertaisesti listata puolipisteellä erotettuna ensin se, mitä laitetaan tietokantaan 'hipsujen sisässä', sitten se minkä halutaan näkyvän käyttäjälle. Näitä pareja pistetään peräkkäin niin paljon kuin halutaan.