startsWith() would require a more recent version of R

cpsievert · cpsievert · commit 34a46fef489e · 2017-06-01T15:01:45.000-05:00
diff --git a/R/proxy.R b/R/proxy.R
@@ -21,8 +21,10 @@ plotlyProxy <- function(outputId, session = shiny::getDefaultReactiveDomain(),
   if (is.null(session)) {
     stop("plotlyProxy must be called from the server function of a Shiny app")
   }
+  
   if (!is.null(session$ns) && nzchar(session$ns(NULL)) && 
-      !startsWith(outputId, session$ns(""))) {
+      # TODO: require a recent version of R and use startsWith()?
+      substring(outputId, 1, nchar(session$ns(""))) != session$ns("")) {
     outputId <- session$ns(outputId)
   }
   structure(

Original file line number	Diff line number	Diff line change
`@@ -21,8 +21,10 @@ plotlyProxy <- function(outputId, session = shiny::getDefaultReactiveDomain(),`
`21`	`21`	`if (is.null(session)) {`
`22`	`22`	`stop("plotlyProxy must be called from the server function of a Shiny app")`
`23`	`23`	`}`
	`24`	`+`
`24`	`25`	`if (!is.null(session$ns) && nzchar(session$ns(NULL)) &&`
`25`		`- !startsWith(outputId, session$ns(""))) {`
	`26`	`+ # TODO: require a recent version of R and use startsWith()?`
	`27`	`+ substring(outputId, 1, nchar(session$ns(""))) != session$ns("")) {`
`26`	`28`	`outputId <- session$ns(outputId)`
`27`	`29`	`}`
`28`	`30`	`structure(`