spellcheck

simonpcouch · simonpcouch · commit 5b0a2a7dfd68 · 2020-01-31T15:52:29.000-08:00
diff --git a/R/utils.R b/R/utils.R
@@ -139,7 +139,7 @@ check_order <- function(x, explanatory_variable, order) {
       "\"{unique_ex[1]}\" - \"{unique_ex[2]}\". To specify the ",
       "order yourself, provide `order = c(\"{unique_ex[1]}\", ",
       "\"{unique_ex[2]}\")` (to subtract in the order ",
-      "\"{unique_ex[1]}\" - \"{unique_ex[2]}\" to the calculate() function."
+      "\"{unique_ex[1]}\" - \"{unique_ex[2]}\") to the calculate() function."
     )
   } else {
     if (xor(is.na(order[1]), is.na(order[2]))) {

Original file line number	Diff line number	Diff line change
`@@ -139,7 +139,7 @@ check_order <- function(x, explanatory_variable, order) {`
`139`	`139`	`"\"{unique_ex[1]}\" - \"{unique_ex[2]}\". To specify the ",`
`140`	`140`	"order yourself, provide `order = c(\"{unique_ex[1]}\", ",
`141`	`141`	"\"{unique_ex[2]}\")` (to subtract in the order ",
`142`		`- "\"{unique_ex[1]}\" - \"{unique_ex[2]}\" to the calculate() function."`
	`142`	`+ "\"{unique_ex[1]}\" - \"{unique_ex[2]}\") to the calculate() function."`
`143`	`143`	`)`
`144`	`144`	`} else {`
`145`	`145`	`if (xor(is.na(order[1]), is.na(order[2]))) {`