获取运行时使用的版本的SHA

Question

是否可以获取正在R？中运行的代码版本的SHA？

我有以下代码，它从主头输出SHA：

readme<-file("info.txt")
writeLines(paste(c("Document produced using Version", 
                   paste(readChar("./.git/refs/heads/master", 10)),
                   "of code")), 
           readme)
close(readme)

但是，如果有人犯了错误并意外地从另一个分支运行代码呢？ R是否有可能获得这样的活动分支？可能是这样的，其中一些r代码可以找出ACTIVEBRANCH吗？

readme<-file("Code version info.txt")
writeLines(paste(c("Document produced using Version", 
                   paste(readChar(paste("./.git/refs/heads/", ACTIVEBRANCH, collapse = ""), 
                                  10)),
                   "of Git Instructions")), 
           readme)
close(readme)