Vorbei an ein Dateipfad zu einer R-Funktion?

Versuchte ich ein Dateipfad übergeben, um eine Funktion in R, aber ich nicht =/ich hoffe jemand hier kann mir helfen.

>heat <- function(filepath) 
{ chicks <- read.table(file=filepath, dec=",", header=TRUE, sep="\t")
...
}

Wenn ich die Funktion aufrufen, passiert nichts...

>heat("/home/.../file.txt")

... und "Küken" nicht gefunden

>chicks
Error: Object 'chicks' not found

Was ist der richtige Weg, um pass einen Pfad zu einer Funktion?

return(chicks) ? (obwohl ich nie zu Ihnen zurückkehren, sobald ich einige...) =]
verdammt, du hast Recht!! blöde Idee!! Ich Strich den ganzen code 😉

InformationsquelleAutor Philipp | 2010-06-02

7

Sollten Sie in der Lage sein, um pass-Datei-Pfade, die Sie haben (wenn die Datei vorhanden ist). Sie können auch die Abfrage-Datei-Pfade in R mit list.files() [das argument full.names=TRUE]. In diesem Fall jedoch glaube ich, dass Sie nicht sehen können chicks da es lokal zu der Funktion, so dass Sie nicht in der Lage, um zu sehen, diese variable außerhalb der Funktion. Darüber hinaus, wenn Ihre Letzte Ausdruck ist eine Zuweisung, ich glaube die Ausgabe wird nicht gedruckt. Versuchen
```
> heat <- function(filepath) { 
+   read.table(file=filepath, dec=",", header=TRUE, sep="\t")
+ }
> heat("/home/.../file.txt")
```
oder
```
> chicks <- heat("/home/.../file.txt")
> chicks
```
und Sie sollten sehen chicks. Oder, wenn Sie wollen, um zu sehen, gedruckt werden, während die Zuordnung, fügen Sie Klammern um die Anweisung:
```
> (chicks <- heat("/home/.../file.txt"))
```
Wenn Sie zuweisen möchten chicks innerhalb der Funktion, aber immer noch sehen, nachdem die Funktion beendet wurde,
```
> heat <- function(filepath) { 
+   chicks <- read.table(file=filepath, dec=",", header=TRUE, sep="\t")
+   assign("chicks",chicks,globalenv())
+ }
```
- "Aber in diesem Fall glaube ich, Sie können nicht sehen, die Küken, da es lokal zu der Funktion, so dass Sie nicht in der Lage, um zu sehen, diese variable außerhalb der Funktion." Aaargh, das war das problem ^^ vielen Dank!! Ich sollte haben gefragt, früher. Kostete mich etwa 2 Stunden 😀
InformationsquelleAutor hatmatrix
2

Kann die Funktion nicht wissen, was Sie versuchen, den Ausgang. Wenn Sie nicht angeben, wird die Ausgabe der letzten lebensfähigen Linie, die vielleicht nicht immer das sein, was Sie wollen. Verwenden return() angeben, was kommen sollte, als ein Objekt.
```
heat <- function(filepath) {
 chicks <- read.table(file=filepath, dec=",", header=TRUE, sep="\t")
 ...
 return(chicks)
}

inpt <- heat("/.../file.txt")
```
Wird diese Hilfe mit Ihrem problem?
- eigentlich brauche ich auch keinen Rückgabewert, die Funktion erstellt eine heatmap der input-Daten, die als pdf-Datei gespeichert. Das problem war, dass ich nur wollte, um wieder Küken zu testen, wurde der Pfad richtig übergeben. Aber das war auch gar nicht nötig. Ich hatte nur um den code zu vervollständigen und alle gut gearbeitet 🙂 trotzdem Danke, ich habe noch viele Dinge zu lernen 🙂
InformationsquelleAutor Roman Luštrik
1

Auch beim arbeiten mit Pfaden, ist es oft hilfreich, um zu testen, ob die Datei/Ordner vorhanden ist:
```
heat <- function(filepath){
    if(!file.exists(filepath)){
        stop(sprintf("Filepath %s does not exist",filepath))
    }
    ...
}
```
In dem Beispiel oben, jedoch read.table geben eine Fehlermeldung, wenn die Datei nicht vorhanden ist.

InformationsquelleAutor nullglob

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.