feature request: consistently returning 95% CI across different correlation methods about correlation HOT 3 CLOSED

library(rcompanion)

spearmanRho(formula = wt ~ mpg, data = mtcars, ci = TRUE)
#>      rho lower.ci upper.ci
#> 1 -0.886    -0.95    -0.75

rcompanion::spearmanRho
#> function (formula = NULL, data = NULL, x = NULL, y = NULL, method = "spearman", 
#>     ci = FALSE, conf = 0.95, type = "perc", R = 1000, histogram = FALSE, 
#>     digits = 3, reportIncomplete = FALSE, ...) 
#> {
#>     if (!is.null(formula)) {
#>         x = eval(parse(text = paste0("data", "$", all.vars(formula)[1])))
#>         y = eval(parse(text = paste0("data", "$", all.vars(formula)[2])))
#>     }
#>     if (is.null(formula)) {
#>         x = x
#>         y = y
#>     }
#>     Rho = signif(cor(x, y, method = method), digits = digits)
#>     if (ci == TRUE) {
#>         Data = data.frame(x, y)
#>         Function = function(input, index) {
#>             Input = input[index, ]
#>             if (sd(Input$x) == 0 | sd(Input$y) == 0) {
#>                 FLAG = 1
#>                 return(c(NA, FLAG))
#>             }
#>             if (sd(Input$x) > 0 & sd(Input$y) > 0) {
#>                 RHO = cor(Input$x, Input$y, method = method)
#>                 FLAG = 0
#>                 return(c(RHO, FLAG))
#>             }
#>         }
#>         Boot = boot(Data, Function, R = R)
#>         BCI = boot.ci(Boot, conf = conf, type = type)
#>         if (type == "norm") {
#>             CI1 = BCI$normal[2]
#>             CI2 = BCI$normal[3]
#>         }
#>         if (type == "basic") {
#>             CI1 = BCI$basic[4]
#>             CI2 = BCI$basic[5]
#>         }
#>         if (type == "perc") {
#>             CI1 = BCI$percent[4]
#>             CI2 = BCI$percent[5]
#>         }
#>         if (type == "bca") {
#>             CI1 = BCI$bca[4]
#>             CI2 = BCI$bca[5]
#>         }
#>         if (sum(Boot$t[, 2]) > 0 & reportIncomplete == FALSE) {
#>             CI1 = NA
#>             CI2 = NA
#>         }
#>         CI1 = signif(CI1, digits = digits)
#>         CI2 = signif(CI2, digits = digits)
#>         if (histogram == TRUE & method == "spearman") {
#>             hist(Boot$t[, 1], col = "darkgray", main = "", xlab = "rho")
#>         }
#>         if (histogram == TRUE & method == "kendall") {
#>             hist(Boot$t[, 1], col = "darkgray", main = "", xlab = "tau")
#>         }
#>         if (histogram == TRUE & method == "pearson") {
#>             hist(Boot$t[, 1], col = "darkgray", main = "", xlab = "r")
#>         }
#>     }
#>     if (ci == FALSE) {
#>         names(Rho) = "rho"
#>     }
#>     if (ci == FALSE & method == "kendall") {
#>         names(Rho) = "tau"
#>     }
#>     if (ci == FALSE & method == "pearson") {
#>         names(Rho) = "r"
#>     }
#>     if (ci == FALSE) {
#>         return(Rho)
#>     }
#>     if (ci == TRUE) {
#>         names(Rho) = ""
#>     }
#>     if (ci == TRUE & method == "spearman") {
#>         return(data.frame(rho = Rho, lower.ci = CI1, upper.ci = CI2))
#>     }
#>     if (ci == TRUE & method == "kendall") {
#>         return(data.frame(tau = Rho, lower.ci = CI1, upper.ci = CI2))
#>     }
#>     if (ci == TRUE & method == "pearson") {
#>         return(data.frame(r = Rho, lower.ci = CI1, upper.ci = CI2))
#>     }
#> }
#> <bytecode: 0x0000000021b77910>
#> <environment: namespace:rcompanion>