# NOT RUN {
if (Sys.info()[["nodename"]] == "fvafrdebianCU") {
gitlab_token <- readLines(file.path("~", ".gitlab_private_token.txt"))
proxy <- httr::use_proxy("10.127.255.17", 8080)
comments <- provide_cran_comments(path = ".",
write_to_file = TRUE,
private_token = gitlab_token,
proxy = proxy)
} else {
gitlab_token <- readLines(file.path("~", ".gitlab_private_token.txt"))
comments <- provide_cran_comments(path = ".",
write_to_file = TRUE)#,
private_token = gitlab_token)
}
cat(comments, sep = "")
# }
Run the code above in your browser using DataLab