Error in smooth.spline(lambda, pi0, df = smooth.df) : in qvalue package

Question

I have 1493313 p values in a data frame:

> head(dt)
     pvals
1 0.0084956486
2 0.0012681537
3 0.0021218873
4 0.0001551133
5 0.0001894240

I am trying to use qvalue package to calculate True Positive Rate. (TPR)

I am doing this and getting error:

library(qvalue)
pvals=dt$pvals
qval_obj=qvalue(pvals) #is false discovery rate

Error in smooth.spline(lambda, pi0, df = smooth.df) : 
  missing or infinite values in inputs are not allowed

It this would work I would calculate TPR via:

pi1=1-qval_obj$pi0 #TPR

I don't have any NAs or infinite values there, and

> min(dt$pvals)
[1] 3.988883e-156
> max(dt$pvals)
[1] 0.8746981
> sapply(dt,class)
pvals 
"numeric"

plot of hist(dt$pvals)

I don't need to use qvalue function, if you know any other method to calculate TPR in R please let me know.