Add support for default application value within snowflake() (#855)

r-dbi · Oct 9, 2024 · bd66867 · bd66867
1 parent 335e1c8
commit bd66867
Showing 1 changed file with 7 additions and 3 deletions.
diff --git a/R/driver-snowflake.R b/R/driver-snowflake.R
@@ -191,9 +191,13 @@ snowflake_args <- function(account = Sys.getenv("SNOWFLAKE_ACCOUNT"),
  auth <- snowflake_auth_args(account, ...)
  all <- utils::modifyList(c(args, auth), list(...))
 
- # Respect the Snowflake Partner environment variable, if present.
- if (is.null(all$application) && nchar(Sys.getenv("SF_PARTNER")) != 0) {
- all$application <- Sys.getenv("SF_PARTNER")
+ # Set application value and respect the Snowflake Partner environment variable, if present.
+ if (is.null(all$application)) {
+ if (nchar(Sys.getenv("SF_PARTNER")) != 0 ){
+ all$application <- Sys.getenv("SF_PARTNER")
+ } else {
+ all$application <- paste0("r-odbc/", packageVersion("odbc"))
+ }
  }
 
  arg_names <- tolower(names(all))