cuminc warning when censoring and event share the same time

[tengfei-emory]

I got "Unreplaced values treated as NA as .x is not compatible." warning. This will occur when censoring and events share the same time in the data. I made this up by setting trial$ttdeath <- ceiling(trial$ttdeath) in the simulated dataset.

library(tidycmprsk)
data(trial)
trial$ttdeath <- ceiling(trial$ttdeath)
cuminc(Surv(ttdeath, death_cr) ~ 1, trial)
#> Warning: Unreplaced values treated as NA as `.x` is not compatible.
#> Please specify replacements exhaustively or supply `.default`.
#> 
#> -- cuminc() --------------------------------------------------------------------
#> * Failure type "death from cancer"
#> time   n.risk   estimate   std.error   95% CI          
#> 5.00   199      0.000      0.000       NA, NA          
#> 10.0   193      0.030      0.012       0.012, 0.061    
#> 15.0   164      0.120      0.023       0.080, 0.169    
#> 20.0   124      0.215      0.029       0.161, 0.274
#> * Failure type "death other causes"
#> time   n.risk   estimate   std.error   95% CI          
#> 5.00   199      0.005      0.005       0.000, 0.026    
#> 10.0   193      0.025      0.011       0.009, 0.054    
#> 15.0   164      0.090      0.020       0.055, 0.135    
#> 20.0   124      0.205      0.029       0.152, 0.263

^{Created on 2022-07-26 by the reprex package (v2.0.1)}