Ero sivun ”Kommentointityökalu” versioiden välillä
Siirry navigaatioon
Siirry hakuun
(raakile) |
(perustoiminnallisuudet näyttäisivät toimivan) |
||
| Rivi 1: | Rivi 1: | ||
<rcode embed= | {{muuttuja}} | ||
---- | |||
<rcode embed=1 label="Lisää kommentti" showcode=-1 variables=" | |||
name:kommentti|description:Kommenttisi tämän sivun sisältöön tai keskusteluun|type:text| | name:kommentti|description:Kommenttisi tämän sivun sisältöön tai keskusteluun|type:text| | ||
name:liittymä|description:Jos kommenttisi liittyy aiempaan kommenttiin, mikä on sen numero?|type:text | name:liittymä|description:Jos kommenttisi liittyy aiempaan kommenttiin, mikä on sen numero?|type:text| | ||
name:pagename|type:hidden|default:'{{PAGENAME}}'| | |||
name:ident|type:hidden|default:'Op_fi4224' | |||
"> | "> | ||
library(OpasnetUtils) | library(OpasnetUtils) | ||
dat <- data.frame(Aika = date(), Kommentti = kommentti, Liittymä = liittymä) | obs <- opbase.data(ident, subset = "Kommentit")$Obs | ||
obs <- as.numeric(levels(obs)[obs]) + 1 | |||
#obs <- 1 | |||
dat <- data.frame(Obs = obs, Aika = date(), Kommentti = kommentti, Liittymä = liittymä, Result = 1) | |||
oprint(dat) | opbase.upload(dat, ident = ident, name = pagename, subset = "Kommentit", act_type = "append", language = "fin", | ||
who = wiki_username) | |||
cat("Kommenttisi on onnistuneesti tallennettu.\n") | |||
</rcode> | |||
; Tämänhetkiset kommentit, jota ei ole vielä sisällytetty sivulle tai keskustelusivulle. | |||
<rcode live=1 showcode=-1 variables="name:ident|type:hidden|default:'Op_fi4224'"> | |||
library(OpasnetUtils) | |||
dat <- opbase.data(ident, subset = "Kommentit") | |||
poistot <- opbase.data(ident, subset = "Kommenttipoistot")$Kommenttinro | |||
oprint(dat[!dat$Obs %in% poistot , ]) | |||
</rcode> | |||
<rcode embed=1 label="Poista kommentti" showcode=-1 variables=" | |||
name:nro|description:Poistettavan kommentin numero|type:text| | |||
name:syy|description:Poiston syy|type:selection|options: | |||
;- Valitse syy -; | |||
'Kommentti on sisällytetty keskusteluun tai sivulle';Kommentti on sisällytetty keskusteluun tai sivulle; | |||
'Kommentti ei liity sivun aiheeseen';Kommmentti ei liity sivun aiheeseen; | |||
'Kommentti on häiriköintiä';Kommentti on häiriköintiä (käytä säästellen)| | |||
name:ident|type:hidden|default:'Op_fi4224'| | |||
name:pagename|type:hidden|default:'{{PAGENAME}}' | |||
"> | |||
library(OpasnetUtils) | |||
dat <- data.frame(Kommenttinro = nro, Syy = syy, Result = 1) | |||
opbase.upload(dat, ident = ident, name = pagename, subset = "Kommenttipoistot", act_type = "append", language = "fin", | |||
who = wiki_username) | |||
cat("Kommentti onnistuneesti poistettu.\n") | |||
pois <- opbase.data(ident, subset = "Kommentit") | |||
oprint(pois[pois$Obs == nro , ]) | |||
</rcode> | </rcode> | ||
Versio 20. huhtikuuta 2014 kello 21.40
| Moderaattori:Ei ole (katso kaikki) Kuinka ryhtyä moderaattoriksi? Sivun edistymistä ei ole arvioitu. Arvostuksen määrää ei ole arvioitu (ks. peer review). |
| Lisää dataa
|
- Tämänhetkiset kommentit, jota ei ole vielä sisällytetty sivulle tai keskustelusivulle.