r - read_excel を使用して異なる col_types セットを持つ複数のシートを取得する

Question

複数のシートを含む Excel ファイルを読み取り、各シートに col_types を指定したい場合、次のコードを使用します。

data_file <- "./input/data.xlsx"

sheet_names <- c("Sales", "Customs", "Departments")

col_type_list <- list(
  Sales = c(rep("text", 3), rep("numeric", 2)),
  Customs = rep("text", 5),
  Departments = rep("text", 4)
)

DList <- purrr::map2(.x = sheet_names, .y = col_type_list,
  .f = read_xlsx(
    path = data_file,
    sheet = .x,
    col_types = .y
  )
)

上記のコードを実行すると、次のエラー メッセージが表示されます。

Error in standardise_sheet(sheet, range, sheets_fun(path)) : 
  object '.x' not found

正しい .x と .y をコードに入れるにはどうすればよいですか?