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))