Ero sivun ”Kommenttihaku” versioiden välillä
Siirry navigaatioon
Siirry hakuun
(raakile) |
(→Vastaus: nyt toimii) |
||
| (3 välissä olevaa versiota samalta käyttäjältä ei näytetä) | |||
| Rivi 8: | Rivi 8: | ||
<rcode embed=1 variables=" | <rcode embed=1 variables=" | ||
name:tunniste|description:Anna haettavan kommentin tunnistelinkki|type:text | name:tunniste|description:Anna haettavan kommentin tunnistelinkki. Jos tyhjä, näytetään kaikki.|type:text| | ||
name:piilota|description:Piilotetaanko poistetut kommentit?|type:selection| | |||
options:TRUE;Kyllä;FALSE;Ei|default:TRUE | |||
"> | "> | ||
library(OpasnetUtils) | library(OpasnetUtils) | ||
sivut <- opbase.data(" | sivut <- opbase.data("Op_fi4390.sivut_joissa_kaytetaan_kommentointityokalua") | ||
dat <- data.frame() | dat <- data.frame() | ||
poistot <- data.frame() | |||
for(i in sivut | for(i in 1:nrow(sivut)) { | ||
dat <- rbind(dat, opbase.data( | dat <- rbind( | ||
dat, | |||
data.frame( | |||
Sivu = sivut$Nimi[i], | |||
opbase.data(sivut$Tunniste[i], subset = "Kommentit") | |||
) | |||
) | |||
poistot <- rbind( | |||
poistot, | |||
data.frame( | |||
Sivu = sivut$Nimi[i], | |||
opbase.data(sivut$Tunniste[i], subset = "Kommenttipoistot") | |||
) | |||
) | |||
} | |||
if(piilota) { | |||
dat <- dat[!paste(dat$Sivu, dat$Obs) %in% paste(poistot$Sivu, poistot$Kommenttinro) , ] | |||
} | } | ||
dat$Tunnistelinkki <- paste("http://fi.opasnet.org/fi/", gsub(" ", "_", dat$Sivu), "?Komm=", dat$Obs, | |||
"#Kommentit", sep = "" | |||
) | |||
oprint(dat) | oprint(dat) | ||
| Rivi 34: | Rivi 59: | ||
H2020 V1|Op_fi4230| | H2020 V1|Op_fi4230| | ||
Kommentointityökalu|Op_fi4224| | Kommentointityökalu|Op_fi4224| | ||
Käyttäjän oikeus omaan tietoonsa ja sen hyödyntämiseen|Op_fi4258| | Käyttäjän oikeus omaan tietoonsa ja sen hyödyntämiseen|Op_fi4258| | ||
Liikenne- ja viestintäyhteydet|Op_fi4264| | Liikenne- ja viestintäyhteydet|Op_fi4264| | ||
Nykyinen versio 31. toukokuuta 2014 kello 17.43
| Moderaattori:Jouni (katso kaikki)
Sivun edistymistä ei ole arvioitu. Arvostuksen määrää ei ole arvioitu (ks. peer review). |
| Lisää dataa
|
Kysymys
Miten selataan kommentteja?
Vastaus
Perustelut
Data
| Obs | Nimi | Tunniste | Dummy |
|---|---|---|---|
| 1 | Arktinen strategia | Op_fi4265 | |
| 2 | Datan liiketoiminta- ja käyttömahdollisuudet | Op_fi4260 | |
| 3 | H2020 V1 | Op_fi4230 | |
| 4 | Kommentointityökalu | Op_fi4224 | |
| 5 | Käyttäjän oikeus omaan tietoonsa ja sen hyödyntämiseen | Op_fi4258 | |
| 6 | Liikenne- ja viestintäyhteydet | Op_fi4264 | |
| 7 | Liikennejärjestelmän rahoitus ja taloudellinen ohjaus | Op_fi4266 | |
| 8 | Liikenteen energiareformi | Op_fi4254 | |
| 9 | Liikenteen palvelumarkkinat | Op_fi4253 | |
| 10 | Luottamuksen palauttaminen internettiin | Op_fi4259 | |
| 11 | Monipuoliset sisällöt | Op_fi4256 | |
| 12 | Oma Painotus Teema I | Op_fi4257 | |
| 13 | Oma Painotus Teema II | Op_fi4262 | |
| 14 | Oma Painotus Teema III | Op_fi4267 | |
| 15 | Tieto ja digitalisaatio liikenteessä | Op_fi4261 | |
| 16 | Toimintavarmuus ja turvallisuus | Op_fi4263 | |
| 17 | Älykkäät käyttäjälähtöiset digitaaliset palvelut | Op_fi4255 |