An example of customizing your R prompt with the RProfile.

rprofile-custom-prompt.R

.First <- function(){

  # adapted from: https://lapsedgeographer.london/2020-11/custom-r-prompt/
  my_prompt <- function(...) {
  
    git_branch <- suppressWarnings(system("git rev-parse --abbrev-ref HEAD",
                                          ignore.stderr = TRUE, intern = TRUE))

    if (length(git_branch) != 0) {
      git_msg <- paste0(" @", git_branch)
    } else {
      git_msg <- ""
    }

    console_msg <- glue::glue(
      "[{format(Sys.time(), '%H:%M')} {emo::ji('computer')}",
      "{git_msg}]> "
    )

    options(prompt = console_msg)

    invisible(TRUE)

  }


  my_prompt()

  addTaskCallback(my_prompt)

  }

you should also mention that you need the emo library to have this work. I found it online and installed it.