P281424/AMR
1
0
Fork 0
mirror of https://github.com/msberends/AMR.git synced 2024-12-26 20:06:11 +01:00
Code Releases Activity

unit test fail

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
R/freq.R
View File

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

2
tests/testthat/test-mdro.R
View File

@ -20,7 +20,7 @@ test_that("mdro works", {
# septic_patients should have these finding using Dutch guidelines # septic_patients should have these finding using Dutch guidelines
expect_equal(outcome %>% freq() %>% pull(count), 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)) expect_equal(brmo(septic_patients, info = FALSE), mdro(septic_patients, "nl", info = FALSE))