Using Reactable with YAML

app.R

# Loading Libraries ----

library(reactable)
library(yaml)
library(shiny)

# Generate Reactable Function ----

generate_reactable <- function(data,
                               table_type,
                               yaml_file_path = "config.yml") {

  config <- read_yaml(yaml_file_path)[[table_type]]

  reactable(
    data,
    searchable = config$searchable,
    filterable = config$filterable,
    pagination = config$pagination,
    defaultPageSize = config$defaultPageSize
  )
}

# Shiny Layer ----

ui <- fluidPage(
  reactableOutput("table_a"),
  br(),
  reactableOutput("table_b")
)

server <- function(input, output, session) {

  output$table_a <- renderReactable({
    generate_reactable(mtcars, "table_a")
  })

  output$table_b <- renderReactable({
    generate_reactable(mtcars, "table_b")
  })
}

shinyApp(ui, server)

config.yml

table_a:
  searchable: false
  filterable: false
  pagination: true
  defaultPageSize: 4
table_b:
  searchable: true
  filterable: true
  pagination: false
  defaultPageSize: 10