fixed minor bug

Author: vlabatut

src/static/plot_stats_base.R

@@ -242,22 +242,26 @@ generate.static.plots.evol <- function(data, arcs, filtered)
 			}
 
 			# generate barplots
-			file <- get.path.stats.topo(mode=mode, char.det=char.det, net.type="static", meas.name=meas.name, weights=wmode, arc=if(arcs) TRUE else NA, vol=if(arcs) NA else TRUE, filtered=filt.txt, suf="evolution")
-			tlog(4,"Generating file ",file)
-			for(fformat in PLOT_FORMAT)
-			{	if(fformat==PLOT_FORMAT_PDF)
-					pdf(file=paste0(file,PLOT_FORMAT_PDF), bg="white")
-				else if(fformat==PLOT_FORMAT_PNG)
-					png(filename=paste0(file,PLOT_FORMAT_PNG), width=800, height=800, units="px", pointsize=20, bg="white")
-					barplot(
-						height=vals,
-						names.arg=if(arcs) 1:length(items) else items,
-						ylab=ALL_MEASURES[[meas.name]]$cname,
-						xlab=if(arcs) "Narrative Arcs" else "Volumes",
-						main=paste0("Evolution of ",ALL_MEASURES[[meas.name]]$cname," by ",if(arcs) "arc" else "volume"),
-						col=col
-					)
-				dev.off()
+			if(all(is.na(vals)))
+				tlog(6,"WARNING: nothing to plot, all values are NAs")
+			else
+			{	file <- get.path.stats.topo(mode=mode, char.det=char.det, net.type="static", meas.name=meas.name, weights=wmode, arc=if(arcs) TRUE else NA, vol=if(arcs) NA else TRUE, filtered=filt.txt, suf="evolution")
+				tlog(4,"Generating file ",file)
+				for(fformat in PLOT_FORMAT)
+				{	if(fformat==PLOT_FORMAT_PDF)
+						pdf(file=paste0(file,PLOT_FORMAT_PDF), bg="white")
+					else if(fformat==PLOT_FORMAT_PNG)
+						png(filename=paste0(file,PLOT_FORMAT_PNG), width=800, height=800, units="px", pointsize=20, bg="white")
+						barplot(
+							height=vals,
+							names.arg=if(arcs) 1:length(items) else items,
+							ylab=ALL_MEASURES[[meas.name]]$cname,
+							xlab=if(arcs) "Narrative Arcs" else "Volumes",
+							main=paste0("Evolution of ",ALL_MEASURES[[meas.name]]$cname," by ",if(arcs) "arc" else "volume"),
+							col=col
+						)
+					dev.off()
+				}
 			}
 		}
 	}