get_pass <- function()

in R/keyring.R [18:25]

• 8 lines of code
• 2 McCabe index (conditional complexity)

get_pass <- function(msg) {
  if (is_rstudio_server()) {
    out <- readline(paste0(msg, ": "))
  } else {
    out <- getPass::getPass(msg, noblank = T, forcemask = F)
  }
  return(out)
}