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

check if rownames are numbers or strings

Browse Source
This commit is contained in:
Barbara Borges Ribeiro
2016-03-07 12:21:39 +00:00
parent a9ba0fdb0b
commit 7ff51d89fc
1 changed files with 20 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
R/render-bootstrap-table.R
View File

@@ -67,7 +67,26 @@ renderBootstrapTable <- function(expr, format="basic", width="auto",
non_xtable_args <- dots[setdiff(names(dots), xtable_argnames)]
# Figure out column alignment
if ( is.null(align) ) xtable_args <- c( xtable_args, align = NULL )
## Case 1: if align=NULL, check if rownames are numbers. If not, make
## sure to left align them (xtable right aligns them by default, which
## looks weird when the rownames are strings).
if ( is.null(align) ){
n <- rownames( data )
if ( !( suppressWarnings( is.na( all( n == as.character( as.numeric(n) )))))){
xtable_args <- c( xtable_args, align = NULL )
}
else {
cols <- "l"
for ( i in 1:ncol(data) ){
cls <- class( data[,i] )
if ( cls=="numeric" || cls=="integer" ) cols <- paste0( cols, "r" )
else cols <- paste0( cols, "l" )
}
xtable_args <- c( xtable_args, align = cols )
}
}
## Case 2: if align!=NULL, check if it is only one character or a vector
## and process it accordingly.
else {
num_cols <- ifelse( rownames, nchar(align), nchar(align) + 1 )
valid <- !grepl( "[^lcr]", align )