时间戳

首页 > 解决方案 > 在闪亮中加入javascript

javascript - 在闪亮中加入javascript

问题描述

我很确定我在这里的最终目标可以通过闪亮的功能在这里实现。但是我需要通过使用javascript来实现这一点，因为我正在学习它。

library(shiny)

ui <- fluidPage(
  tags$head(tags$style(".shiny-output-error { visibility: hidden; }")),
  verbatimTextOutput("ca"),
  
  tags$button(id="alert", type="button","Calling car properties"),
  
  tags$script('
              var get_car = document.getElementById("alert");
              get_car.onclick = function car(seats,engine,theradio) {
this.seats=seats;
this.engine=engine;
this.theradio=theradio;
};
var work_car= new car("cloth","V-6","Tape Deck");
Shiny.onInputChange("car_ob", work_car.engine);
              ')
)

server <- function(input, output, session) {
  
  output$ca = renderPrint({
    input$car_ob
  })
  

  
}

shinyApp(ui, server)

我的最终目标是在闪亮的页面上打印“V-6”

让我解释一下我在这里尝试什么

  1. 我创建了一个带有 3 个参数/属性的汽车对象。

  2. 我用 new 关键字创建了一个实例并调用work_car= new car("cloth","V-6","Tape Deck")

  3. 最后我试图返回work_car.engine“V-6”

标签： javascriptrshiny

解决方案

推荐阅读