current project and branch in R command prompt

.Rprofile

if (interactive()) {
  # requires: devtools::install_github("gaborcsardi/prompt")
  .prompt_grk <- function(...) {
    dir <- if (rstudioapi::hasFun("getActiveProject") &&
      !is.null(rstudioapi::getActiveProject())) {
      basename(rstudioapi::getActiveProject())
    } else {
      basename(getwd())
    }

    if (!prompt:::is_git_dir()) {
      return(paste0(dir, " > "))
    }
    branch <- prompt::git_branch()
    col_branch <- if (branch == "master") crayon::cyan else crayon::yellow
    paste0(
      crayon::silver(dir),
      ":",
      col_branch(prompt::git_branch()),
      crayon::red(prompt::git_dirty()),
      prompt::git_arrows(),
      " > "
    )
  }
  suppressMessages(library(prompt))
  set_prompt(.prompt_grk)
}