Remove use of startsWith, introduced with R 3.3.0

jcheng5 · jcheng5 · commit ad4952f08b24 · 2017-04-04T15:06:43.000-07:00
diff --git a/R/utils.R b/R/utils.R
@@ -152,7 +152,7 @@ leafletProxy <- function(mapId, session = shiny::getDefaultReactiveDomain(),
   # This won't be necessary in future versions of Shiny, as session$ns (and
   # other forms of ns()) will be smart enough to only namespace un-namespaced
   # IDs.
-  if (!is.null(session$ns) && nzchar(session$ns(NULL)) && !startsWith(mapId, session$ns(""))) {
+  if (!is.null(session$ns) && nzchar(session$ns(NULL)) && substring(mapId, 1, nchar(session$ns(""))) != session$ns("")) {
     mapId <- session$ns(mapId)
   }
 

Original file line number	Diff line number	Diff line change
`@@ -152,7 +152,7 @@ leafletProxy <- function(mapId, session = shiny::getDefaultReactiveDomain(),`
`152`	`152`	`# This won't be necessary in future versions of Shiny, as session$ns (and`
`153`	`153`	`# other forms of ns()) will be smart enough to only namespace un-namespaced`
`154`	`154`	`# IDs.`
`155`		`- if (!is.null(session$ns) && nzchar(session$ns(NULL)) && !startsWith(mapId, session$ns(""))) {`
	`155`	`+ if (!is.null(session$ns) && nzchar(session$ns(NULL)) && substring(mapId, 1, nchar(session$ns(""))) != session$ns("")) {`
`156`	`156`	`mapId <- session$ns(mapId)`
`157`	`157`	`}`
`158`	`158`