Nothing
source("helpers.R")
requiet("haven")
requiet("labelled")
requiet("tinytable")
# datasummary labels",{
# datasummary()
dat <- mtcars
dat$am <- haven::labelled(
dat$am,
label = "Transmission"
)
dat$mpg <- haven::labelled(
dat$mpg,
label = "Miles per Gallon"
)
dat$hp <- haven::labelled(
dat$hp,
label = "Horsepower"
)
dat$cyl <- haven::labelled(
dat$cyl,
label = "Cylinders"
)
tab <- datasummary(
output = "dataframe",
mpg + hp ~ Factor(am) * (Mean + SD) + Factor(vs) * (Mean + SD),
data = dat
)
expect_true(all(c("Miles per Gallon", "Horsepower") %in% tab[[1]]))
expect_true("Transmission / 0 / Mean" %in% colnames(tab))
expect_true("vs / 0 / Mean" %in% colnames(tab))
# datasummary_skim()
tab <- datasummary_skim(dat)
expect_inherits(tab, "tinytable")
tab <- datasummary_skim(dat, output = "dataframe", type = "numeric")
expect_true("Miles per Gallon" %in% tab[[1]])
expect_true("Transmission" %in% tab[[1]])
expect_true("Horsepower" %in% tab[[1]])
expect_true("vs" %in% tab[[1]])
# datasummary_correlation()
tab <- datasummary_correlation(dat, output = "dataframe")
expect_true("Transmission" %in% tab[[1]])
expect_true("Transmission" %in% colnames(tab))
# datasummary_crosstab()
tab <- datasummary_crosstab(
am * cyl ~ gear * vs,
data = dat,
output = "data.frame"
)
expect_true("Cylinders" %in% colnames(tab))
expect_true("Transmission" %in% colnames(tab))
# # datasummary_balance is not supported yet
# expect_warning(expect_warning(
# tab <- datasummary_balance(~am, data = dat),
# pattern = "belled.*balance"),
# pattern = "It is not safe")
# modelsummary: use variable labels by default
data(trees)
dat <- trees
# no labels
mod <- list(
"Bivariate" = lm(Girth ~ Height, data = dat),
"Multivariate" = lm(Girth ~ Height + Volume, data = dat)
)
tab <- modelsummary(mod, "dataframe")
expect_true(all(c("Height", "Volume") %in% tab$term))
# with labels
dat$Height <- haven::labelled(dat$Height, label = "Height (in feet)")
dat$Volume <- haven::labelled(dat$Volume, label = "Volume (in liters)")
mod <- list(
"Bivariate" = lm(Girth ~ Height, data = dat),
"Multivariate" = lm(Girth ~ Height + Volume, data = dat)
)
tab <- modelsummary(mod, "dataframe", coef_rename = TRUE)
expect_true(all(c("Height (in feet)", "Volume (in liters)") %in% tab$term))
# interaction
data(trees)
dat <- trees
dat$Height <- haven::labelled(dat$Height, label = "Height (in feet)")
dat$Volume <- haven::labelled(dat$Volume, label = "Volume (in liters)")
mod <- lm(Girth ~ Height * Volume, data = dat)
tab <- modelsummary(mod, output = "dataframe", coef_rename = TRUE)
expect_true("Height (in feet) × Volume (in liters)" %in% tab$term)
# coef_rename ignores labels
data(trees)
dat <- trees
dat$height_2 <- haven::labelled(dat$Height, label = "Height (in feet)")
dat$volume_2 <- haven::labelled(dat$Volume, label = "Volume (in liters)")
mod <- list(
"Bivariate" = lm(Girth ~ height_2, data = dat),
"Multivariate" = lm(Girth ~ height_2 + volume_2, data = dat)
)
tab <- modelsummary(mod, "dataframe", coef_rename = coef_rename)
expect_true(all(c("Height 2", "Volume 2") %in% tab$term))
# modelsummary: also applies variable labels for depvar
dat <- mtcars
dat$mpg <- haven::labelled(dat$mpg, label = "Miles per gallon")
dat$cyl <- as.factor(dat$cyl)
dat$cyl <- haven::labelled(dat$cyl, label = "Number of cylinders")
mod <- list(
lm(mpg ~ cyl + drat + disp, data = dat),
lm(hp ~ cyl + drat + disp, data = dat)
)
tab <- modelsummary(dvnames(mod), "dataframe", coef_rename = TRUE)
expect_equivalent(names(tab)[4:5], c("Miles per gallon", "hp"))
expect_true("Number of cylinders" %in% tab$term)
# Issue #752
requiet("labelled")
v2 <- labelled(c(0L, 0L, 1L), labels = c(yes = 1, no = 0))
dat <- data.frame(v2, y = 1:3)
tab <- datasummary(y ~ Mean, dat)
expect_inherits(tab, "tinytable")
# Issue #807
df1 <- mtcars
attr(df1$cyl, "label") <- "Number of cylinders"
tab <- datasummary_crosstab(data = df1, formula = cyl ~ am)
tab <- save_tt(tab, "markdown")
expect_true(grepl("Number of cylinders", tab))
df2 <- mtcars
df2$cyl <- haven::labelled(df2$cyl, label = "Number of cylinders")
tab <- datasummary_crosstab(data = df2, formula = cyl ~ am)
tab <- save_tt(tab, "markdown")
expect_true(grepl("Number of cylinders", tab))
df3 <- mtcars
var_label(df3$cyl) <- "Number of cylinders"
tab <- datasummary_crosstab(data = df3, formula = cyl ~ am)
tab <- save_tt(tab, "markdown")
expect_true(grepl("Number of cylinders", tab))
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.