error in the "translate" command in version Hmisc-20030924

[<Willi.Weber@aventis.com>]

Hello 
we installed the latest Hmisc version and run into an error in the
"translate" command in version Hmisc-20030924

We changed the following code to correct this error:

   k <- unlist(lapply(text, function(x)
                       {
                         sys(paste("echo \'", x, "\' | ", command, sep = ""))
                       }
                       ))

translate(c("ABC","DEF"),"ABCDEFG", "abcdefg")
Problem in FUN(...X.sub.i....): Object "command" not found 
Use traceback() to see the call stack

You must hand over "command" to the function.
   k <- unlist(lapply(text, function(x,command)
                       {
                         sys(paste("echo \'", x, "\' | ", command, sep = ""))
                       }, command
                       ))

 translate(c("ABC","DEF"),"ABCDEFG", "abcdefg")
[1] "abc" "def"

Now translate does his job again!
Regards
Willi Weber

> AVENTIS Pharma
> DI&A, LO, DMPK,
> Population PK/PD, 
> 
>