View source for Handprinter/Activity category

<rcode live=1 name="show" showcode=-1 variables="
	name:search|description:Search for this word (otherwise all actions are shown)|type:hidden|default:' '
">
library(OpasnetUtils)

dat <- opbase.data("Op_en5782.actions")

found <- logical()

for(i in 1:nrow(dat)) {found[i] <- grepl(search, paste(t(dat[i , ]), collapse = " "), ignore.case = TRUE)}

oprint(dat[found , ])

</rcode>