[R-es] excel

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ó:

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
--



saludos
Dr. Jose A. Betancourt Bethencourt
Universidad de Ciencias Medicas Carlos j. Finlay

_______________________________________________
R-help-es mailing list
R-help-es en r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es

Saludos,
Carlos Ortega
www.qualityexcellence.es

	[[alternative HTML version deleted]]