Skip to content

Export S3-config functions #46

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
atharvashahane28 merged 2 commits into from
Oct 3, 2025
Merged

Export S3-config functions #46

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
2 commits
Select commit Hold shift + click to select a range
551de57
feat: export get & set s3 config functions
atharvashahane28 Oct 2, 2025
676db8a
fix: remove old code
atharvashahane28 Oct 2, 2025
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
14 changes: 14 additions & 0 deletions R/s3_config.R
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,5 +1,15 @@
s3_config <- new.env()

#' Set S3 Configuration
#'
#' @param access_key AWS access key (default: NULL)
#' @param secret_key AWS secret key (default: NULL)
#' @param region AWS region (default: NULL)
#' @param bucket S3 bucket name (default: NULL)
#' @param log Enable logging (default: TRUE)
#' @param log_file_path Path for log file (default: "./flow_debug.log")
#' @param local_temp_path Path for local temp files (default: "localtmp")
#' @export
set_s3_config <- function(access_key = NULL, secret_key = NULL, region = NULL, bucket = NULL, log = TRUE, log_file_path = "./flow_debug.log", local_temp_path = "localtmp") {
s3_config$access_key <- access_key
s3_config$secret_key <- secret_key
Expand All @@ -20,6 +30,10 @@ set_s3_config <- function(access_key = NULL, secret_key = NULL, region = NULL, b
s3_config$local_temp_path <- local_temp_path
}

#' Get S3 Configuration
#'
#' @return List of S3 configuration values
#' @export
get_s3_config <- function() {
list(
access_key = s3_config$access_key %||% Sys.getenv("AWS_ACCESS_KEY_ID", unset = NA),
Expand Down
2 changes: 0 additions & 2 deletions inst/plumber/flow/endpoints/predict.R
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,5 +1,3 @@
birdflow_options(collection_url = "https://birdflow-science.s3.amazonaws.com/avian_flu/")

#* Test and generate a plot from a BirdFlow model
#* @param model_name The model code (e.g., "ambduc")
#* @post /test_model
Expand Down