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