github/shiny
1
1
Fork 0
mirror of https://github.com/rstudio/shiny.git synced 2026-04-29 03:00:45 -04:00
Code Issues Packages Projects Releases Wiki Activity

initialize header_alignments in a clearer way

Browse Source
This commit is contained in:
Barbara Borges Ribeiro
2016-03-12 17:36:01 +00:00
parent cc406262ac
commit 0896b2f7b8
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
R/render-table.R
View File

@@ -177,7 +177,7 @@ renderTable <- function(expr, striped=FALSE, condensed=TRUE,
# Create a vector whose i-th entry corresponds to the i-th table variable
# alignment (substituting "l" by "left", "c" by "center" and "r" by "right")
header_alignments <- c()
header_alignments <- character(0)
for (i in seq_len(nchar(cols))) {
header_alignments[i] <- {
if (substr(cols, i, i) == "l") "left"