1 iterate <- function(xs,z,fun) {
9 # remove leading and trailing spaces
10 return(sub('^[[:space:]]+','',sub('[[:space:]]+$','',x)))
13 host.arch <- function() {
14 # return the host system architecture
15 system('dpkg-architecture -qDEB_HOST_ARCH',intern=T)
18 err <- function(text) {
19 message(paste('E:',text))