Fix #24

jcpsantiago · Aug 11, 2023 · b05048b · b05048b
1 parent b4d0767
commit b05048b
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 5 deletions.
diff --git a/R/core.R b/R/core.R
@@ -71,18 +71,17 @@ configure_sentry <- function(dsn, app_name = NULL, app_version = NULL,
 
   dsn_vars <- parse_dsn(dsn)
 
-  user_vars <- list(
+  skeleton <- list(
     environment = environment,
     contexts = list(
       app = list(
         app_name = app_name,
         app_version = app_version
       )
-    ),
-    ...
+    )
   )
 
-  .sentry_env$payload_skeleton <- user_vars
+  .sentry_env$payload_skeleton <- utils::modifyList(skeleton, list(...))
 
   invisible(list2env(dsn_vars, .sentry_env))
 }

diff --git a/tests/testthat/test-sentry.R b/tests/testthat/test-sentry.R
@@ -43,10 +43,12 @@ test_that("setting configuration works", {
 
   configure_sentry(dsn = "https://[email protected]/1",
                    app_name = "el appo", app_version = "8.8.8",
-                   environment = "production")
+                   environment = "production",
+                   contexts = list(app = list(app_identifier = "APPO")))
 
   expect_equal(.sentry_env$payload_skeleton$contexts$app$app_name, "el appo")
   expect_equal(.sentry_env$payload_skeleton$contexts$app$app_version, "8.8.8")
+  expect_equal(.sentry_env$payload_skeleton$contexts$app$app_identifier, "APPO")
   expect_equal(.sentry_env$payload_skeleton$environment, "production")
   expect_equal(.sentry_env$dsn, "https://[email protected]/1")
   expect_equal(.sentry_env$protocol, "https")