(arrow-adbc) branch main updated: chore(r/adbcsnowflake): Add application name to Snowflake driver (#1532)

[li...@apache.org]

This is an automated email from the ASF dual-hosted git repository.

lidavidm pushed a commit to branch main
in repository https://gitbox.apache.org/repos/asf/arrow-adbc.git


The following commit(s) were added to refs/heads/main by this push:
     new dd08add8 chore(r/adbcsnowflake): Add application name to Snowflake driver (#1532)
dd08add8 is described below

commit dd08add85ecc97266f6e47fa777b3fddc1818d0d
Author: Dewey Dunnington <de...@voltrondata.com>
AuthorDate: Mon Feb 12 16:38:44 2024 -0400

    chore(r/adbcsnowflake): Add application name to Snowflake driver (#1532)
    
    A follow-up to https://github.com/apache/arrow-adbc/pull/1525 to add an
    R-specific prefix for the Snowflake driver. We could allow this to be
    customized, too, but I would prefer to that feature to be requested
    before pursuing it.
    
    Closes #1526.
---
 r/adbcsnowflake/R/adbcsnowflake-package.R | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/r/adbcsnowflake/R/adbcsnowflake-package.R b/r/adbcsnowflake/R/adbcsnowflake-package.R
index 0df37c86..5f809746 100644
--- a/r/adbcsnowflake/R/adbcsnowflake-package.R
+++ b/r/adbcsnowflake/R/adbcsnowflake-package.R
@@ -54,7 +54,16 @@ adbcsnowflake <- function() {
 #' @importFrom adbcdrivermanager adbc_database_init
 #' @export
 adbc_database_init.adbcsnowflake_driver_snowflake <- function(driver, ..., uri = NULL) {
-  options <- list(..., uri = uri)
+  options <- list(
+    ...,
+    uri = uri,
+    adbc.snowflake.sql.client_option.app_name = paste0(
+      "[ADBC][R-",
+      packageVersion("adbcsnowflake"),
+      "]"
+    )
+  )
+
   adbcdrivermanager::adbc_database_init_default(
     driver,
     options,