Ero sivun ”Kommenttihaku” versioiden välillä
Siirry navigaatioon
Siirry hakuun
pEi muokkausyhteenvetoa |
|||
| 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:nayta|description:Näytetäänkö myös poistetut kommentit?|type:selection|options:FALSE;Ei;TRUE;Kyllä|default:FALSE | |||
"> | "> | ||
| Rivi 16: | Rivi 17: | ||
dat <- data.frame() | dat <- data.frame() | ||
poistot <- data.frame() | |||
for(i in 1:nrow(sivut)) { | for(i in 1:nrow(sivut)) { | ||
dat <- rbind( | dat <- rbind( | ||
dat, | dat, | ||
data.frame(Sivu = sivut$Nimi[i], opbase.data(sivut$Tunniste[i], subset = "Kommentit")) | 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")) | |||
) | ) | ||
} | } | ||
| Rivi 27: | Rivi 38: | ||
"#Kommentit", sep = "" | "#Kommentit", sep = "" | ||
) | ) | ||
oprint(poistot) | |||
if(!nayta) { | |||
test <- paste(dat$Sivu, dat$Obs) %in% paste(poistot$Sivu, poistot$Kommenttinro) | |||
dat <- dat[test , ] | |||
} | |||
oprint(dat) | oprint(dat) | ||
Versio 30. toukokuuta 2014 kello 21.21
| 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 |