make invisible

rwebapps · Dec 10, 2013 · 0e45da2 · 0e45da2
1 parent 75423aa
commit 0e45da2
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/listbyindustry.R b/R/listbyindustry.R
@@ -2,7 +2,7 @@ listbyindustry <- function(){
   newtable <- with(stocktable, data.frame(id=paste0("symbol_", Ticker), text=paste(Ticker, "-", Company), leaf=TRUE, Industry=Industry, Sector=Sector));
   mydata <- splitIntoTree(newtable, "Sector");
   mydata$children <- lapply(mydata$children, splitIntoTree, f="Industry", out=c("id", "text", "leaf"));
-  return(list("text"=".", children=mydata))
+  invisible(list("text"=".", children=mydata))
 }
 
 splitIntoTree <- function(x, f, out){