improve printing method for small tables

ebey · ebey · commit e55005737b20 · 2015-09-22T14:20:27.000-07:00
diff --git a/inst/shiny/global.R b/inst/shiny/global.R
@@ -155,7 +155,8 @@ attr.info <- function(df, colname, numattrs, breaks) {
     tab <- hist(df[[colname]], breaks = breaks, plot = FALSE)
     barname <- paste(tab$breaks[1:2], collapse = "-")
     for(i in seq(length(tab$breaks) - 2)){
-      barname <- append(barname, paste(tab$breaks[i+1]+1, tab$breaks[i+2], sep = "-"))
+      barname <- append(barname, paste(tab$breaks[i+1]+1,
+                                       tab$breaks[i+2], sep = "-"))
     }
     tab <- tab$counts
     names(tab) <- barname
diff --git a/inst/shiny/server.R b/inst/shiny/server.R
@@ -1462,7 +1462,10 @@ output$attrtbl_sm <- renderPrint({
       tbl_list[[a]] <- tab
     }
   }
-  tbl_list
+  for(a in attrname){
+    print(a, quote = FALSE)
+    print(tbl_list[[a]])
+  }
 })
 
 output$attrhist <- renderPlot({

Original file line number	Diff line number	Diff line change
`@@ -1462,7 +1462,10 @@ output$attrtbl_sm <- renderPrint({`
`1462`	`1462`	`tbl_list[[a]] <- tab`
`1463`	`1463`	`}`
`1464`	`1464`	`}`
`1465`		`- tbl_list`
	`1465`	`+ for(a in attrname){`
	`1466`	`+ print(a, quote = FALSE)`
	`1467`	`+ print(tbl_list[[a]])`
	`1468`	`+ }`
`1466`	`1469`	`})`
`1467`	`1470`
`1468`	`1471`	`output$attrhist <- renderPlot({`