{{#opasnet_base_link:Op_fi4756}}
library(OpasnetUtils)
temp <- opbase.data("op_fi3948.kirjaukset", "12999")
derp <- 13235
durp <- opbase.data("op_fi3948.kirjaukset", as.character(derp))
temp <- rbind(temp, durp[534:nrow(durp),])
#durp <- list()
#for (i in derp) {
# durp <- opbase.data("op_fi3948.kirjaukset", as.character(i))
# temp <- rbind(temp, durp)
#}
opbase.upload(
temp,
who = wiki_username,
name = pagename,
subset = "Kirjaukset"
)
|
library(OpasnetUtils)
temp <- opbase.data("op_fi3948.kirjauspoistot", "12912")
#derp <- opbase.data("op_fi3948.kirjauspoistot", "12864")
#temp <- rbind(temp, derp)
opbase.upload(
temp,
who = wiki_username,
name = pagename,
subset = "Kirjauspoistot"
)
|