run air

Author: jeroen

.Rbuildignore

@@ -15,3 +15,5 @@ README.md
 ^get-libgit2-linux.sh$
 ^libgit2$
 ^libgit2-.*_linux$
+^[.]?air[.]toml$
+^\.vscode$

.vscode/extensions.json

@@ -0,0 +1,5 @@
+{
+    "recommendations": [
+        "Posit.air-vscode"
+    ]
+}

.vscode/settings.json

@@ -0,0 +1,10 @@
+{
+    "[r]": {
+        "editor.formatOnSave": true,
+        "editor.defaultFormatter": "Posit.air-vscode"
+    },
+    "[quarto]": {
+        "editor.formatOnSave": true,
+        "editor.defaultFormatter": "quarto.quarto"
+    }
+}

R/archive.R

@@ -11,22 +11,26 @@
 #' @param file name of the output zip file. Default is returned
 #' by the function
 #' @return path to the zip file that was created
-git_archive_zip <- function(file = NULL, repo = "."){
+git_archive_zip <- function(file = NULL, repo = ".") {
   repo <- git_open(repo = repo)
   tmp <- tempfile(fileext = '.zip')
   git_archive_internal(tmp, repo = repo)
-  if(!length(file)){
+  if (!length(file)) {
     file <- paste0(basename(git_info(repo)$path), ".zip")
   }
   file.copy(tmp, file, overwrite = TRUE)
   return(file)
 }
 
-git_archive_internal <- function(outfile, repo){
-  tryCatch({
-    git_stash_save(repo = repo)
-    on.exit(git_stash_pop(repo = repo))
-  }, GIT_ENOTFOUND = function(e){})
+git_archive_internal <- function(outfile, repo) {
+  tryCatch(
+    {
+      git_stash_save(repo = repo)
+      on.exit(git_stash_pop(repo = repo))
+    },
+    GIT_ENOTFOUND = function(e) {
+    }
+  )
   files <- git_ls(repo = repo)$path
   wd <- getwd()
   on.exit(setwd(wd), add = TRUE)

R/branch.R

@@ -8,15 +8,15 @@
 #' @family git
 #' @inheritParams git_open
 #' @useDynLib gert R_git_branch_current
-git_branch <- function(repo = '.'){
+git_branch <- function(repo = '.') {
   repo <- git_open(repo)
   .Call(R_git_branch_current, repo)
 }
 
 #' @export
 #' @rdname git_branch
 #' @useDynLib gert R_git_branch_list
-git_branch_list <- function(local = NULL, repo = '.'){
+git_branch_list <- function(local = NULL, repo = '.') {
   repo <- git_open(repo)
   local <- as.logical(local)
   .Call(R_git_branch_list, repo, local)
@@ -28,21 +28,29 @@ git_branch_list <- function(local = NULL, repo = '.'){
 #' @param force ignore conflicts and overwrite modified files
 #' @param orphan if branch does not exist, checkout unborn branch
 #' @useDynLib gert R_git_checkout_branch R_git_checkout_unborn
-git_branch_checkout <- function(branch, force = FALSE, orphan = FALSE, repo = '.'){
+git_branch_checkout <- function(
+  branch,
+  force = FALSE,
+  orphan = FALSE,
+  repo = '.'
+) {
   repo <- git_open(repo)
   branch <- as.character(branch)
   force <- as.logical(force)
-  if(!git_branch_exists(branch, repo = repo)){
-    if(isTRUE(orphan)){
+  if (!git_branch_exists(branch, repo = repo)) {
+    if (isTRUE(orphan)) {
       ref <- paste0('refs/heads/', branch)
       .Call(R_git_checkout_unborn, repo, ref)
       return(ref)
     }
     all_branches <- subset(git_branch_list(repo = repo), local == FALSE)$name
     candidate <- sub("^[^/]+/", "", all_branches) == branch
-    if(sum(candidate) > 1){
-      stop(sprintf("Local branch '%s' does not exist and multiple remote candidates found.", branch))
-    } else if(sum(candidate) == 0){
+    if (sum(candidate) > 1) {
+      stop(sprintf(
+        "Local branch '%s' does not exist and multiple remote candidates found.",
+        branch
+      ))
+    } else if (sum(candidate) == 0) {
       stop(sprintf("No local or remote branch '%s' found.", branch))
     } else {
       remote_branch <- unname(all_branches[candidate])
@@ -59,7 +67,13 @@ git_branch_checkout <- function(branch, force = FALSE, orphan = FALSE, repo = '.
 #' @param ref string with a branch/tag/commit
 #' @param checkout move HEAD to the newly created branch
 #' @param force overwrite existing branch
-git_branch_create <- function(branch, ref = "HEAD", checkout = TRUE, force = FALSE, repo = '.'){
+git_branch_create <- function(
+  branch,
+  ref = "HEAD",
+  checkout = TRUE,
+  force = FALSE,
+  repo = '.'
+) {
   repo <- git_open(repo)
   branch <- as.character(branch)
   ref <- as.character(ref)
@@ -71,7 +85,7 @@ git_branch_create <- function(branch, ref = "HEAD", checkout = TRUE, force = FAL
 #' @export
 #' @rdname git_branch
 #' @useDynLib gert R_git_delete_branch
-git_branch_delete <- function(branch, repo = '.'){
+git_branch_delete <- function(branch, repo = '.') {
   repo <- git_open(repo)
   branch <- as.character(branch)
   .Call(R_git_delete_branch, repo, branch)
@@ -82,7 +96,7 @@ git_branch_delete <- function(branch, repo = '.'){
 #' @rdname git_branch
 #' @useDynLib gert R_git_branch_move
 #' @param new_branch target name of the branch once the move is performed; this name is validated for consistency.
-git_branch_move <- function(branch, new_branch, force = FALSE, repo = '.'){
+git_branch_move <- function(branch, new_branch, force = FALSE, repo = '.') {
   repo <- git_open(repo)
   branch <- as.character(branch)
   new_branch <- as.character(new_branch)
@@ -92,9 +106,9 @@ git_branch_move <- function(branch, new_branch, force = FALSE, repo = '.'){
 
 #' @export
 #' @rdname git_branch
-git_branch_fast_forward <- function(ref, repo = '.'){
+git_branch_fast_forward <- function(ref, repo = '.') {
   analysis <- git_merge_analysis(ref = ref, repo = repo)
-  if(analysis != "fastforward")
+  if (analysis != "fastforward")
     stop("Branch cannot be fast-forwarded. Use git_merge() instead")
   git_branch_set_target(ref = ref, repo = repo)
 }
@@ -103,10 +117,14 @@ git_branch_fast_forward <- function(ref, repo = '.'){
 #' @rdname git_branch
 #' @param upstream remote branch from [git_branch_list], for example `"origin/master"`
 #' @useDynLib gert R_git_branch_set_upstream
-git_branch_set_upstream <- function(upstream, branch = git_branch(repo), repo = '.'){
+git_branch_set_upstream <- function(
+  upstream,
+  branch = git_branch(repo),
+  repo = '.'
+) {
   repo <- git_open(repo)
   stopifnot(is.character(upstream))
-  if(!git_branch_exists(upstream, local = FALSE, repo = repo))
+  if (!git_branch_exists(upstream, local = FALSE, repo = repo))
     stop(sprintf("No remote branch found: %s, maybe fetch first?", upstream))
   .Call(R_git_branch_set_upstream, repo, upstream, branch)
   git_repo_path(repo)
@@ -117,15 +135,15 @@ git_branch_set_upstream <- function(upstream, branch = git_branch(repo), repo =
 #' @param local set TRUE to only check for local branches, FALSE to check for remote
 #' branches. Use NULL to return all branches.
 #' @useDynLib gert R_git_branch_exists
-git_branch_exists <- function(branch, local = TRUE, repo = '.'){
+git_branch_exists <- function(branch, local = TRUE, repo = '.') {
   repo <- git_open(repo)
   branch <- as.character(branch)
   local <- as.logical(local)
   .Call(R_git_branch_exists, repo, branch, local)
 }
 
 #' @useDynLib gert R_git_branch_set_target
-git_branch_set_target <- function(ref, branch, repo){
+git_branch_set_target <- function(ref, branch, repo) {
   repo <- git_open(repo)
   ref <- as.character(ref)
   .Call(R_git_branch_set_target, repo, ref)

R/certs.R

@@ -1,37 +1,41 @@
 # This is only used for static builds and on Solaris.
 # It is not needed if you're using a system libgit2.
 #' @useDynLib gert R_static_libgit2
-have_static_libgit2 <- function(){
+have_static_libgit2 <- function() {
   .Call(R_static_libgit2)
 }
 
 #' @useDynLib gert R_set_cert_locations
-set_cert_locations <- function(file, path){
+set_cert_locations <- function(file, path) {
   file <- as.character(file)
   path <- as.character(path)
   .Call(R_set_cert_locations, file, path)
 }
 
-file_exists <- function(x){
+file_exists <- function(x) {
   length(x) && file.exists(x)
 }
 
-find_cert_dir <- function(){
-  if(nchar(Sys.which('openssl')) > 0){
+find_cert_dir <- function() {
+  if (nchar(Sys.which('openssl')) > 0) {
     out <- sys::exec_internal('openssl', c('version', '-d'), error = FALSE)
-    if(out$status == 0){
+    if (out$status == 0) {
       txt <- sys::as_text(out$stdout)
       path <- utils::tail(strsplit(txt, ' ', fixed = TRUE)[[1]], 1)
       path <- gsub('"', "", path, fixed = TRUE)
       path <- file.path(path, 'certs')
-      if(file_exists(path)){
+      if (file_exists(path)) {
         return(path)
       }
     }
   }
-  default_paths <- c('/etc/pki/tls/certs', '/etc/ssl/certs/', '/etc/opt/csw/ssl/certs')
-  for(x in default_paths){
-    if(file_exists(x)){
+  default_paths <- c(
+    '/etc/pki/tls/certs',
+    '/etc/ssl/certs/',
+    '/etc/opt/csw/ssl/certs'
+  )
+  for (x in default_paths) {
+    if (file_exists(x)) {
       return(x)
     }
   }