R help - Jan 2009 - odfWeave: Error in matrixPaste(...)

Hello all,
I try the follow test with an odf file.

*INPUT: teste.odt*
<teste, results=xml>>x <- matrix(rnorm(6), nc=2)
xst <- tableStyles(x, useRowNames = TRUE, header = NULL)
odfTable(x, styles=xst,  colnames = NULL, useRowNames = TRUE)
@

and I get this error:

*OUTPUT error:*
Error:  chunk 1 (label=teste)

Error in matrixPaste(textStart, textName, textEnd, x, tagEnd, sep = 
rep("",  :
  all matrices must have the same dim

Any hint is welcome.
Thanks in advance

Cleber




More details

 > odfWeave( 'teste.odt', 'out.odt')
  Copying  teste.odt
  Setting wd to  
C:\DOCUME~1\cborges\CONFIG~1\Temp\Rtmp1R0wvb/odfWeave13192909802
  Unzipping ODF file using unzip -o "teste.odt"
Archive:  teste.odt
 extracting: mimetype               
   creating: Configurations2/statusbar/
  inflating: Configurations2/accelerator/current.xml 
   creating: Configurations2/floater/
   creating: Configurations2/popupmenu/
   creating: Configurations2/progressbar/
   creating: Configurations2/menubar/
   creating: Configurations2/toolbar/
   creating: Configurations2/images/Bitmaps/
  inflating: content.xml            
  inflating: styles.xml             
 extracting: meta.xml               
  inflating: Thumbnails/thumbnail.png 
  inflating: settings.xml           
  inflating: META-INF/manifest.xml  

  Removing  teste.odt
  Creating a Pictures directory

  Pre-processing the contents
  Sweaving  content.Rnw

  Writing to file content_1.xml
  Processing code chunks ...
    1 : echo term xml(label=teste)

Error:  chunk 1 (label=teste)
Error in matrixPaste(textStart, textName, textEnd, x, tagEnd, sep = 
rep("",  :
  all matrices must have the same dim
 >
 >
 >
 > xst <- tableStyles(x)
 > xst
$table
[1] "RTable1"

$text
     [,1]            [,2]            [,3]          
[1,] "ArialCentered" "ArialCentered"
"ArialCentered"
[2,] "ArialCentered" "ArialCentered"
"ArialCentered"
[3,] "ArialCentered" "ArialCentered"
"ArialCentered"

$cell
     [,1]       [,2]       [,3]     
[1,] "noBorder" "noBorder" "noBorder"
[2,] "noBorder" "noBorder" "noBorder"
[3,] "noBorder" "noBorder" "noBorder"

$header
NULL

$headerCell
NULL



 > sessionInfo()
R version 2.8.1 (2008-12-22)
i386-pc-mingw32

locale:
LC_COLLATE=Portuguese_Brazil.1252;LC_CTYPE=Portuguese_Brazil.1252;LC_MONETARY=Portuguese_Brazil.1252;LC_NUMERIC=C;LC_TIME=Portuguese_Brazil.1252

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

other attached packages:
[1] odfWeave_0.7.9  XML_1.99-0      lattice_0.17-20

loaded via a namespace (and not attached):
[1] grid_2.8.1  tools_2.8.1
 >




		
_______________________________________________________ 

Experimente j? e veja as novidades.

> Hello all,
> I try the follow test with an odf file.
>
> *INPUT: teste.odt*
> <teste, results=xml>>> x <- matrix(rnorm(6), nc=2)
> xst <- tableStyles(x, useRowNames = TRUE, header = NULL)
> odfTable(x, styles=xst,  colnames = NULL, useRowNames = TRUE)
> @
Here is one issue: you are asking for the row names to be styled and
printed but your matrix has no row names. tableStyles creates a 3x3
matrix of styles but, when run through format, your matrix is 3x2.

However, there is an unrelated bug that this exposed since you are
using header = NULL. I'll need to fix that. A temporary work-around is
to get a blank header line via

   x <- matrix(rnorm(6), nc=2)
   rownames(x) <- letters[1:3] # create row names or have useRowNames = FALSE
   colnames(x) <- rep("", ncol(x))
   xst <- tableStyles(x, useRowNames = TRUE, header = NULL)
   odfTable(x, styles=xst,  colnames = NULL, useRowNames = TRUE)

or, since your data have no row names

   x <- matrix(rnorm(6), nc=2)
   xst <- tableStyles(x, useRowNames = FALSE, header = NULL)
   odfTable(x, styles=xst,  colnames = NULL, useRowNames = FALSE)

I'll be working on odfWeave Monday, so I'll try to get a fix out then.

Max