[Gfoss] primi problemi grass + R

Local Chapters GFOSS.it
1

Salve a tutti,
come mai se lancio il comando>ls da dentro R (già dentro il mapset di grass) ottengo:

ls

function (name, pos = -1, envir = as.environment(pos), all.names = FALSE,
    pattern)
{
    if (!missing(name)) {
        nameValue <- try(name)
        if (identical(class(nameValue), "try-error")) {
            name <- substitute(name)
            if (!is.character(name))
                name <- deparse(name)
            pos <- name
        }
        else pos <- nameValue
    }
    all.names <- .Internal(ls(envir, all.names))
    if (!missing(pattern)) {
        if ((ll <- length(grep("[", pattern, fixed = TRUE)))>
            0 && ll != length(grep("]", pattern, fixed = TRUE))) {
            if (pattern == "[") {
                pattern <- "\\["
                warning("replaced regular expression pattern '[' by '\\\\['")
            }
            else if (length(grep("[^\\\\]\\[<-", pattern)> 0)) {
                pattern <- sub("\\[<-", "\\\\\\[<-", pattern)
                warning("replaced '[<-' by '\\\\[<-' in regular expression pattern")
            }
        }
        grep(pattern, all.names, value = TRUE)
    }
    else all.names
}

Eugenio
_________________________________________________________________
Curiosità, trucchi e consigli per il tuo Messenger!
http://www.messenger.it

2

system("ls"): http://stat.ethz.ch/R-manual/R-patched/library/base/html/system.html
Il prompt di R non è un terminale bash. Quando lanci R entri nel suo
ambiente di scripting, percui devi usare il suo linguaggio.

2008/7/21 Eugenio Trumpy <frippe12573@hotmail.com>:

Salve a tutti,
come mai se lancio il comando>ls da dentro R (già dentro il mapset di grass) ottengo:

ls

function (name, pos = -1, envir = as.environment(pos), all.names = FALSE,
   pattern)
{
   if (!missing(name)) {
       nameValue <- try(name)
       if (identical(class(nameValue), "try-error")) {
           name <- substitute(name)
           if (!is.character(name))
               name <- deparse(name)
           pos <- name
       }
       else pos <- nameValue
   }
   all.names <- .Internal(ls(envir, all.names))
   if (!missing(pattern)) {
       if ((ll <- length(grep("[", pattern, fixed = TRUE)))>
           0 && ll != length(grep("]", pattern, fixed = TRUE))) {
           if (pattern == "[") {
               pattern <- "\\["
               warning("replaced regular expression pattern '[' by '\\\\['")
           }
           else if (length(grep("[^\\\\]\\[<-", pattern)> 0)) {
               pattern <- sub("\\[<-", "\\\\\\[<-", pattern)
               warning("replaced '[<-' by '\\\\[<-' in regular expression pattern")
           }
       }
       grep(pattern, all.names, value = TRUE)
   }
   else all.names
}

Eugenio
_________________________________________________________________
Curiosità, trucchi e consigli per il tuo Messenger!
http://www.messenger.it
_______________________________________________
Iscriviti all'associazione GFOSS.it: http://www.gfoss.it/drupal/iscrizione
Gfoss@faunalia.com
http://www.faunalia.com/cgi-bin/mailman/listinfo/gfoss
Questa e' una lista di discussione pubblica aperta a tutti.
I messaggi di questa lista non rispecchiano necessariamente
le posizioni dell'Associazione GFOSS.it.