1

我正在用 GitHub 上的简单测试来测试extendShinyJs : link

我已经安装了 V8 包,但即使使用示例脚本,我也会收到此错误: 错误:shinyjs:解析提供的 JavaScript 代码时出错。

我还尝试将 JavaScript 代码移动到 www 文件夹下的单独文件中。

当前会话的附加信息:

> sessionInfo()
R version 3.1.3 (2015-03-09)
Platform: x86_64-w64-mingw32/x64 (64-bit)
Running under: Windows 8 x64 (build 9200)

知道如何运行extendShinyjs吗?

ui.R 中

library(shiny)
library(shinyjs)
library(shinyAce)
#library(V8)

# Define UI for application that draws a histogram
shinyUI(fluidPage(

  shinyjs::useShinyjs(),


     extendShinyjs(text = "myfunc.js"),

       navbarPage("Tweets stuff",
tabPanel("Contact",
       sidebarLayout(
         sidebarPanel(
           textInput("ctFrom", "From:", value=""),
           textInput("ctSubject", "Subject:", value="Sugerencias BTT"),
           actionButton("ctSend", "Send")
         ),
         mainPanel(
           aceEditor("ctMessage", value="")
         )
       )
    ))
)

)

myfunc.js (in www folder):

    shinyjs.pageCol = function(params){
      $('body').css('background', params);
    };

服务器.R:

shinyServer(function(input, output, session) {
  #Programming with Twitter API

  observeEvent(input$ctSend, {
    #I have more things here
    js$pageCol (input$ctSend)
  })
}

请询问我是否认为您需要查看更多代码。我想清除“aceEditor”中的文本。

感谢您的快速帮助。

4

1 回答 1

3

我可以运行您的示例(但为简单起见,我将 JS 代码设为字符串而不是其自己的文件。如果您希望它位于文件中,则需要使用file =我在评论中所说的参数。

只是为了证明JS有效,我把JS功能从“改变背景”改成了简单的打印按钮的值。让我知道这个确切的代码是否产生错误:

library(shiny)
library(shinyjs)
library(shinyAce)

jscode <- "    shinyjs.pageCol = function(params){
      alert(params);
    };"

runApp(shinyApp(
  ui = fluidPage(
    shinyjs::useShinyjs(),


    extendShinyjs(text = jscode),

    navbarPage("Tweets stuff",
               tabPanel("Contact",
                        sidebarLayout(
                          sidebarPanel(
                            textInput("ctFrom", "From:", value=""),
                            textInput("ctSubject", "Subject:", value="Sugerencias BTT"),
                            actionButton("ctSend", "Send")
                          ),
                          mainPanel(
                            aceEditor("ctMessage", value="")
                          )
                        )
               ))
  ),
  server = function(input, output, session) {
    observeEvent(input$ctSend, {
      #I have more things here
      js$pageCol (input$ctSend)
    })
  }
))
于 2015-07-31T18:58:41.857 回答