Displaying 1 result from an estimated 1 matches for "input_teil".
2008 Dec 15
0
mixed csv and csv2
....create(auslagerung,showWarnings=F)
# Lege alle Dateienamen des Ordners "Pfad" in einen array ab
dateinamen<-list.files(Pfad)
#Schleife, die über alle Dateien in dateinamen geht.
#Sortiert alle Leerdateien aus, also Dateien ohne sinnvollen Input
for (i in 1:length(dateinamen)){
input_teil<-NA
try(input_teil<-read.csv2(paste(Pfad,dateinamen[i],sep="")))
if(dim(input_teil)[2]<=1)
try(input_teil<-read.csv(paste(Pfad,dateinamen[i],sep="")))
if(is.na(input_teil[1,1])){
file.copy(paste(Pfad,dateinamen[i],sep=""),
paste(auslagerung,da...