No known key found for this signature in database
GPG Key ID: 1D7529BE14E2BBA9
2 changed files with
12 additions and
2 deletions
-
R/check-notary.R
-
R/check_sig.R
|
|
@ -12,7 +12,16 @@ check_notarization <- function(path_to_app) { |
|
|
|
|
|
|
|
spctl <- Sys.which("spctl") |
|
|
|
|
|
|
|
res <- sys::exec_internal(spctl, arg = c("-a", "-vv", path_to_app)) |
|
|
|
res <- try(sys::exec_internal(spctl, arg = c("-a", "-vv", path_to_app)), silent = TRUE) |
|
|
|
|
|
|
|
if (inherits(res, "try-error")) { |
|
|
|
return( |
|
|
|
dplyr::tibble( |
|
|
|
key = c("application", "origin", "source", "status"), |
|
|
|
value = c(path_to_app, NA_character_, NA_character_, "no notarization info") |
|
|
|
) |
|
|
|
) |
|
|
|
} |
|
|
|
|
|
|
|
if (res$status != 0) { |
|
|
|
stop("Error running spctl utility Are you on macOS?", call.=FALSE) |
|
|
|
|
|
@ -9,7 +9,8 @@ check_sig <- function(path_to_app) { |
|
|
|
|
|
|
|
codesign <- Sys.which("codesign") |
|
|
|
|
|
|
|
res <- sys::exec_internal(codesign, arg = c("-dvvvv", path_to_app)) |
|
|
|
res <- try(sys::exec_internal(codesign, arg = c("-dvvvv", path_to_app)), silent = TRUE) |
|
|
|
if (inherits(res, "try-error")) return(NULL) |
|
|
|
|
|
|
|
if (res$status != 0) { |
|
|
|
stop("Error running codesign utility. Are you on macOS?", call.=FALSE) |
|
|
|