input <- readline(paste0("Password for 'https://",
  git_user_email, "@github.com': "))
idx <- ifelse(grepl("\D", input), input, NA)
if (is.na(idx)){
  message("Empty password")
  message("Exiting")
  return(character())
}