Sample Table of Resources

data_in <- tibble::tribble(
  ~Project, ~url, ~Type, ~Description,
  "Canvas & R", "https://n8craig.github.io/nmsu-grades/index.html", "Web Site", "Thoughts  and notes on usnig R with Canvas",
  "ICE Inspection Review", "https://n8craig.github.io/inspections/index.html", "Web Site", "An exploration of ICE facility inspection information"
) 

data_in %>%
  reactable(
    searchable = TRUE,
    pagination = FALSE,
    columns = list(
      Project = colDef(
        minWidth = 150,
        cell = function(value, index) {
          url_in <- data_in$url[index]
          htmltools::a(href = url_in, value)
        }
      ),
      url = colDef(show = FALSE),
      Type = colDef(minWidth = 115),
      Description = colDef(minWidth = 250)
    ),
    theme = reactableTheme()
  )

Warning: `bindFillRole()` only works on htmltools::tag() objects (e.g., div(),
p(), etc.), not objects of type 'shiny.tag.list'.