小编Ike*_*ker的帖子

我想使用闪亮的js函数将数据从javascript发送到R，但无法正常工作。我所做的是一个简单的示例，其中setinputValue将“ noone”发送给“ too” input $ too

这是代码：

library(shiny)


ui <- fluidPage(

  HTML("<script>
       $( document ).ready(function() {
       Shiny.setInputValue('too', 'noone');

       });</script>"),


      textOutput("table")


  )


server <- function(input, output) {
 output$table <- renderPrint(input$too)


}

 shinyApp(ui,server)

我得到的js错误是：Shiny.setInputValue不是一个函数

我想在我的闪亮模块中包含一些 javascript，但无论我尝试什么，javascript 都不会出现在最终的应用程序中。我究竟做错了什么？

应用程序：

    library(shiny)
    source("examplemod.R")
    ui <- fluidPage(
      tags$head(
        tags$script(src="shinyjavascript.js")
      ),
      sidebarLayout(
        sidebarPanel(
          examplemodUI("example")
        ),
        mainPanel(

        )
      )
    )

    server <- function(input, output) {
      callModule(examplemod, "example")


    }

    shinyApp(ui, server)

模块：

   examplemodUI<-function(id){
      ns <- NS(id)

      tagList(

        textOutput(ns("prb"))

      ) 
    }

    examplemod<- function(input, output, session) {

      output$prb<-renderPrint({

        input$one

        })
    }

闪亮的javascript.js

    $( document ).on("shiny:sessioninitialized", function(event) {
         Shiny.onInputChange("one", "noone");           
       });