Скрыть определенные столбцы в гибкой таблице данных с помощью пакета DT

Я пытаюсь создать гибкую таблицу данных для своего блестящего приложения с помощью пакета DT. Я хочу скрыть определенные столбцы заранее. Например:

library("shiny")
library("DT")
shinyApp(
  ui = fluidPage(DT::dataTableOutput('tbl')),
  server = function(input, output) {
    output$tbl = DT::renderDataTable(
      iris,extensions="Responsive"
    )
  }
)

Этот вывод дает мне 5 столбцов. Он только скрывает столбцы, когда я сужу страницу. Но я хочу скрыть последние 3 столбца заранее, и я просто хочу видеть первые два столбца каждый раз. Есть ли способ сделать это?

Update:

Пример вывода

Ответ 1