1
0
mirror of https://github.com/msberends/AMR.git synced 2024-12-25 20:06:12 +01:00

unit test fail

This commit is contained in:
dr. M.S. (Matthijs) Berends 2018-11-16 21:57:55 +01:00
parent 4fcc2b409a
commit 373e0cb32f
2 changed files with 9 additions and 2 deletions

View File

@ -543,7 +543,8 @@ diff.frequency_tbl <- function(x, y, ...) {
#' @importFrom dplyr n_distinct
#' @importFrom crayon bold silver
#' @export
print.frequency_tbl <- function(x, nmax = getOption("max.print.freq", default = 15), ...) {
print.frequency_tbl <- function(x, nmax = getOption("max.print.freq", default = 15),
markdown = !nteractive(), header = !markdown, ...) {
opt <- attr(x, 'opt')
@ -584,6 +585,12 @@ print.frequency_tbl <- function(x, nmax = getOption("max.print.freq", default =
opt$tbl_format <- "pandoc"
}
}
if (!missing(markdown)) {
opt$tbl_format <- "markdown"
}
if (!missing(header)) {
opt$header <- header
}
if (trimws(title) == "") {
title <- "Frequency table"

View File

@ -20,7 +20,7 @@ test_that("mdro works", {
# septic_patients should have these finding using Dutch guidelines
expect_equal(outcome %>% freq() %>% pull(count),
c(19989, 9, 2)) # 1167 not eval., 817 neg, 14 pos, 2 unconfirmed
c(1989, 9, 2)) # 1989 neg, 9 pos, 2 unconfirmed
expect_equal(brmo(septic_patients, info = FALSE), mdro(septic_patients, "nl", info = FALSE))