funcionamento do reactable e flextable

funcionamento_do_reactable.R

# -----------------------------------------------------------------------
# reactable 
# -----------------------------------------------------------------------

library(reactable)
library(reactablefmtr)
library(dplyr)
library(flextable)
#library(sparkline)

# reactable do data.frame
reactable(mtcars)
# flextable do data.frame
flextable(mtcars)

# reactable do AM
mtcars %>% pull(am) %>% table() %>% prop.table()%>% data.frame() %>%  reactable()

# MPG grouped por AM
mtcars %>% select(mpg,am) %>%
  reactable(
    groupBy = "am",
    defaultColDef = colDef(
      aggregate = "sum"
    )
  )