Strategiadatan analyysi

Tämä sivu on tietokide alatyypiltään arviointi. Sivutunniste: Op_fi4735
Moderaattori:Ei ole (katso kaikki) Kuinka ryhtyä moderaattoriksi? Sivun edistymistä ei ole arvioitu. Arvostuksen määrää ei ole arvioitu (ks. peer review).
Lisää dataa {{#opasnet_base_link:Op_fi4735}}

Linkkejä aineistoon

• 21 polkua kitkattomaan Suomeen - ICT 2015-työryhmän loppuraportti
• Asiakaspalvelu 2014 loppuraportti
• Julkisen hallinnon asiakkuusstrategia
• Julkisen hallinnon ICT:n hyödyntämisen strategia 2012-2020
• Kansallinen paikkatietostrategia
• Kohti esteetöntä tietoyhteiskuntaa toimenpideohjelma 2011-2015
• Kohti uutta liikennepolitiikkaa - Älyä liikenteeseen ja viisautta liikkujille
• KIDE-hanke
• Opetus- ja kulttuuriministeriön älystrategia
• Rakennepoliittinen ohjelma
• Sähköisen asioinnin ja demokratian vauhdittamisohjelman toteuttamissuunnitelma 2009-2014
• Tuottava ja uudistuva Suomi - Digitaalinen agenda vuosille 2011-2020
• Valtioneuvoston periaatepäätös julkisen sektorin digitaalisten tietoaineistojen saatavuuden parantamisesta ja uudelleenkäytön edistämisestä
• Valtioneuvoston periaatepäätös kansallisesta älyliikenteen strategiasta
• Valtioneuvoston periaatepäätös sähköisestä tunnistamisesta
• Valtioneuvoston periaatepäätös valtion pysyvien toimintamenosäästöjen aikaansaamisesta
• Vaikuttavuus- ja tuloksellisuusohjelma (VATU)
• Valtion_konesalistrategia_2014

Asiasanoitus ja relaatiot

YSO-pohjainen asiasanoitus

Yleiseen suomalaiseen ontologiaan pohjautuva asiasanoitus. Täydellinen listaus kategorian Viestintä. Tietoverkot. Tietotekniikka. asiasanoista löytyy laajennettavassa muodossa alta julkisen hallinnon ontologian JUHO:n alta:

Viestintä. Tietoverkot. Tietotekniikka.

Näytä yksityiskohdat

aikakauslehdet arkistoala arkistointi arkistokelpoisuus arkistonmuodostussuunnitelma arkistot arkistotoimi artikkelit arvostelu asiakirjahallinto asiakirjajulkisuus asiakirjaoppaat asiakirjat asiankäsittely asiankäsittelyjärjestelmät asiantuntijajärjestelmät asiasanastot asiointi atk atk-järjestelmät atk-laitteet atk-ohjelmat atk-rikokset audiovisuaalinen aineisto audiovisuaalinen ala audiovisuaalinen laitteisto audiovisuaalinen oppimateriaali audiovisuaalinen politiikka audiovisuaalinen viestintä audiovisuaaliset opetusvälineet audiovisuaaliset palvelut automaatio automaattiset koneet avoin lähdekoodi CD-ROM-levyt digitaalinen tallennus digitaaliradio digitaaliset tallenteet digitaalitekniikka digitaalitelevisio dokumentinhallinta dokumentointi ekstranet elektroniikka-ala elektroniset kirjastot elokuvakasvatus esiintymistaito esitteet etäkäyttö Excel FOCUS Galileo grafiikka GSM hakemistot hakkerointi hakuteokset HTML hydrologia hypermedia hyperteksti hätätiedotteet ilmaisukasvatus ilmaisuvapaus ilmoitukset informaatio informaatiolukutaito informaatiopolitiikka Internet intranet ISDN joukkoviestimet joukkoviestintä journalismi juhlajulkaisut julkaiseminen julkaisut julkaisutoiminta jäljennökset kaapelilähetystoiminta kaapelitelevisio kansallisarkistot kansalliskirjastot katselutottumukset kaukopuhelut kausijulkaisut keskuskirjastot kielikasetit kirjaaminen kirjallinen viestintä kirjastoaineistot kirjastoala kirjastoautot kirjastoluettelot kirjastonhoito kirjastonkäyttö kirjastopalvelut kirjastopolitiikka kirjastorakennukset kirjastot kirjastotoimi kirjastotyö kirjat kirjeet komiteanmietinnöt kopiointi kotiseutuarkistot kotisivu koulukirjastot kriisiviestintä kryptografia kulttuurilehdet kustannustoiminta kustantajat kuuntelutottumukset kuva-arkistot kuvankäsittely kuvateokset käyttäjäkoulutus käyttöjärjestelmät käyttöliittymät laajakaistaverkot lastenkirjastot lehdistö lehdistötuki liikennetiedotus lomakkeet luettelointisäännöt luokitusjärjestelmät lähiverkot maakunta-arkistot maakuntakirjastot matkapuhelimet matkaviestimet matkaviestintä matkaviestinverkot matrikkelit media-ala mediakasvatus mediakulttuuri medialukutaito mediataide metadata mielikuvat mietinnöt mikrotietokoneet mobiililaitteet mobiilipalvelut multimedia musiikkikirjastot nauhoitus nettivalvonta näkyvyysalueet näyttelytilat ohjelmatuotanto ohjelmavälitys ohjelmointi oikeusinformatiikka organisaatioiden välinen tiedonsiirto organisaatioviestintä paikallislehdet paikallispuhelut paikallisradio paikallistelevisio painomenetelmät painotuotteet painovapaus palvelimet pelastussukellus portaalit posti postimaksut postimerkit postinjakelu postipalvelut postitoimipaikat propaganda puhelimet puhelinliikenne puhelinluettelot puhelinpalvelut puhelinsalaisuus puhelinverkot puheviestintä päätteet radio radio-ohjelmat radioasemat radiot radiotaajuudet raportit raportointi raportointijärjestelmät rekisterit salakielet salakuuntelu salaustekniikat sanomalehdet sarjakuvat satelliitit satelliittitelevisio selaimet SGML sisäinen tiedotus sisältötuotanto sosiaalinen media suhdetoiminta sähköinen allekirjoitus sähköinen arkistointi sähköinen asiointi sähköinen joukkoviestintä sähköinen tunnistaminen sähköinen viestintä sähköiset asiakirjat sähköiset henkilökortit sähköiset julkaisut sähköiset lomakkeet sähköiset maksujärjestelmät sähköiset palvelut sähköiset sopimukset sähköposti taajuusalueet tallenteet taulukkolaskenta tekstinkäsittely telehallinto telelaitokset telemaksut telemarkkinat telematiikka telepalvelut telepolitiikka telepäätelaitteet teletoiminta televisio televisio-ohjelmat televisiolupamaksut televisiot teräväpiirtotelevisio tiedonannot tiedonhaku tiedonhakujärjestelmät tiedonhallinta tiedonhankinta tiedonkulku tiedonlähteet tiedonsiirto tiedontallennus tiedonvaihto tiedonvälitys tiedotteet tiedotus tieteellinen julkaisutoiminta tieteellinen kirjoittaminen tieteelliset kirjastot tieto tieto- ja viestintätekniikka tietoarkistot tietohallinto tietohuolto tietojenkäsittely tietojärjestelmät tietokannat tietokoneavusteinen opetus tietokoneavusteiset järjestelmät tietokoneen ajokorttitutkinto tietokoneet tietokonevirukset tietoliikenne tietoliikennejärjestelmät tietoliikennetekniikka tietoliikenneverkot tietopalvelu tietostrategia tietosuoja tietotekniikka tietoteollisuus tietoturva tietotyö tietovarannot tietoverkot tietoyhteiskunta tietämyksenhallinta toimikortit toimistotekniikka UMTS UNIX uusmedia (media-ala) uutiset uutistoimistot valokuvat vapaakappaleet varmenteet verkko-opetus verkko-opiskelu verkko-oppimateriaali verkkojulkaiseminen verkkojulkaisut verkkokauppa verkkolehdet verkkopalvelut verkkotunnukset verkkoviestintä verkostoyhteistyö video videotaide viestintä viestintäala viestintäkampanjat viestintäkasvatus viestintäkulttuuri viestintäpalvelut viestintäpolitiikka viestintätekniikka viestintäteollisuus viestintäverkot viestintävälineet viihdeteollisuus viitetietokannat virallisjulkaisut virtuaalikirjastot virtuaalitodellisuus virustentorjuntaohjelmat visuaalinen viestintä wikit Windows Word for Windows WordPerfect www-sivut yhdistetty avoin tieto yksityisarkistot YLE yleinen mielipide yleiset kirjastot yleisradiotoiminta yleisö yliopistokirjastot älypuhelimet äänikirjat äänitteet

Aluehallinto. Aluepolitiikka.

Näytä yksityiskohdat
infrastruktuurit, kaupungit, osaamiskeskukset

Elinkeinot. Teollisuus. Kilpailu

Näytä yksityiskohdat
elinkaarianalyysi, elinkeinopolitiikka, elinkeinorakenne, julkiset hankinnat, kaapeliteollisuus, kannattavuus, kansainväliset yritykset, kehittämishankkeet, kilpailuetu, kilpailukyky, kilpailuttaminen, kulutushyödykkeet, liiketoiminta, rakennemuutos, robotit, siemenrahoitus, taksit, teknologiayritykset, tukimuodot, tuotekehitys, verkkoliiketoiminta, viestintäteollisuus, yksityinen sektori

Hallinto. Johtaminen. Henkilöstö.

Näytä yksityiskohdat
allekirjoittaminen, hallinnonalan kehittäminen, hallinnonalan ohjaus, hallintopalvelut, tulosjohtaminen, muutosjohtaminen, prosessijohtaminen, johtamisjärjestelmät, ohjaus (neuvominen) ohjausjärjestelmät

Lisää tähän omia ehdotuksia asiasanoiksi

päätavoite, tavoite, toimenpide

Lisää tähän omia ehdotuksia relaatioiksi

liittyy, edellyttää, sisältää, vaikuttaa

Tägikone

Käyttöohje

Tägikoneen idea on pitää yllä jaetietokantaa ja määritellään jakeille avainsanoja ja relaatoita joiden tarkoitus on rikastaa sivustolla käydystä keskustelusta analyysikelpoista yleisemmän tason tietoa.

#Jakeet määritellään koodilla joka lukee wikisivuilta tekstiä kappaleittain (myös taulukot ja bullet pointit). Jakeisiin lisätään myös kommentointityökalulla tehdyt kommentit, joita ei vielä ole siirretty wikitekstiin, sekä tämän sivun koodilla lisätyt jakeet. Kullakin jakeella on oma tunniste (JaeID) joka on sivukohtainen. Etsimällä jaehakukoneesta oman kommenttisi ja kopioimalla JaeID:n muihin sivun hakukoneisiin voit tarkastella kommenttiisi liitettyjä tägitietoja.

#Avainsanat ovat jaekohtaisia ja ne lisätään yleensä käsityönä. Avainsanoituksen tekee joko kommentoija itse tai moderaattori.

#Relaatiot voidaan määritellä kahden jakeen välille (myös käsityötä). Relaatiot lisää joko kommentoija itse tai moderaattori.

#Versiot - wikisivuja päivitetään mahdollisesti jatkuvasti, minkä johdosta versiointi on tarpeellista. Hakukoneissa esiintyvä Versio-kentän arvo 'nykyinen' hakee koko hankkeen uusimman version. Koska jakeet ovat versiokohtaisia niin avainsanat ja relaatiot ovat myös versiokohtaisia. Avainsanojen ja relaatioiden automaattista periytymistä on kehitetty, mutta koodi on vielä kesken .

Versiot

Versiot(OldID)

Obs	Versio	Sivu	Ident	Result
1	1	21 polkua kitkattomaan Suomeen - ICT 2015-työryhmän loppuraportti	Op_fi4748
2	1	Asiakaspalvelu 2014 loppuraportti	Op_fi4751
3	1	Julkisen hallinnon asiakkuusstrategia	Op_fi4746
4	1	Julkisen hallinnon ICT:n hyödyntämisen strategia 2012-2020	Op_fi4734
5	1	Kansallinen paikkatietostrategia	Op_fi4744
6	1	Kohti esteetöntä tietoyhteiskuntaa toimenpideohjelma 2011-2015	Op_fi4736
7	1	Kohti uutta liikennepolitiikkaa - Älyä liikenteeseen ja viisautta liikkujille	Op_fi4740
8	1	KIDE-hanke	Op_fi4750
9	1	Opetus- ja kulttuuriministeriön älystrategia	Op_fi4742
10	1	Rakennepoliittinen ohjelma	Op_fi4749
11	1	Sähköisen asioinnin ja demokratian vauhdittamisohjelman toteuttamissuunnitelma 2009-2014	Op_fi4743
12	1	Tuottava ja uudistuva Suomi - Digitaalinen agenda vuosille 2011-2020	Op_fi4739
13	1	Valtioneuvoston periaatepäätös julkisen sektorin digitaalisten tietoaineistojen saatavuuden parantamisesta ja uudelleenkäytön edistämisestä	Op_fi4737
14	1	Valtioneuvoston periaatepäätös kansallisesta älyliikenteen strategiasta	Op_fi4738
15	1	Valtioneuvoston periaatepäätös sähköisestä tunnistamisesta	Op_fi4741
16	1	Valtioneuvoston periaatepäätös valtion pysyvien toimintamenosäästöjen aikaansaamisesta	Op_fi4745
17	1	Vaikuttavuus- ja tuloksellisuusohjelma (VATU)	Op_fi4747
18	1	Valtion_konesalistrategia_2014	Op_fi4724

Jakeiden päivitys

Päivitä Versiot-tauluun sivut ja ikilinkin IDt ja aja alla oleva koodi --Smxb (keskustelu) 14. joulukuuta 2014 kello 21.33 (UTC)ÄLÄ PÄIVITÄ JAKEITA TOISTAISEKSI!

+ Näytä koodi- Piilota koodi library(OpasnetUtils) objects.latest("Op_fi4325", "apufunktiot") versiot <- get_meta_data(ident) #version <- max(as.numeric(as.character(versiot$Versio))) #names <- as.character(versiot$Sivu[versiot$Versio == version]) url <- gsub(" ", "_", versiot$Sivu) old_id <- versiot$Result old_id <- paste("&oldid=", old_id, sep = "") out <- data.frame() for (i in 1:length(url)) { temp <- parse_page(url[i], old_id[i], res = "sentence") temp$Sivu <- versiot$Sivu[i] temp$Versio <- versiot$Versio[i] out <- rbind(out, temp) } #out$Versio <- version out <- out[c("Versio", "Sivu", "Aihe", "JaeID", "Result")] opbase.upload( out, name = pagename, who = wiki_username, subset = "Jakeet" )

Yhdistelmähakukoneet

Jaekohtainen avainsanalistaus

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

Sivu jolta jakeita haetaan: Kaikilta 21 polkua kitkattomaan Suomeen - ICT 2015-työryhmän loppuraportti Asiakaspalvelu 2014 loppuraportti Julkisen hallinnon asiakkuusstrategia Julkisen hallinnon ICT:n hyödyntämisen strategia 2012-2020 Kansallinen paikkatietostrategia Kohti esteetöntä tietoyhteiskuntaa toimenpideohjelma 2011-2015 Kohti uutta liikennepolitiikkaa - Älyä liikenteeseen ja viisautta liikkujille KIDE-hanke Opetus- ja kulttuuriministeriön älystrategia Rakennepoliittinen ohjelma Sähköisen asioinnin ja demokratian vauhdittamisohjelman toteuttamissuunnitelma 2009-2014 Tuottava ja uudistuva Suomi - Digitaalinen agenda vuosille 2011-2020 Valtioneuvoston periaatepäätös julkisen sektorin digitaalisten tietoaineistojen saatavuuden parantamisesta ja uudelleenkäytön edistämisestä Valtioneuvoston periaatepäätös kansallisesta älyliikenteen strategiasta Valtioneuvoston periaatepäätös sähköisestä tunnistamisesta Valtioneuvoston periaatepäätös valtion pysyvien toimintamenosäästöjen aikaansaamisesta Vaikuttavuus- ja tuloksellisuusohjelma (VATU) Valtion_konesalistrategia_2014 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 { # Yhdistetään kunkin jakeen avainsanat yhdelle riville tags <- ddply( tags, c("Versio", "Sivu", "JaeID"), function(x) {a <- x[1,];a$Avainsanat <- paste(x$Result, collapse = ", ");return(a)} ) out <- join( out[c("Versio", "Sivu", "JaeID", "Result")], tags[c("Versio", "Sivu", "JaeID", "Avainsanat")], by = c("Versio", "Sivu", "JaeID"), type = "inner", match = "first" ) # Jos annettiin vain yksi versio ja/tai sivu niin niitä ei tarvitse printata filter_ind <- NULL if (length(version) != 1) filter_ind <- c(filter_ind, "Versio") if (length(sivu) != 1) filter_ind <- c(filter_ind, "Sivu") filter_ind <- c(filter_ind, "JaeID") oprint( out[c(filter_ind, "Result", "Avainsanat")], include.rownames = FALSE, show_all = TRUE ) }

Jae-relaatio-jae listaus

Hakee jakeita ja niihin liittyviä toisia jakeita listaten myös relaation tyypin

Sivu jolta relaatioita haetaan: Kaikilta 21 polkua kitkattomaan Suomeen - ICT 2015-työryhmän loppuraportti Asiakaspalvelu 2014 loppuraportti Julkisen hallinnon asiakkuusstrategia Julkisen hallinnon ICT:n hyödyntämisen strategia 2012-2020 Kansallinen paikkatietostrategia Kohti esteetöntä tietoyhteiskuntaa toimenpideohjelma 2011-2015 Kohti uutta liikennepolitiikkaa - Älyä liikenteeseen ja viisautta liikkujille KIDE-hanke Opetus- ja kulttuuriministeriön älystrategia Rakennepoliittinen ohjelma Sähköisen asioinnin ja demokratian vauhdittamisohjelman toteuttamissuunnitelma 2009-2014 Tuottava ja uudistuva Suomi - Digitaalinen agenda vuosille 2011-2020 Valtioneuvoston periaatepäätös julkisen sektorin digitaalisten tietoaineistojen saatavuuden parantamisesta ja uudelleenkäytön edistämisestä Valtioneuvoston periaatepäätös kansallisesta älyliikenteen strategiasta Valtioneuvoston periaatepäätös sähköisestä tunnistamisesta Valtioneuvoston periaatepäätös valtion pysyvien toimintamenosäästöjen aikaansaamisesta Vaikuttavuus- ja tuloksellisuusohjelma (VATU) Valtion_konesalistrategia_2014 Anna halutessasi jakeen ID(:t): Liittymistyyppi (tyhjä = kaikki): Tukee tai on linjassa Vastustaa tai on ristiriidassa On neutraali suhteessa On uusi linjaus tai painotus Ehdotus huomioitu ja liittyvää painotusta muutettu Ehdotus huomioitu ja uusi kohta lisätty Ehdotus ei ole antanut aihetta muutoksiin Ehdotus ei ole antanut aihetta muutoksiin vaan sisältyy olennaisesti jo kirjattuun Versio: Näytetäänkö tekniset yksityiskohdat?: Ei, vain jakeiden sisältö Kyllä, myös jakeiden numerot + Näytä koodi- Piilota koodi # Eri sisältymistyypit pitää määritellä niin että ne voidaan käsitellä erillään muista relaatioista sis_opt <- c( 'ehdotus huomioitu ja liittyvää painotusta muutettu', 'ehdotus huomioitu ja uusi kohta lisätty', 'ehdotus ei ole antanut aihetta muutoksiin', 'ehdotus ei ole antanut aihetta muutoksiin vaan sisältyy olennaisesti jo kirjattuun' ) #liit_opt <- c( # 'tukee tai on linjassa', # 'vastustaa tai on ristiriidassa', # 'on neutraali suhteessa', # 'on uusi linjaus tai painotus' #) library(OpasnetUtils) library(plyr) objects.latest("Op_fi4325", "apufunktiot") # Erottelu pilkuilla ja välilyöntien poisto if (!is.null(sivu)) sivu <- gsub("^\\s*|\\s*$", "", strsplit(sivu, ",")[[1]]) if (tolower(jaeid == "hae kaikki")) { jaeid <- NULL } else { jaeid <- gsub("^\\s*|\\s*$", "", strsplit(jaeid, ",")[[1]]) } version <- gsub("^\\s*|\\s*$", "", strsplit(version, ",")[[1]]) a <- tolower(version) == "nykyinen" if (any(a)) { version <- version[!a] version <- c(version, get_current_version(ident)) } version <- as.numeric(version) # Add previous and next versions to check for inclusion from previous and into next original_version <- version if (!(1 %in% version)) { prev <- TRUE version <- c(min(version, na.rm = TRUE) - 1, version) } version <- c(version, max(version, na.rm = TRUE) + 1) filter <- list() filter$Sivu1 <- sivu filter$Versio <- version filter$JaeID1 <- jaeid rel1 <- try_dl_rm( paste(ident, "Relaatiot", sep = "."), filter = filter, rm_id = paste(ident, "Relaationpoistot", sep = "."), rm_ind = "RelaatioID" ) if (is.null(jaeid)) { rel2 <- data.frame() } else { filter$JaeID1 <- NULL filter$Sivu1 <- NULL filter$JaeID2 <- jaeid filter$Sivu2 <- sivu rel2 <- try_dl_rm( paste(ident, "Relaatiot", sep = "."), filter = filter, rm_id = paste(ident, "Relaationpoistot", sep = "."), rm_ind = "RelaatioID" ) } rel <- rbind(rel1, rel2) if (!any(original_version %in% rel$Versio)) stop("Annetuilla versiolla ei löytynyt relaatioita.") if (!is.null(liitsis)) rel <- rel[rel$Result %in% liitsis, ] if (nrow(rel) == 0) { cat("Jakeelle ei löytynyt kysyttyjä relaatioita tietokannassa.\n") } else { jakeet <- jaehakukone( ident, sivu = unique(c( as.character(rel$Sivu1), as.character(rel$Sivu2) )), versio = version, jae = unique(c( as.character(rel$JaeID1), as.character(rel$JaeID2) )) ) if (nrow(jakeet) == 0) stop("Relaatioissa listattuja jakeita ei löytynyt!") # Relaatiot if (nrow(rel[!(rel$Relaatio %in% sis_opt),]) > 0) { jakeet <- jakeet[c("Versio", "Sivu", "JaeID", "Result")] colnames(jakeet)[colnames(jakeet) == "JaeID"] <- "JaeID1" colnames(jakeet)[colnames(jakeet) == "Sivu"] <- "Sivu1" colnames(jakeet)[colnames(jakeet) == "Result"] <- "Jae1" rel <- rel[c("RelaatioID", "Versio", "Sivu1", "JaeID1", "Result", "Sivu2", "JaeID2")] colnames(rel)[colnames(rel) == "Result"] <- "Relaatio" out <- join( rel[(!(rel$Relaatio %in% sis_opt)) & rel$Versio %in% original_version,], jakeet, match = "first" # versio - sivu - jaeid -> yksi yhteen ) colnames(jakeet)[colnames(jakeet) == "JaeID1"] <- "JaeID2" colnames(jakeet)[colnames(jakeet) == "Sivu1"] <- "Sivu2" colnames(jakeet)[colnames(jakeet) == "Jae1"] <- "Jae2" out <- join(out, jakeet, match = "first") if(details) { oprint( out[c("Versio", "RelaatioID", "Sivu1", "JaeID1", "Jae1", "Relaatio", "Sivu2", "JaeID2", "Jae2")], include.rownames = FALSE, caption = "Relaatiot", caption.placement = "top", show_all = TRUE ) } else { temp <- out[c("Versio", "RelaatioID", "Sivu1", "JaeID1", "Jae1", "Relaatio", "Sivu2", "JaeID2", "Jae2")] temp <- data.frame( Jae1 = paste(temp$Jae1, " (", temp$Sivu1, ")", sep = ""), Relaatio = temp$Relaatio, Jae2 = paste(temp$Jae2, " (", temp$Sivu2, ")", sep = "") ) oprint(temp, include.rownames = FALSE, caption = "Relaatiot", caption.placement = "top", show_all = TRUE ) } } else { cat("Ei relaatioita!\n") } # Sisällytykset if (nrow(rel[(rel$Relaatio %in% sis_opt),]) > 0) { colnames(jakeet)[colnames(jakeet) %in% c("JaeID","JaeID2")] <- "JaeID1" colnames(jakeet)[colnames(jakeet) %in% c("Sivu", "Sivu2")] <- "Sivu1" colnames(jakeet)[colnames(jakeet) %in% c("Result", "Jae2")] <- "Jae1" colnames(rel)[colnames(rel) == "Relaatio"] <- "Sisällytys" out <- join( rel[rel$Sisällytys %in% sis_opt & rel$Versio %in% version[-length(version)],], jakeet, match = "first" # versio - sivu - jaeid -> yksi yhteen ) colnames(jakeet)[colnames(jakeet) == "JaeID1"] <- "JaeID2" colnames(jakeet)[colnames(jakeet) == "Sivu1"] <- "Sivu2" colnames(jakeet)[colnames(jakeet) == "Jae1"] <- "Jae2" jakeet$Versio <- as.numeric(as.character(jakeet$Versio)) - 1 out <- join(out, jakeet, match = "first") oprint( out[c("Versio", "RelaatioID", "Sivu1", "JaeID1", "Jae1", "Sisällytys", "Sivu2", "JaeID2", "Jae2")], include.rownames = FALSE, caption = "Sisällytys (uudempaan versioon)", caption.placement = "top", show_all = TRUE ) } else { cat("Ei sisällytyksiä!\n") } }

Avainsana- ja relaatiotietojen analyysi

Hae jakeita annetuilla kriteereillä ja vertaile avainsanojen ja relaatioiden lukumääriä. Halutessasi voit myös listata jaeosumat. Vapaakenttiin voi syöttää useita arvoja erottelemalla ne pilkuilla.

Käytetyt avainsanat:

Näytä yksityiskohdat

3D-tulostus Aikataulut Ajoneuvokanta Alueellisuus alustus Ammattiryhmät Arvo Asutus Aurinko Automatisaatio Avoimuus Big Data Biopolttoaine Dataliikenne Digitalisoituminen Eettisyys eIDAS Elintaso Energia Epäselvä luokka Eriarvoisuus Erityisryhmät Esineiden internet Globaalius Globaaluis Henkilökortti Henkilötiedot Huutokauppa Hybridi Hybridi-TV Hyvinvointi Hyvinvointiyhteiskunta Häiriöt Ilmasto Infrastruktuuri Innovatiivisus Innovatiivisuus Internet Investoinnit Joukkoliikenne Joustavuus Julkinen valta Kaivosteollisuus Kansainvälisyys Kasvihuonekaasut Kaupallisuus Kaupungit Kehitys Kestävyys Kevyen liikenteen väylät Kevytliikenne Kiinteistöt Kilpailu Kilpailukyky Konesalit Konkreettisuus Kotimaisuus Koulutus Kunnat Kustannustehokkuus Kuuluvuus Kävely Laajakaista Lainsäädäntö Laiton tarjonta Langattomuus Lappi Lentoliikenne Liikenne Liikenneverkostot Liikkumistili Linja-autot Logistiikka Luonnonsuojelu Lämmitys Maakaasu Maatalous Mainonta Markkinat Massavalvonta Meriliikenne Metadata Mobiiliverkko Mopot Nopeus Ohjaus Ohjelmistot Ohjelmistotoimittaja Oikeusturva Omavaraisuus Operaattori Osaaminen Ostovoima Palaute Palvelut Palvelutaso Peruskunto Pilvipalvelut Polttoaine Posti Puelueettomuus Pysäköinti Pyöräily Päivitys Pääkaupunkiseutu Päästöt Päätöksenteko Päätös Raha Rahoitus Rahtliikenne Rajapinnat Rakennemuutos Rakentaminen Raskas liikenne Rautatiet Riippuvuus Rikokset Robotisaatio Ruuhkamaksu Ruuhkautuminen Saatavuus Sateliittipaikannus Sovellukset Strategia Suunnittelu Sähkö Sähköauto Sääntely Säästöt Talous Talouskasvu Tarpeet Tasa-arvo Tasapuolisuus Tasavertaisuus Tavaraliikenne Tehokkuus Tekijänoikeus Tekniikkaneutraalius Tekninen tuki Teknologia Teknologianeutraalius Teollisuus Terveydenhuolto Terveys testi Tiedon avoimuus Tiedon hallinnointi Tiedon hallinta Tiedon hyödyntäminen Tieliikenne Tietoliikenne Tietoturva Toimilupa Toiminta Toimintavarmuus Toimivuus Tuki Turvallisuus Turvaverkko Tutkimus Tuuli TV Työllisyys Työn tekemiseen liittyvä Ulkomaat Uudistus Vaihtoehtoiset polttoaineet Vaikuttaminen Vaikutus Vakuutus Valinnanvapaus Valtio Varmenne Varmuus Vastuu Verkostoituminen Verotus Vesiliikenne Vesiliikenne, Tasavertaisuus Viestintäverkot Viranomaiset Yhteensopivuus Yhteiskunta Yhteiskuntamurros Yhteistyö Yhteysnopeus Yksityisautoilu Yksityisyydensuoja YLE Yleispalvelu Yleisradio Ympäristö Yritykset Öljy

Minkä sivun jakeita haluat tarkastella?: Kaikki 21 polkua kitkattomaan Suomeen - ICT 2015-työryhmän loppuraportti Asiakaspalvelu 2014 loppuraportti Julkisen hallinnon asiakkuusstrategia Julkisen hallinnon ICT:n hyödyntämisen strategia 2012-2020 Kansallinen paikkatietostrategia Kohti esteetöntä tietoyhteiskuntaa toimenpideohjelma 2011-2015 Kohti uutta liikennepolitiikkaa - Älyä liikenteeseen ja viisautta liikkujille KIDE-hanke Opetus- ja kulttuuriministeriön älystrategia Rakennepoliittinen ohjelma Sähköisen asioinnin ja demokratian vauhdittamisohjelman toteuttamissuunnitelma 2009-2014 Tuottava ja uudistuva Suomi - Digitaalinen agenda vuosille 2011-2020 Valtioneuvoston periaatepäätös julkisen sektorin digitaalisten tietoaineistojen saatavuuden parantamisesta ja uudelleenkäytön edistämisestä Valtioneuvoston periaatepäätös kansallisesta älyliikenteen strategiasta Valtioneuvoston periaatepäätös sähköisestä tunnistamisesta Valtioneuvoston periaatepäätös valtion pysyvien toimintamenosäästöjen aikaansaamisesta Vaikuttavuus- ja tuloksellisuusohjelma (VATU) Valtion_konesalistrategia_2014 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", "JaeID", "Sisältö")], tagged[c("Versio", "Sivu", "JaeID", "Avainsanat")], type = "inner", match = "first" ) oprint( tagged[c("Versio", "Sivu", "JaeID", "Sisältö", "Avainsanat")], caption = "Jakeet", caption.placement = "top", include.rownames = FALSE, digits = rep(0, 6) ) } } } if (nrow(tags) > 0) { tags_out <- ddply(tags, "Result", nrow) colnames(tags_out) <- c("Avainsana", "Lukumäärä") tags_out <- tags_out[order(tags_out$Lukumäärä, decreasing = TRUE),] oprint( tags_out, caption = "Avainsanojen lukumäärät", caption.placement = "top", include.rownames = FALSE, digits = c(0, 0, 0) ) ggplot(tags_out, aes(x = Avainsana, y = Lukumäärä, fill = Avainsana)) + geom_bar(stat = "identity") + theme_grey(base_size = 24) + theme(axis.text.x = element_blank(), axis.title.x = element_blank()) + ggtitle("Avainsanojen frekvenssit") } # Add previous and next versions to check for inclusion from previous and into next original_version <- version if (!(1 %in% version)) { prev <- TRUE version <- c(min(version, na.rm = TRUE) - 1, version) } version <- c(version, max(version, na.rm = TRUE) + 1) filter3 <- list() filter3$Sivu1 <- sivu filter3$Versio <- version filter3$JaeID1 <- jaeid rel1 <- try_dl_rm( paste(ident, "Relaatiot", sep = "."), filter = filter3, rm_id = paste(ident, "Relaationpoistot", sep = "."), rm_ind = "RelaatioID" ) if (is.null(jaeid)) { rel2 <- data.frame() } else { filter3$JaeID1 <- NULL filter3$Sivu1 <- NULL filter3$JaeID2 <- jaeid filter3$Sivu2 <- sivu rel2 <- try_dl_rm( paste(ident, "Relaatiot", sep = "."), filter = filter3, rm_id = paste(ident, "Relaationpoistot", sep = "."), rm_ind = "RelaatioID" ) } rel <- rbind(rel1, rel2) if (!any(original_version %in% rel$Versio)) stop("Annetuilla versiolla ei löytynyt relaatioita.") if (nrow(rel) == 0) { cat("Jakeelle ei löytynyt kysyttyjä relaatioita tietokannassa.\n") } else { related <- rel[ rel$Result %in% c( "on neutraali suhteessa", "on uusi linjaus tai painotus", "tukee tai on linjassa", "vastustaa tai on ristiriidassa" ), ] related$Result <- as.character(related$Result) affected <- rel[ rel$Result %in% c( "ehdotus ei ole antanut aihetta muutoksiin", "ehdotus ei ole antanut aihetta muutoksiin vaan sisältyy olennaisesti jo kirjattuun", "ehdotus huomioitu ja liittyvää painotusta muutettu", "ehdotus huomioitu ja uusi kohta lisätty" ), ] affected$Result <- as.character(affected$Result) affected$Result[affected$Result == "ehdotus ei ole antanut aihetta muutoksiin"] <- "Ei aihetta muutoksiin" affected$Result[affected$Result == "ehdotus ei ole antanut aihetta muutoksiin vaan sisältyy olennaisesti jo kirjattuun"] <- "Sisältyy valmiiksi" affected$Result[affected$Result == "ehdotus huomioitu ja liittyvää painotusta muutettu"] <- "Huomioitu painotuksella" affected$Result[affected$Result == "ehdotus huomioitu ja uusi kohta lisätty"] <- "Huomioitu lisäyksellä" related_out <- ddply(related, "Result", nrow) colnames(related_out) <- c("Relaatio", "Lukumäärä") affected_out <- ddply(affected, "Result", nrow) colnames(affected_out) <- c("Sisällytys", "Lukumäärä") } if (nrow(related_out > 0)) { ggplot(related_out, aes(x = Relaatio, y = Lukumäärä, fill = Relaatio)) + geom_bar(stat = "identity") + theme_grey(base_size = 24) + theme(axis.text.x = element_blank(), axis.title.x = element_blank()) + ggtitle("Relaatioiden frekvenssit")# + facet_wrap(~Sivu) } if (nrow(affected_out > 0)) { ggplot(affected_out, aes(x = Sisällytys, y = Lukumäärä, fill = Sisällytys)) + geom_bar(stat = "identity") + theme_grey(base_size = 24) + theme(axis.text.x = element_blank(), axis.title.x = element_blank()) + ggtitle("Sisällytyksen frekvenssit")# + facet_wrap(~Sivu) }

Työkalut

Aineiston työstämiseen tarkoittuja koodeja.

Jakeet

Jaehakukone

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

Sivu jolta jakeita haetaan: Kaikilta 21 polkua kitkattomaan Suomeen - ICT 2015-työryhmän loppuraportti Asiakaspalvelu 2014 loppuraportti Julkisen hallinnon asiakkuusstrategia Julkisen hallinnon ICT:n hyödyntämisen strategia 2012-2020 Kansallinen paikkatietostrategia Kohti esteetöntä tietoyhteiskuntaa toimenpideohjelma 2011-2015 Kohti uutta liikennepolitiikkaa - Älyä liikenteeseen ja viisautta liikkujille KIDE-hanke Opetus- ja kulttuuriministeriön älystrategia Rakennepoliittinen ohjelma Sähköisen asioinnin ja demokratian vauhdittamisohjelman toteuttamissuunnitelma 2009-2014 Tuottava ja uudistuva Suomi - Digitaalinen agenda vuosille 2011-2020 Valtioneuvoston periaatepäätös julkisen sektorin digitaalisten tietoaineistojen saatavuuden parantamisesta ja uudelleenkäytön edistämisestä Valtioneuvoston periaatepäätös kansallisesta älyliikenteen strategiasta Valtioneuvoston periaatepäätös sähköisestä tunnistamisesta Valtioneuvoston periaatepäätös valtion pysyvien toimintamenosäästöjen aikaansaamisesta Vaikuttavuus- ja tuloksellisuusohjelma (VATU) Valtion_konesalistrategia_2014 Anna halutessasi jakeen ID(:t): Versio: Missä muodossa tulostetaan?: Numeroitu teksti Taulukko + 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) { if(tuotos == "Taulukko") { oprint(out, include.rownames = FALSE) } else { pver <- "Tyhjä tieto" psiv <- "Tyhjä tieto" paih <- "Tyhjä tieto" outs <- "" for(i in 1:nrow(out)) { ver <- as.character(out$Versio[i]) siv <- as.character(out$Sivu[i]) aih <- as.character(out$Aihe[i]) if(!is.na(pver != ver)) if(pver != ver) outs <- c(outs, paste("Versio:", ver)) if(!is.na(psiv != siv)) if(psiv != siv) outs <- c(outs, paste("Sivu:", siv)) if(!is.na(paih != aih)) if(paih != aih) outs <- c(outs, paste("Aihe:", aih)) outs <- c(outs, paste(as.character(out$JaeID[i]), as.character(out$Result[i]))) pver <- ver psiv <- siv paih <- aih } outs <- data.frame(Jakeet = outs, T = "") oprint(outs, include.rownames = FALSE, show_all = TRUE) } } else { cat("Jakeita ei löytynyt!\n") }

Jakeenlisäyskone

Lisää tietokantaan vapaasti määriteltävän jakeen. Lisätyt jakeet näkyvät tämän sivun hakukoneissa. Niiden JaeID:llä on "L"-etuliite.

Sivu jolle jae lisätään: 21 polkua kitkattomaan Suomeen - ICT 2015-työryhmän loppuraportti Asiakaspalvelu 2014 loppuraportti Julkisen hallinnon asiakkuusstrategia Julkisen hallinnon ICT:n hyödyntämisen strategia 2012-2020 Kansallinen paikkatietostrategia Kohti esteetöntä tietoyhteiskuntaa toimenpideohjelma 2011-2015 Kohti uutta liikennepolitiikkaa - Älyä liikenteeseen ja viisautta liikkujille KIDE-hanke Opetus- ja kulttuuriministeriön älystrategia Rakennepoliittinen ohjelma Sähköisen asioinnin ja demokratian vauhdittamisohjelman toteuttamissuunnitelma 2009-2014 Tuottava ja uudistuva Suomi - Digitaalinen agenda vuosille 2011-2020 Valtioneuvoston periaatepäätös julkisen sektorin digitaalisten tietoaineistojen saatavuuden parantamisesta ja uudelleenkäytön edistämisestä Valtioneuvoston periaatepäätös kansallisesta älyliikenteen strategiasta Valtioneuvoston periaatepäätös sähköisestä tunnistamisesta Valtioneuvoston periaatepäätös valtion pysyvien toimintamenosäästöjen aikaansaamisesta Vaikuttavuus- ja tuloksellisuusohjelma (VATU) Valtion_konesalistrategia_2014 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 )

Jakeenpoistokone

Merkitsee jakeen epäkelvoksi, jolloin se jätetään näyttämättä kaikissa tämän sivun hakukoneissa.

Poistettavan jakeen sivu: 21 polkua kitkattomaan Suomeen - ICT 2015-työryhmän loppuraportti Asiakaspalvelu 2014 loppuraportti Julkisen hallinnon asiakkuusstrategia Julkisen hallinnon ICT:n hyödyntämisen strategia 2012-2020 Kansallinen paikkatietostrategia Kohti esteetöntä tietoyhteiskuntaa toimenpideohjelma 2011-2015 Kohti uutta liikennepolitiikkaa - Älyä liikenteeseen ja viisautta liikkujille KIDE-hanke Opetus- ja kulttuuriministeriön älystrategia Rakennepoliittinen ohjelma Sähköisen asioinnin ja demokratian vauhdittamisohjelman toteuttamissuunnitelma 2009-2014 Tuottava ja uudistuva Suomi - Digitaalinen agenda vuosille 2011-2020 Valtioneuvoston periaatepäätös julkisen sektorin digitaalisten tietoaineistojen saatavuuden parantamisesta ja uudelleenkäytön edistämisestä Valtioneuvoston periaatepäätös kansallisesta älyliikenteen strategiasta Valtioneuvoston periaatepäätös sähköisestä tunnistamisesta Valtioneuvoston periaatepäätös valtion pysyvien toimintamenosäästöjen aikaansaamisesta Vaikuttavuus- ja tuloksellisuusohjelma (VATU) Valtion_konesalistrategia_2014 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" )

Avainsanat

Avainsanahakukone

Hakee jaekohtaisia avainsanoja. Näyttää datan sellaisena kuin se on tietokannassa.

Sivu jonka avainsanoja haetaan: Kaikki 21 polkua kitkattomaan Suomeen - ICT 2015-työryhmän loppuraportti Asiakaspalvelu 2014 loppuraportti Julkisen hallinnon asiakkuusstrategia Julkisen hallinnon ICT:n hyödyntämisen strategia 2012-2020 Kansallinen paikkatietostrategia Kohti esteetöntä tietoyhteiskuntaa toimenpideohjelma 2011-2015 Kohti uutta liikennepolitiikkaa - Älyä liikenteeseen ja viisautta liikkujille KIDE-hanke Opetus- ja kulttuuriministeriön älystrategia Rakennepoliittinen ohjelma Sähköisen asioinnin ja demokratian vauhdittamisohjelman toteuttamissuunnitelma 2009-2014 Tuottava ja uudistuva Suomi - Digitaalinen agenda vuosille 2011-2020 Valtioneuvoston periaatepäätös julkisen sektorin digitaalisten tietoaineistojen saatavuuden parantamisesta ja uudelleenkäytön edistämisestä Valtioneuvoston periaatepäätös kansallisesta älyliikenteen strategiasta Valtioneuvoston periaatepäätös sähköisestä tunnistamisesta Valtioneuvoston periaatepäätös valtion pysyvien toimintamenosäästöjen aikaansaamisesta Vaikuttavuus- ja tuloksellisuusohjelma (VATU) Valtion_konesalistrategia_2014 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") }

Avainsanoitus

Lisää annetut avainsanat tietokantaan. Avainanoja voidaan lisätä ruksaamalla annetusta listasta (vain yleisimmät) ja syöttämällä vapaakenttään pilkulla eroteltuna.

Minkä sivun jakeelle haluat lisätä avainsanoja?: 21 polkua kitkattomaan Suomeen - ICT 2015-työryhmän loppuraportti Asiakaspalvelu 2014 loppuraportti Julkisen hallinnon asiakkuusstrategia Julkisen hallinnon ICT:n hyödyntämisen strategia 2012-2020 Kansallinen paikkatietostrategia Kohti esteetöntä tietoyhteiskuntaa toimenpideohjelma 2011-2015 Kohti uutta liikennepolitiikkaa - Älyä liikenteeseen ja viisautta liikkujille KIDE-hanke Opetus- ja kulttuuriministeriön älystrategia Rakennepoliittinen ohjelma Sähköisen asioinnin ja demokratian vauhdittamisohjelman toteuttamissuunnitelma 2009-2014 Tuottava ja uudistuva Suomi - Digitaalinen agenda vuosille 2011-2020 Valtioneuvoston periaatepäätös julkisen sektorin digitaalisten tietoaineistojen saatavuuden parantamisesta ja uudelleenkäytön edistämisestä Valtioneuvoston periaatepäätös kansallisesta älyliikenteen strategiasta Valtioneuvoston periaatepäätös sähköisestä tunnistamisesta Valtioneuvoston periaatepäätös valtion pysyvien toimintamenosäästöjen aikaansaamisesta Vaikuttavuus- ja tuloksellisuusohjelma (VATU) Valtion_konesalistrategia_2014 Mikä on jakeen versio?: Mikä on jakeen ID?: Valitse alla olevasta listasta yleisiä avainsanoja.: A Päätös (jae sisältää päätös- tai toimintaehdotuksen) B Vaikutus (jae kuvaa ilmiötä tai vaikutusta) C Arvo (jakeessa on arvoarvostelma tai kuvaa asian merkitystä) D Katsaustyön tekemiseen liittyvä E Ei mikään edellisistä (valitse ainakin yksi A-E) Laita halutessasi yllä listaamattomattomia avainsanoja tähän pilkulla eroteltuna.: + Näytä koodi- Piilota koodi avainsanat <- strsplit(avainsanat, ",", fixed = TRUE)[[1]] avainsanat <- gsub("^\\s*|\\s*$", "", avainsanat) avainsanat <- avainsanat[nchar(avainsanat) > 0] avainsanat <- c(yl_avainsanat, avainsanat) if (length(avainsanat) == 0) stop("Yhtään avainsanaa ei annettu!") library(OpasnetUtils) objects.latest("Op_fi4325", "apufunktiot") if (tolower(version) == "nykyinen") { version <- get_current_version(ident) } else { version <- as.numeric(version) } dat <- data.frame( AvainsanaID = NA, Versio = version, Aika = date(), Käyttäjä = wiki_username, Sivu = sivu, JaeID = as.character(jae), Result = avainsanat ) ident.subset <- paste(ident, "Avainsanat", sep = ".") filter <- list() filter$Versio <- version upload_with_autoid( dat, ident.subset, id_name = "AvainsanaID", pagename = pagename, filter = filter ) cat("Avainsanojen lisääminen onnistui.\n")

Avainsanan poisto

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

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

Relaatiohakukone

Hakee relaatioita joissa mahdollisesti annetut jakeet esiintyvät. Näyttää datan sellaisena kuin se on tietokannassa.

Sivu jonka relaatioita haetaan: Kaikki 21 polkua kitkattomaan Suomeen - ICT 2015-työryhmän loppuraportti Asiakaspalvelu 2014 loppuraportti Julkisen hallinnon asiakkuusstrategia Julkisen hallinnon ICT:n hyödyntämisen strategia 2012-2020 Kansallinen paikkatietostrategia Kohti esteetöntä tietoyhteiskuntaa toimenpideohjelma 2011-2015 Kohti uutta liikennepolitiikkaa - Älyä liikenteeseen ja viisautta liikkujille KIDE-hanke Opetus- ja kulttuuriministeriön älystrategia Rakennepoliittinen ohjelma Sähköisen asioinnin ja demokratian vauhdittamisohjelman toteuttamissuunnitelma 2009-2014 Tuottava ja uudistuva Suomi - Digitaalinen agenda vuosille 2011-2020 Valtioneuvoston periaatepäätös julkisen sektorin digitaalisten tietoaineistojen saatavuuden parantamisesta ja uudelleenkäytön edistämisestä Valtioneuvoston periaatepäätös kansallisesta älyliikenteen strategiasta Valtioneuvoston periaatepäätös sähköisestä tunnistamisesta Valtioneuvoston periaatepäätös valtion pysyvien toimintamenosäästöjen aikaansaamisesta Vaikuttavuus- ja tuloksellisuusohjelma (VATU) Valtion_konesalistrategia_2014 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") }

Relaation lisääminen

Lisää uuden relaation tietokantaan. Samantyyppisiä relaatioita voi kerralla lisätä useita, kun erottelee JaeID:t pilkuilla: relaatiot voi tehdä kaikki yhteen, yksi kaikkiin tai yksi yhteen.

Mikä on lähtöjakeen sivu?: 21 polkua kitkattomaan Suomeen - ICT 2015-työryhmän loppuraportti Asiakaspalvelu 2014 loppuraportti Julkisen hallinnon asiakkuusstrategia Julkisen hallinnon ICT:n hyödyntämisen strategia 2012-2020 Kansallinen paikkatietostrategia Kohti esteetöntä tietoyhteiskuntaa toimenpideohjelma 2011-2015 Kohti uutta liikennepolitiikkaa - Älyä liikenteeseen ja viisautta liikkujille KIDE-hanke Opetus- ja kulttuuriministeriön älystrategia Rakennepoliittinen ohjelma Sähköisen asioinnin ja demokratian vauhdittamisohjelman toteuttamissuunnitelma 2009-2014 Tuottava ja uudistuva Suomi - Digitaalinen agenda vuosille 2011-2020 Valtioneuvoston periaatepäätös julkisen sektorin digitaalisten tietoaineistojen saatavuuden parantamisesta ja uudelleenkäytön edistämisestä Valtioneuvoston periaatepäätös kansallisesta älyliikenteen strategiasta Valtioneuvoston periaatepäätös sähköisestä tunnistamisesta Valtioneuvoston periaatepäätös valtion pysyvien toimintamenosäästöjen aikaansaamisesta Vaikuttavuus- ja tuloksellisuusohjelma (VATU) Valtion_konesalistrategia_2014 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")

Sisällytyksen lisääminen

Lisää uuden sisällytyksen tietokantaan. Sisällytys tapahtuu aina seuraavaan versioon. Samantyyppisiä sisällytyksiä voi kerralla lisätä useita, kun erottelee JaeID:t pilkuilla: sisällytykset voi tehdä kaikki yhteen, yksi kaikkiin tai yksi yhteen.

Mikä on lähtöjakeen sivu?: 21 polkua kitkattomaan Suomeen - ICT 2015-työryhmän loppuraportti Asiakaspalvelu 2014 loppuraportti Julkisen hallinnon asiakkuusstrategia Julkisen hallinnon ICT:n hyödyntämisen strategia 2012-2020 Kansallinen paikkatietostrategia Kohti esteetöntä tietoyhteiskuntaa toimenpideohjelma 2011-2015 Kohti uutta liikennepolitiikkaa - Älyä liikenteeseen ja viisautta liikkujille KIDE-hanke Opetus- ja kulttuuriministeriön älystrategia Rakennepoliittinen ohjelma Sähköisen asioinnin ja demokratian vauhdittamisohjelman toteuttamissuunnitelma 2009-2014 Tuottava ja uudistuva Suomi - Digitaalinen agenda vuosille 2011-2020 Valtioneuvoston periaatepäätös julkisen sektorin digitaalisten tietoaineistojen saatavuuden parantamisesta ja uudelleenkäytön edistämisestä Valtioneuvoston periaatepäätös kansallisesta älyliikenteen strategiasta Valtioneuvoston periaatepäätös sähköisestä tunnistamisesta Valtioneuvoston periaatepäätös valtion pysyvien toimintamenosäästöjen aikaansaamisesta Vaikuttavuus- ja tuloksellisuusohjelma (VATU) Valtion_konesalistrategia_2014 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")

Relaation poisto

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

Poistettavan relaation ID (pilkulla eroteltuna useampia): Mikä versio on kyseessä?: Poiston syy: - 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")