Как использовать lapply для двух переменных в приложении Shiny?

У меня есть следующий фрагмент кода:

  observeEvent(subsettedData(), {
    lapply(col_names, function(var) {
      selections <- unique(subsettedData()[[var]])
      if (length(input[[var]]) == 0)
        updateSelectInput(session = session, inputId = var, choices = selections)
    })
  }) 

Я хотел бы переделать его, чтобы включить тот факт, что inputId отличается от имен столбцов в подмножествах данных.

Вместо того, чтобы применить приведенный выше код к col_names, я пытаюсь применить его таким образом с двумя переменными:

  observeEvent(subsettedData(), {
    lapply(col_names, col_aliases, function(cn, an) {
      selections <- unique(subsettedData()[[cn]])
      if (length(input[[cn]]) == 0)
        updateSelectInput(session, inputId = an, choices = selections)
    })
  }) 

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