R/test-utils.R

In reactable: Interactive Data Tables for R

Defines functions getAttrib getAttribs

getAttribs <- function(widget) {
  widget$x$tag$attribs
}

getAttrib <- function(widget, name) {
  widget$x$tag$attribs[[name]]
}

Try the reactable package in your browser