mirror of https://git.sr.ht/~hrbrmstr/metis
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
26 lines
439 B
26 lines
439 B
.aws_bin <- function() {
|
|
unname(Sys.which('aws'))
|
|
}
|
|
|
|
.athenacli <- function(...) {
|
|
|
|
args <- c("athena")
|
|
|
|
in_args <- list(...)
|
|
if (length(in_args) == 0) in_args <- "help"
|
|
|
|
args <- c(args, unlist(in_args, use.names=FALSE))
|
|
|
|
res <- sys::exec_internal(.aws_bin(), args = args, error = FALSE)
|
|
|
|
if (length(res$stdout) > 0) {
|
|
|
|
out <- rawToChar(res$stdout)
|
|
|
|
if ("help" %in% args) cat(out, sep="")
|
|
|
|
invisible(out)
|
|
|
|
}
|
|
|
|
}
|
|
|