Put the nycflights data into an Excel spreadsheet

There are 5 data tables in the nycflights13 dataset.

Let put the 5 tables into an Excel spreadsheet containing the 5 data tables.

library(pacman)

p_load(openxlsx, nycflights13)

flights

airlines

airports

planes

weather

NA

# Create a blank workbook
OUT <- createWorkbook()

# Add some sheets to the workbook
addWorksheet(OUT, "flights")
addWorksheet(OUT, "airlines")
addWorksheet(OUT, "airports")
addWorksheet(OUT, "planes")
addWorksheet(OUT, "weather")

# Write the data to the sheets
writeData(OUT, sheet = "flights", x = flights)
writeData(OUT, sheet = "airlines", x = airlines)
writeData(OUT, sheet = "airports", x = airports)
writeData(OUT, sheet = "planes", x = planes)
writeData(OUT, sheet = "weather", x = weather)

# Export the file
saveWorkbook(OUT, "nycflights13_ver01.xlsx")

nycflights13_df_list <- c("flights", "airlines", "airports", "planes", "weather")

for(name in nycflights13_df_list){
  write.xlsx(x = get(name), 
             file = "nycflights13_ver02.xlsx", 
             sheetName = name)
}

Another way to write .xlsx files.

library(WriteXLS)
nycflights13_df_list <- c("flights", "airlines", "airports", "planes", "weather")
WriteXLS(nycflights13_df_list, "nycflights13_ver03.xlsx", names(nycflights13_df_list))