I need to select any character variables in a data frame but exclude any that have correctly accented French variables.

var1<-rep(c("franxC3cais", "english"), 100)
var2<-rnorm(200)
var3<-rep(c("français", "english"), 100)
df<-data.frame(var1=var1, var2=var2, var3=var3)
df %>% 
  select(!where(str_detect(., "ç")))