fix previous code modification

ShixiangWang · ShixiangWang · commit e67c5057983a · 2023-05-09T09:54:15.000+08:00
diff --git a/CRAN-SUBMISSION b/CRAN-SUBMISSION
@@ -1,3 +1,3 @@
 Version: 1.0.4
-Date: 2023-05-08 07:33:11 UTC
-SHA: ba6e0838e20c813760255ff4ecce476d1f1a97a0
+Date: 2023-05-08 08:27:25 UTC
+SHA: fd84b691b98f25bf0f3259212d12827d25e82215
diff --git a/R/ezcox.R b/R/ezcox.R
@@ -208,7 +208,7 @@ ezcox <- function(data, covariates, controls = NULL,
         model_file = ifelse(exists("model_file"), model_file, NA_character_)
       )
     } else {
-      if (is(cox, "coxph") | all(is.na(tbl[["ref_level"]]))) {
+      if (!is(cox, "coxph") | all(is.na(tbl[["ref_level"]]))) {
         glob.pval <- p.value <- beta <- HR <- lower_95 <- upper_95 <- NA
       } else {
         cox <- summary(cox)

Original file line number	Diff line number	Diff line change
`@@ -208,7 +208,7 @@ ezcox <- function(data, covariates, controls = NULL,`
`208`	`208`	`model_file = ifelse(exists("model_file"), model_file, NA_character_)`
`209`	`209`	`)`
`210`	`210`	`} else {`
`211`		`- if (is(cox, "coxph") \| all(is.na(tbl[["ref_level"]]))) {`
	`211`	`+ if (!is(cox, "coxph") \| all(is.na(tbl[["ref_level"]]))) {`
`212`	`212`	`glob.pval <- p.value <- beta <- HR <- lower_95 <- upper_95 <- NA`
`213`	`213`	`} else {`
`214`	`214`	`cox <- summary(cox)`