Пересылка аргументов в функции с purrr :: map_df

Возможное решение - создать именованную функцию, которая принимает только один аргумент, и передать его map, чтобы единственным аргументом был вектор / список, который вы перебираете в цикле.

Применительно к вашей проблеме решение будет выглядеть так:

# function with forwarding
read_all <- function(path, ...) {

  # function within function that sets the arguments path and ellipsis as given and only leaves sheet to be determined
  read_xl <- function(sheet) {
    readxl::read_excel(path = path, sheet, ...)
  }

  path %>%
    readxl::excel_sheets() %>%
    rlang::set_names() %>%
    purrr::map_df(read_xl)

}

# this allows you to pass along arguments in the ellipsis correctly
read_all(path)
read_all(path, col_names = FALSE)

Похоже, эта проблема возникает из-за неправильной обработки средой функции purrr::as_mapper. Чтобы обойти это, я предложил использовать анонимную функцию в комментариях. Судя по всему, подход, описанный ниже, тоже работает.

read_all <- function(path, ...) {

  path %>%
    readxl::excel_sheets() %>%
    rlang::set_names() %>%
    purrr::map_df(function(x) {
                      readxl::read_excel(path = path, sheet = x, ...)
                   })

}

Чтобы убедиться, что проблема действительно связана с as_mapper функцией, мы можем переписать названную функцию-в-функции сверху, используя as_mapper. Это снова приводит к ошибкам с дополнительными аргументами в многоточии и без них.

# function with forwarding
read_all <- function(path, ...) {

  # named mapper function
  read_xl <- purrr::as_mapper(~ readxl::read_excel(path = path, sheet = .x, ...))

  path %>%
    readxl::excel_sheets() %>%
    rlang::set_names() %>%
    purrr::map_df(read_xl)

} 

Обновление. Зная, что проблема связана с as_mapper, мы можем глубже изучить проблему. Теперь мы можем проверить в отладчике RStudio, что происходит под капотом при запуске простой версии read_excel сопоставителя:

read_xl <- purrr::as_mapper(~ readxl::read_excel(path = .x, sheet = .y, ...))
debugonce(read_xl) 
read_xl(path, 1)

Кажется, что когда многоточие включено в функцию сопоставления, as_mapper отображает первый аргумент не только на .x, но также автоматически на многоточие .... Мы можем проверить это, создав простую функцию отображения paster, принимающую два аргумента .x и ....

paster <- purrr::as_mapper(~ paste0(.x, ...))
paster(1)
> [1] "11"
paster(2)
> [1] "22"

Теперь вопрос: есть ли другой способ использования многоточия в функциях сопоставления или это ошибка.

Я бы подумал, что сработает следующее:

read_all <- function(path, ...) {

  path %>%
    readxl::excel_sheets() %>%
    purrr::set_names() %>%
    map_df(~readxl::read_excel(path=path, sheet=.x), ...)

}

потому что семейство map имеет аргумент ... для передачи дополнительных аргументов отображаемой функции. Однако следующий код игнорирует аргумент n_max и по-прежнему возвращает все строки различных фреймов данных вместо фрейма данных с 8 строками (по 2 строки из каждого из четырех листов):

p <- readxl_example("datasets.xlsx")
read_all(p, n_max=2)

Однако это работает:

read_all <- function(path, ...) {

  path %>% 
    excel_sheets() %>% 
    set_names() %>%
    map_df(read_excel, path=path, ...)

}

p <- readxl_example("datasets.xlsx")
read_all(path=p, n_max=2)

В приведенном выше примере path и любые дополнительные аргументы в ... передаются в read_excel и (очевидно) имя листа (которое было бы .x, если бы мы использовали его явно) неявно передается аргументу sheet, я думаю, потому что аргумент path, который первый, уже предоставлен. На самом деле я этого не понимаю, и это не кажется особенно прозрачным подходом, но я подумал, что выложу его на тот случай, если кто-то другой сможет объяснить, что происходит, и предоставить лучший код.