inst/tinytest/test-methods.R

source("helpers.R")
using("tinysnapshot")

dat <- do.call(rbind, by(iris, ~Species, head, n = 2))
tab <- tt(dat) |>
  group_tt(i = Species) |>
  subset(select = -Species)
expect_snapshot_print(tab, label = "methods-groupi-subset.md")


tab <- tt(mtcars[1:4, ]) |>
  subset(select = c(am, mpg, cyl))
expect_snapshot_print(tab, label = "methods-subset_01.md")

Try the tinytable package in your browser

Any scripts or data that you put into this service are public.

tinytable documentation built on Nov. 5, 2025, 5:42 p.m.