use intersect()

strengejacke · strengejacke · commit 869d2ae8d675 · 2025-07-07T22:25:58.000+02:00
diff --git a/R/format_p_adjust.R b/R/format_p_adjust.R
@@ -191,7 +191,7 @@ format_p_adjust <- function(method) {
     ci_level <- 0.95
   }
   # find degrees of freedom column, if available
-  df_column <- colnames(params)[stats::na.omit(match(c("df", "df_error"), colnames(params)))][1]
+  df_column <- intersect(c("df", "df_error"), colnames(params))[1]
   if (is.na(df_column)) {
     return(params)
   }

Original file line number	Diff line number	Diff line change
`@@ -191,7 +191,7 @@ format_p_adjust <- function(method) {`
`191`	`191`	`ci_level <- 0.95`
`192`	`192`	`}`
`193`	`193`	`# find degrees of freedom column, if available`
`194`		`- df_column <- colnames(params)[stats::na.omit(match(c("df", "df_error"), colnames(params)))][1]`
	`194`	`+ df_column <- intersect(c("df", "df_error"), colnames(params))[1]`
`195`	`195`	`if (is.na(df_column)) {`
`196`	`196`	`return(params)`
`197`	`197`	`}`