Question

我刚刚学习了一些HTML + CSS，今天我使用Bootstrap 4创建了一个旋转木马。出于某种原因，似乎没有用。当按下按钮时，它实际上不会触发任何动作，也不会自动切换幻灯片。

任何人都可以给我一些帮助吗？提前谢谢你

请参阅附件代码：

ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(numericInput(inputId = "ME",
                              label = "Maternal effect:",
                              min = -1,
                              max = 1,
                              value = 0.5),
                 numericInput(inputId = "CE",
                              label = "Child effect:",
                              min = -1,
                              max = 1,
                              value = 0.5)
    ),
    mainPanel(h3(textOutput("Power"))
    )
  )
)


server <- function(input, output) {

  output$Power <- renderPrint({
    bzc <- sqrt(abs(input$CE)) * sign(input$CE)     
    bzm <- sqrt(abs(input$ME)) * sign(input$ME) 
    results <- bzc * bzm

    results  
  })
}

shinyApp(ui = ui, server = server)

Answer 1

您必须包含javascript，例如：

$('.slider').carousel({ interval: 2000 })

旋转木马不起作用

1 个答案: