make sure all apps using shinyjs work without requiring V8

darekbienkowski · Jun 13, 2016 · e0e59e1 · e0e59e1
1 parent ce95f55
commit e0e59e1
Show file tree

Hide file tree

Showing 6 changed files with 8 additions and 8 deletions.
diff --git a/close-window/app.R b/close-window/app.R
@@ -1,15 +1,15 @@
 library(shinyjs)
-jscode <- "shinyjs.closewindow = function() { window.close(); }"
+jscode <- "shinyjs.closeWindow = function() { window.close(); }"
 
 ui <- fluidPage(
   useShinyjs(),
-  extendShinyjs(text = jscode),
+  extendShinyjs(text = jscode, functions = c("closeWindow")),
   actionButton("close", "Close window")
 )
 
 server <- function(input, output, session) {
   observeEvent(input$close, {
-    js$closewindow()
+    js$closeWindow()
     stopApp()
   })
 }

diff --git a/multiple-scrollspy-advanced/app.R b/multiple-scrollspy-advanced/app.R
@@ -6,7 +6,7 @@ ui <- navbarPage(
   id = "navbar",
   header = div(
     useShinyjs(),
-    extendShinyjs("www/app-shinyjs.js"),
+    extendShinyjs("www/app-shinyjs.js", functions = c("updateScrollspy")),
     includeCSS("www/app.css"),
     includeScript("https://cdnjs.cloudflare.com/ajax/libs/jquery-scrollTo/1.4.3/jquery.scrollTo.min.js")
   ),

diff --git a/multiple-scrollspy-basic/app.R b/multiple-scrollspy-basic/app.R
@@ -7,7 +7,7 @@ ui <- navbarPage(
 
   header = div(
     useShinyjs(),
-    extendShinyjs("www/app-shinyjs.js"),
+    extendShinyjs("www/app-shinyjs.js", functions = c("updateScrollspy")),
     includeCSS("www/app.css"),
 
     # create a common scrollspy

diff --git a/navigate-history/app.R b/navigate-history/app.R
@@ -6,7 +6,7 @@ ui <- navbarPage(
   id = "navbar",
   header = tagList(
     useShinyjs(),
-    extendShinyjs("www/app-shinyjs.js")
+    extendShinyjs("www/app-shinyjs.js", functions = c("updateHistory"))
   ),
 
   tabPanel("Home", value = "home",

diff --git a/serve-images-files/app.R b/serve-images-files/app.R
@@ -10,7 +10,7 @@ shinyjs.navigate = function(url) {
 
 ui <- fluidPage(
   useShinyjs(),
-  extendShinyjs(text = jscode),
+  extendShinyjs(text = jscode, functions = c("navigate")),
 
   # Portion of the app that lets the user cutomize a plot and then see
   # a URL to serve that plot

diff --git a/update-input/app.R b/update-input/app.R
@@ -5,7 +5,7 @@ source("update-input.R")
 
 ui <- fluidPage(
   useShinyjs(),
-  extendShinyjs("www/app-shinyjs.js"),
+  extendShinyjs("www/app-shinyjs.js", functions = c("getInputType")),
 
   textInput("text", "Text input", "some text"),
   selectInput("select", "Select input", LETTERS),