Skip to content

[R-es] excel

2 messages · Jose Betancourt B., Carlos Ortega

Original
Jose Betancourt B.
# 
Estimados
NO ENCUENTRO EL FORMATO ADECUADO PARA SALVAR LA TABLA EXCEL EN OTRO
LUGAR, por ejemplo, en escritorio

library(pivottabler)
pt <- PivotTable$new()
pt$addData(bhmtrains)
pt$addColumnDataGroups("TrainCategory")
pt$addColumnDataGroups("PowerType")
pt$addRowDataGroups("TOC")
pt$defineCalculation(calculationName="TotalTrains", summariseExpression="n()")
pt$evaluatePivot()

library(openxlsx)
wb <- createWorkbook(creator = Sys.getenv("USERNAME"))
addWorksheet(wb, "Data")
pt$writeToExcelWorksheet(wb=wb, wsName="Data",
                         topRowNumber=1, leftMostColumnNumber=1,
                         applyStyles=TRUE, mapStylesFromCSS=TRUE)
saveWorkbook(wb, file="C:\\test.xlsx", overwrite = TRUE) # salvarla en
otro lugar
Carlos Ortega
# 
Hola José,

Tienes que incluir esa ruta donde quieres dejar el fichero en la línea de
"saveWorkbook("...
Así:

#--------------------------
library(openxlsx)
wb <- createWorkbook(creator = Sys.getenv("USERNAME"))
addWorksheet(wb, "Data")
pt$writeToExcelWorksheet(wb=wb, wsName="Data",
                         topRowNumber=1, leftMostColumnNumber=1,
                         applyStyles=TRUE, mapStylesFromCSS=TRUE)
saveWorkbook(wb, file="C:\\*Escritorio\\*test.xlsx", overwrite = TRUE) #
salvarla en
otro lugar
#-----------------------

Mira en tu explorador de archivos de windows para ver cómo se llama
realmente la carpeta, porque aunque tengas un Windows en español, en vez de
"Escritorio" ese directorio, se llama "Desktop".

Gracias,
Carlos.
www.qualityexcellence.es


El jue., 11 jun. 2020 a las 14:39, Jose Betancourt B. (<betanster en gmail.com>)
escribió: