set your prompt to display the current git branch. Should be added to the .Rprofile file

git prompt

if(requireNamespace("prompt", quietly = T)) {
  prompt_git <- function(...) {
    paste0(
      "[", prompt::prompt_git(), "]", "> "
    )
  }
  prompt::set_prompt(prompt_git)
  rm(prompt_git)
}