[R] auto named savings (pngs & data-frames)

[Daniel Jegelka]

Hello, i only got a small problem.

i try to create automatic new dataframes, or png´s. the main problem i
got is:

how can i create automatic a new name for a file (read out by simply
"for") -
i tried to use "(paste...) but theres an errormessage, about a wrong
declination. R told it is as.character, but need as.Real.

Should i use another method than "paste"?

i tried as this:
png("User-", paste(subject, ".png", sep = " "))

^^ as png file, example: User-DA5T.png  <- but if i create one, they are
empty.

Would anybody help me please?

thx Daniel




Prog:
files <- list.files(
		path = "/SCR/STATISTIK",
		pattern = ".*t_simple\.txt",
		all.files = TRUE,
        	full.names = TRUE,
		recursive = TRUE		)
list(files)
anz <- nrow(files)
print(anz)

for (file in files) {

    	lines <- readLines(file)
	name <- lines[1]
	print(name)
	#png("/SCR/STATISTIK/all-user-names.png")
	#name <- as.character(name)
	#barplot(name)
	#dev.off()
	for (line in lines[-1]) {
        	liste <- unlist(strsplit((line), " "))
		subject <- as.character(liste[1])
	        if (length(liste) < 2 ) {
        	    	data <- 0
        	}
		else {
			data  <- as.numeric(liste[-1])
		}
		#png(paste[subject],".png")
		dev.set()
		boxplot(data[subject], ylim=c(400,1500))
		dev.off()
		datalist <- data.frame(data)
		names(datalist) <- subject
		print(datalist)
		png("/SCR/STATISTIK/datalist.png", width=1024, height=768)
		
		plot(datalist)
		dev.off()}}
			#png("/SCR/all-show.png")
			#boxplot(datalist, main="Proband - ", col= "blue", ylab=
"reactiontime in milliseconds", xlab= "name")
			#dev.off()
			#dev.set()
			#Datenmatrix <- cbind(datalist)
			#print(Datenmatrix)
			#dev.off()
			#plot(datalist)
			#dev.off()

#einlesen <- datalist
#print(einlesen)
#Monate,storage, type="l", ylab="Datenvolumen [B]", xlab="Alter [M]",
main="Altersverteilung", col="blue", ylog=TRUE, xpd=TRUE
#print(x)

#
# alle kritischen Befehle wurden wohl von Felix "behoben"  :(  - aber
danke  :)
#
	(rbind(User)) -> ueber
	print(ueber)
	list(ueber)
		x <- ncol(ueber)
		print(x)
		y <- nrow(ueber)
		print(y)
#{#			for (i in 1:x)
#				{fileseq <- (unlist(strsplit((a[i]), " "))[-1])
#				print(zeilen <- list(fileseq))
#				zeilen[i]<- zeilen
#				print(fileseq)}	
#					for (j in 1:17)	
#					{fileline <- as.logical(unlist((zeilen), " "))
#					fileline[j] <- list(fileline)
#					print(fileline[j])}
#}

#
#

#

#list(ueber)
#fix(ueber)
#dim(ueber)
#names(ueber)
#ausgabe der userdaten in R
#ueber$Sephal.Length
#ueber$Sepal.Width
#ausgabe der userdaten in einem Übersichtpopup

#anzahl der Zeilen, die "files" besitzt

#
#daten der einzelnen datein in den Speicher schreiben
#file <- unlist(files), NA = TRUE
#print(file)
#meinetabelle <- read.table(file, header=FALS)
#a <- read.table(file=stdin(User),header=FALSE)
#meinetabelle <- read.table(, sep=?\t?, header=FALSE)
#simul<-data.frame(times=c(0, anz),simul=c(3,4,5,6))
#mget(files, envir =  , mode = "any",
  #  inherits = TRUE)


#
#read.table(files)
#
#


#date(inbox)
#attach(files, pos == anz, name = deparse(substitute(files)),
#warn.conflicts = TRUE)

#step(anz, scope, scale = 1,
#     direction = c("forward"),
 #    trace = 1, keep = NULL, steps = anz, k = 1)
        #test <- as.numeric(unlist(strsplit((a[i]), " "))[-1])
	#print(nrow(test))