fix warning message from insertSource()

smeyer · smeyer · commit 099ece3033bc · 2025-09-11T13:24:26.000Z
git-svn-id: https://svn.r-project.org/R/trunk@88812 00db46b3-68df-0310-9c12-caf00c1e9a41
diff --git a/src/library/methods/R/trace.R b/src/library/methods/R/trace.R
@@ -714,7 +714,7 @@ setCacheOnAssign <- function(env, onOff = cacheOnAssign(env))
         }
         if(length(possible) > 1L)
             warning(gettextf("objects found in multiple packages: using %s and ignoring %s",
-                             sQuote(names(possible[[1L]])),
+                             sQuote(names(possible[1L])),
                              paste(sQuote(names(possible[-1L])),
                                    collapse = ", ")),
                     domain = NA)

Original file line number	Diff line number	Diff line change
`@@ -714,7 +714,7 @@ setCacheOnAssign <- function(env, onOff = cacheOnAssign(env))`
`714`	`714`	`}`
`715`	`715`	`if(length(possible) > 1L)`
`716`	`716`	`warning(gettextf("objects found in multiple packages: using %s and ignoring %s",`
`717`		`- sQuote(names(possible[[1L]])),`
	`717`	`+ sQuote(names(possible[1L])),`
`718`	`718`	`paste(sQuote(names(possible[-1L])),`
`719`	`719`	`collapse = ", ")),`
`720`	`720`	`domain = NA)`