# XLConnect is already available

# Build connection to urbanpop.xlsx

my_book <- loadWorkbook("urbanpop.xlsx")

# Import columns 3, 4, and 5 from second sheet in my_book: urbanpop_sel

urbanpop_sel <- readWorksheet(my_book, sheet = 2,startCol=3,endCol=5)

# Import first column from second sheet in my_book: countries

countries<-readWorksheet(my_book, sheet = 2,startCol=1,endCol=1)

# cbind() urbanpop_sel and countries together: selection

selection<-cbind(countries,urbanpop_sel)

# Load the XLConnect package

library(XLConnect)

# Build connection to renamed.xlsx: my_book

my_book<-loadWorkbook("renamed.xlsx")

# Remove the fourth sheet

removeSheet(my_book,"summary")

# Save workbook to "clean.xlsx"

saveWorkbook(my_book,"clean.xlsx")

# Build connection to urbanpop.xlsx

my_book <- loadWorkbook("urbanpop.xlsx")

# Add a worksheet to my_book, named "data_summary"

createSheet(my_book,name="data_summary")

# Use getSheets() on my_book

getSheets(my_book)