BUG: Блестящая tableOutput дает ошибку на 0-строке data.frame

Question

(Является ли это правильное место, чтобы сообщить Блестящие ошибки?)

tableOutput дает следующее сообщение об ошибке при передаче в 0-рядная data.frame:

Warning in matrix(align.tmp[(2 - pos):(ncol(x) + 1)], nrow = nrow(x), ncol = ncol(x) + : 
    data length exceeds size of matrix 

ui.R:

library(shiny) 
shinyUI(fluidPage(
    mainPanel(
     tableOutput("view")))) 

server.R:

library(shiny) 
shinyServer(function(input, output) { 
    output$view <- renderTable({data.frame(col=character(0))}) 
}) 

sessionInfo:

R version 3.1.0 (2014-04-10) 
Platform: x86_64-apple-darwin13.1.0 (64-bit) 

locale: 
[1] C 

attached base packages: 
[1] stats  graphics grDevices utils  datasets methods base  

other attached packages: 
[1] shiny_0.10.1 

loaded via a namespace (and not attached): 
[1] RJSONIO_1.2-0.2 Rcpp_0.11.2  bitops_1.0-6 caTools_1.17 
[5] digest_0.6.4 htmltools_0.2.4 httpuv_1.3.0 tools_3.1.0  
[9] xtable_1.7-3 

Answer 1

Это не проблема с shiny довольно xtable:

> library(xtable) 
> rr <-xtable(data.frame(col=character(0))) 
> print(rr, type = 'html') 
<!-- html table generated in R 3.1.1 by xtable 1.7-3 package --> 
<!-- Wed Sep 03 00:22:48 2014 --> 
<TABLE border=1> 
<TR> <TH> </TH> <TH> col </TH> </TR> 
    </TABLE> 
Warning message: 
In matrix(align.tmp[(2 - pos):(ncol(x) + 1)], nrow = nrow(x), ncol = ncol(x) + : 
    data length exceeds size of matrix 

Также это не ошибка, а предупреждение.