readWorksheet をカスタマイズする

Excel ファイルを開かずに urbanpop.xlsx（view）の概要を把握するには、次のコードを実行します。

my_book <- loadWorkbook("urbanpop.xlsx")
sheets <- getSheets(my_book)
all <- lapply(sheets, readWorksheet, object = my_book)
str(all)

ここでは 1968、1969、1970 年の都市人口データのみに関心があるとします。これらの年のデータは、2つ目のシートの 3、4、5 列にあります。これらの列だけを選ぶと、数値がどの国のものかが分からなくなってしまいます。

2つ目のシートの 3、4、5 列のみをインポートできるように、readWorksheet() に startCol と endCol の引数を追加して拡張してください。
これで urbanpop_sel には国名の情報が含まれなくなりました。2つ目のシートから最初の列だけをインポートする別の readWorksheet() を書けますか？結果のデータフレームは countries として保存します。
cbind() を使って、countries と urbanpop_sel をこの順で結合してください。結果は selection として保存します。