If you want type twice commands in function aar, you could try this:
aar <-function(command) {
switch(command,
scrn = cat("scrn :Screening","\n"),
dx = cat("dx :Diagnosis","\n"),
df = cat("df :Don't Forget","\n"))
}
invisible(Vectorize(aar)(c('dx', 'df')))
On Wed, Nov 18, 2009 at 8:39 AM, oscar linares <wins...@gmail.com> wrote:
> Dear Rexperts,
>
> Given,
>
> aar <-function(command) {
>
> switch(command,
> {scrn = cat("scrn :Screening","\n")}
> {dx = cat("dx :Diagnosis","\n")}
> {df = cat("df :Don't Forget","\n")}
> )
> }
>
> I want to be able to do:
>
> aar("dx") # function does cat("dx :Diagnosis","\n")
>
> aar(c("dx","df")) # function does cat("dx :Diagnosis","\n")
> # function does df = cat("df :Don't
> Forget","\n")
>
> BUT IT IS NOT WORKING FOR ME.
>
> Please help:-)
>
> --
> Oscar
> Oscar A. Linares, MD
> Translational Medicine Unit
> LaPlaisance Bay, Bolles Harbor
> Monroe, Michigan
>
> [[alternative HTML version deleted]]
>
> ______________________________________________
> R-help@r-project.org mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.
>
--
Henrique Dallazuanna
Curitiba-Paraná-Brasil
25° 25' 40" S 49° 16' 22" O
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
