escribirTabla: Write a matrix or data.frame with styles in a sheet of a...
In tablaxlsx: Write Formatted Tables in Excel Workbooks

View source: R/escribirTabla.R

escribirTabla

R Documentation

Write a matrix or data.frame with styles in a sheet of a excel workbook

Description

Write a matrix or data.frame with format in a sheet of a excel workbook, In the position and styles indicated in the parameters

Usage

escribirTabla(tabla, wb=NULL,hoja=NULL,fichero=NULL, 
              limpiarFilas=TRUE,limpiarColumnas=TRUE,limpiarValores=NA,
              cabecera = "", fuente = "", notas = "",
              fila = 7, columna = 3, decimales = 1, porcentaje = FALSE,
              cabecerasFila = TRUE, cabecerasColumna = TRUE, 
              cabeceraFilas="",cabeceraColumnas="",
              anchoCabecera = 10,anchoDatos = 14, 
              escudo = NULL,posEscudo=c(1,1),
              tamEscudo=c(2.7,4.5),unidadesEscudo="cm",
              estilos=options("tablaxlsx.Estilos")[[1]],
              bordes = c("TABLA","CABECERA","CABECERASFILA","CABECERASCOLUMNA","DATOS"),
              estilosBordes = NULL)

Arguments

`tabla`	The matrix, data.frame or ftable to write
`wb`	The Workbook. If NULL is created
`hoja`	The name o position of Worksheet. If it does not exist or is NULL is created
`fichero`	The name of a file where the Workbook is saved. If NULL it is not saved
`limpiarFilas`	If it is TRUE are deleted rows in which all values are in limpiarValores
`limpiarColumnas`	If it is TRUE are deleted columns in which all values are in limpiarValores
`limpiarValores`	Values used for cleaning
`cabecera`	A text to be written in the header of the table
`fuente`	A text that is written at the end of the table
`notas`	One or more texts to write after the `fuente`
`fila`	The row of tht upper-left cell where the table will be written
`columna`	The column of tht upper-left cell where the table will be written
`decimales`	Number of decimal places that are written with the numerical data. It can be a vector, in which case it is applied successively to each column, recycling the values if necessary
`porcentaje`	If the data is given percentage format or not. It may be a vector, in which case it is applied successively to each column, recycling values if required
`cabecerasFila`	If you write or not the rows headers, which will be the names of the rows of the matrix or the corresponding elements of a ftable
`cabecerasColumna`	If you write or not the columns headers, which will be the names of the rows of the matrix or the corresponding elements of a ftable
`cabeceraFilas`	Text to write above the row's headers
`cabeceraColumnas`	Text to write above the row's headers
`anchoCabecera`	The width, in characters, of the columns of the row header
`anchoDatos`	The width, in characters, of the data columns
`escudo`	If it is NULL does not any figure, if it is a text is inserted the figure that is in the file
`posEscudo`	Position, row and column, of the figure, if escudo is not NULL
`tamEscudo`	A vector with Height and Width of the figure
`unidadesEscudo`	Units of the height of the image. By default "cm"
`estilos`	A list with the styles to apply to the various elements of the table.
`bordes`	A vector with the names of the elements in the table will be to surround with edges, the possible values are: CABECERA, CABECERASFILA, CABECERASCOLUMNA, DATOS, TABLA (the entire table)
`estilosBordes`	A list with the styles of the various edges. Each item will be called with one of the possible names on bordes.

Details

Edges are drawn in the order: CABECERA,CABECERASFILA,CABECERASCOLUMNA,DATOS,TABLA

Value

If it have created a Workbook returns the Workbook created, otherwise returns a vector with the row and column of the lower-right cell of the table with notes and source in the worksheet and the lower-right cell of the table only.

Examples

## Example 1
matriz=matrix(runif(20),4,5)
wb=createWorkbook()
hoja=addWorksheet(wb,"Prueba")
escribirTabla(matriz,wb,hoja,fila=4,columna=4)
if(interactive()) openXL(wb)

# Example 2
f1=ftable(mtcars[,c(2,8:11)],col.vars=3:4)
wb=escribirTabla(f1,estilos=estilosDGE,bordes=c("TABLA","DATOS"),
                 escudo=system.file("img/logoJMR.png",package="tablaxlsx"))
l1=escribirTabla(f1,wb,"otra",anchoCabecera=20,estilos=estilosDGE,bordes=c("TABLA","DATOS"),
                escudo=system.file("img/logoJMR.png",package="tablaxlsx"),
                posEscudo=c(2,2),tamEscudo=c(1,1))
if(interactive()) openXL(wb)

tablaxlsx documentation built on May 31, 2023, 8:51 p.m.