Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- for (i in 2 : ncol(code)){
- ...
- tempTable <- ...
- sn <- ...
- WriteXLS("tempTable", ExcelFileName = "C:/R_code/../file.xlsx",
- SheetNames = sn);
- }
- library(xlsx)
- write.xlsx(dataframe1, file="filename.xlsx", sheetName="sheet1", row.names=FALSE)
- write.xlsx(dataframe2, file="filename.xlsx", sheetName="sheet2", append=TRUE, row.names=FALSE)
- wb = createWorkbook()
- sheet = createSheet(wb, "Sheet 1")
- addDataFrame(dataframe1, sheet=sheet, startColumn=1, row.names=FALSE)
- addDataFrame(dataframe2, sheet=sheet, startColumn=10, row.names=FALSE)
- sheet = createSheet(wb, "Sheet 2")
- addDataFrame(dataframe3, sheet=sheet, startColumn=1, row.names=FALSE)
- saveWorkbook(wb, "My_File.xlsx")
- require(openxlsx)
- list_of_datasets <- list("Name of DataSheet1" = dataframe1, "Name of Datasheet2" = dataframe2)
- write.xlsx(list_of_datasets, file = "writeXLSX2.xlsx")
- library(writexl)
- sheets <- list("sheet1Name" = sheet1, "sheet2Name" = sheet2) #assume sheet1 and sheet2 are data frames
- write_xlsx(sheets, "path/to/location")
- # Create a blank workbook
- OUT <- createWorkbook()
- # Add some sheets to the workbook
- addWorksheet(OUT, "Sheet 1 Name")
- addWorksheet(OUT, "Sheet 2 Name")
- # Write the data to the sheets
- writeData(OUT, sheet = "Sheet 1 Name", x = dataframe1)
- writeData(OUT, sheet = "Sheet 2 Name", x = dataframe2)
- # Export the file
- saveWorkbook(OUT, "My output file.xlsx")
- library(XLConnect)
- ##
- newWB <- loadWorkbook(
- filename="F:/TempDir/tempwb.xlsx",
- create=TRUE)
- ##
- for(i in 1:10){
- wsName <- paste0("newsheet",i)
- createSheet(
- newWB,
- name=wsName)
- ##
- writeWorksheet(
- newWB,
- data=data.frame(
- X=1:10,
- Dataframe=paste0("DF ",i)),
- sheet=wsName,
- header=TRUE,
- rownames=NULL)
- }
- saveWorkbook(newWB)
- install.packages("openxlsx")
- library("openxlsx")
- start.time <- Sys.time()
- # Creating large data frame
- x <- as.data.frame(matrix(1:4000000,200000,20))
- y <- as.data.frame(matrix(1:4000000,200000,20))
- z <- as.data.frame(matrix(1:4000000,200000,20))
- # Creating a workbook
- wb <- createWorkbook("Example.xlsx")
- Sys.setenv("R_ZIPCMD" = "C:/Rtools/bin/zip.exe") ## path to zip.exe
- # Adding a worksheets : parameters for addWorksheet are 1. Workbook Name 2. Sheet Name
- addWorksheet(wb, "Sheet 1")
- addWorksheet(wb, "Sheet 2")
- addWorksheet(wb, "Sheet 3")
- # Writing data in to respetive sheets: parameters for writeData are 1. Workbook Name 2. Sheet index/ sheet name 3. dataframe name
- writeData(wb, 1, x)
- # incase you would like to write sheet with filter available for ease of access you can pass the parameter withFilter = TRUE in writeData function.
- writeData(wb, 2, x = y, withFilter = TRUE)
- ## Similarly writeDataTable is another way for representing your data with table formatting:
- writeDataTable(wb, 3, z)
- saveWorkbook(wb, file = "Example.xlsx", overwrite = TRUE)
- end.time <- Sys.time()
- time.taken <- end.time - start.time
- time.taken
- library(WriteXLS)
- x <- list(sheet_a = data.frame(a=letters), sheet_b = data.frame(b = LETTERS))
- WriteXLS(x, "test.xlsx", names(x))
- ?WriteXLS
- `x`: A character vector or factor containing the names of one or
- more R data frames; A character vector or factor containing
- the name of a single list which contains one or more R data
- frames; a single list object of one or more data frames; a
- single data frame object.
- mywritexlsx<-function(fname="temp.xlsx",sheetname="Sheet1",data,
- startCol = 1, startRow = 1, colNames = TRUE, rowNames = FALSE)
- {
- if(! file.exists(fname))
- wb = createWorkbook()
- else
- wb <- loadWorkbook(file =fname)
- sheet = addWorksheet(wb, sheetname)
- writeData(wb,sheet,data,startCol = startCol, startRow = startRow,
- colNames = colNames, rowNames = rowNames)
- saveWorkbook(wb, fname,overwrite = TRUE)
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement