Errore di R promette già in fase di valutazione quando si utilizza sottoinsieme in funzione, ma nessun errore nello script
Domanda
Ricevo un errore di strano quando ho eseguito la seguente funzione:
TypeIDs=c(18283,18284,17119,17121,17123,17125,17127,17129,17131,17133,18367,18369,18371,18373,18375,18377,18379)
featsave<-function(featfile,TypeIDs=TypeIDs) {
mydata1<-read.table(featfile,header=TRUE)
mydata2<-subset(mydata1,TypeID %in% TypeIDs)
mydata<-as.data.frame(cast(mydata2, Feat1 + Feat2 + ID ~ TypeID,value="value"))
save(mydata,file="mydatafile.Rdata",compress=TRUE)
return(mydata)
}
con i seguenti dati:
Feat1 Feat2 ID Feat3 Feat4 TypeID value
1 1 1 6 266 18283 280.00
1 1 1 6 266 18284 20.00
1 1 1 6 266 18285 0.00
1 1 1 6 266 17116 0.00
1 1 1 6 266 17117 0.00
1 1 1 6 266 17118 0.00
1 1 1 6 266 17119 68.75
1 1 1 6 266 17120 0.00
1 1 1 6 266 17121 1.26
L'errore che ottengo è:
Error in inherits(x, "factor") :
promise already under evaluation: recursive default argument reference or earlier problems?
Questo errore si verifica sulla linea mydata2
dove prendo un sottoinsieme dei dati. Io non riesco a eseguire il debug, perché se io invece corro ogni riga della funzione nell'interprete, non ho più l'errore. Ciò che dà?
Soluzione
E 'l'uso ricorsivo di TypeIDs
. La cosa da ricordare è che gli argomenti della funzione sono valutati pigramente, che permette cose interessanti come function(foo, bar = foo)
. Purtroppo in questa impostazione di default per TypeIDs a se stesso caso provoca una ricorsione nella valutazione. Prova a cambiare il nome sia del parametro o l'oggetto esterno.
Autorizzato sotto: CC-BY-SA insieme a attribuzione
Non affiliato a StackOverflow