Ошибка при останове - запуске: нечисловой аргумент бинарного оператора

Question

library(DBI)
library(odbc)
library(tidyverse)
library(lubridate)
library(dbplyr)
con <- dbConnect(odbc::odbc(),"PaxAnalytics")
sdate<-Sys.Date()-3
edate<-Sys.Date()-1
tktinput<-tbl(con, in_schema("SCMCurrVwPaxAnalyticsEDW", "TktCPNDetail_Reporting"))
tkt1<-tktinput%>%filter(CpnDepLocalDateTime>=sdate & CpnDepLocalDateTime <edate, CpnStatusTypeCode %in% c("USED", "LFTD"),
                        !is.na(PNRRecordLocator), !CpnBookingClassCode %in% c("T", "N"))%>%select(PNRRecordLocator, TktNumber, CpnFareBasisTypeCode)

tkt1<-tkt1%>%mutate(BN=case_when(!substr(CpnFareBasisTypeCode, 1,1) %in% c("J", "C", "D", "I") 
                 & substr(CpnFareBasisTypeCode, nchar(CpnFareBasisTypeCode)-3,nchar(CpnFareBasisTypeCode)-1)!="REF" 
                  & substr(CpnFareBasisTypeCode, nchar(CpnFareBasisTypeCode),nchar(CpnFareBasisTypeCode)) %in% c(5, "N") ~ as.integer(1), TRUE~as.integer(0)))%>%collect()

Я подключился к базе данных SQL с помощью R и хотел бы вывести таблицу с дополнительным столбцом, который содержит 1 и 0 на основе критериев.Но я получаю ошибку

Error in stop - start : non-numeric argument to binary operator

Не могли бы некоторые объяснить, что это за ошибка и как я могу ее исправить.Спасибо