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(...) {