techchart::find.imppoints fails with an error due to not finding anything

[SamoPP]

I am trying to see a very simple divergence between price series and RSI with n=3. Looks like techchart::find.imppoints can't find any imppoints for RSI3. What to do here? Reproducible ex maple below.

library(quantmod)
library(TTR)

SPX <- getSymbols("^GSPC", auto.assign=FALSE)
SPX.RSI3 <- RSI(Cl(SPX), n=3)
SPX.RSI3.ImpPoints.Maxima <- techchart::find.imppoints(SPX.RSI3)

subset <- "2022/"
chart_Series(SPX, subset=subset)
add_TA(SPX.RSI3)

R console log and traceback: > library(quantmod) > library(TTR) > > SPX <- getSymbols("^GSPC", auto.assign=FALSE) > SPX.RSI3 <- RSI(Cl(SPX), n=3) > SPX.RSI3.ImpPoints.Maxima <- techchart::find.imppoints(SPX.RSI3) Error in .rowNamesDF<-(x, value = value) : invalid 'row.names' length > traceback() 6: stop("invalid 'row.names' length") 5: .rowNamesDF<-(x, value = value) 4: row.names<-.data.frame(*tmp*, value = value) 3: row.names<-(*tmp*, value = value) 2: rownames<-(*tmp*, value = seq(1:NROW(z))) at supports.R#163 1: techchart::find.imppoints(SPX.RSI3)