mirror of https://github.com/msberends/AMR.git
12 lines
310 B
R
12 lines
310 B
R
context("print.R")
|
|
|
|
|
|
test_that("tibble printing works", {
|
|
library(dplyr)
|
|
library(data.table)
|
|
expect_output(print(starwars))
|
|
expect_output(print(starwars %>% group_by(homeworld, gender)))
|
|
expect_output(print(starwars %>% as.data.table(), print.keys = TRUE))
|
|
expect_output(print(septic_patients))
|
|
})
|