Skip to content
Open
Show file tree
Hide file tree
Changes from 1 commit
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
5 changes: 4 additions & 1 deletion R/zzz.R
Original file line number Diff line number Diff line change
@@ -1,7 +1,10 @@
whisker_env <- NULL

.onLoad <- function(libname, pkgname) {
default_whiskers <- c(patient_label = "patients")
default_whiskers <- c(
patients_label = "patients",
patient_label = "patient"
)
whisker_env <<- new.env(parent = globalenv())
add_whisker(default_whiskers)
}
6 changes: 3 additions & 3 deletions tests/testthat/test-render_safe.R
Original file line number Diff line number Diff line change
Expand Up @@ -22,8 +22,8 @@ test_that("add_whisker and remove_whisker works", {
# render_safe ----

test_that("render_safe works", {
expect_identical(render_safe("patient label is {Patient_label}"), "patient label is Patients")
expect_identical(render_safe("patient label is {patient_label}"), "patient label is patients")
expect_identical(render_safe("patient label is {PATIENT_LABEL}"), "patient label is PATIENTS")
expect_identical(render_safe("patient label is {Patients_label}"), "patient label is Patients")
expect_identical(render_safe("patient label is {patients_label}"), "patient label is patients")
expect_identical(render_safe("patient label is {PATIENTS_LABEL}"), "patient label is PATIENTS")
expect_identical(render_safe("patient label is {misspell}"), "patient label is misspell")
})