Как открыть bsmodal shiny R

Question

Нажатие на кнопку - единственный способ создать окно bsmodal?

Возможно ли, например, щелкнуть по главному меню и открыть окно bsmodal?

Спасибо заранее

Answer 1

В highchars (и затем highcharter), вы должны использовать JavaScript события. Вы можете узнать, когда пользователь нажимает несколько рядов на диаграмме. В частности, вы можете использовать что-то вроде этого, используя ответ, данный @Skalbhile с помощью JQuery и имя модальной в:

highchart() %>% 
     hc_chart(type = "column") %>% 
     hc_add_series(data = c(1, 2, 3)) %>% 
     hc_add_series(data = c(2, 1, 3), name = "other data") %>% 
     hc_plotOptions(
     series = list(
      point = list(
      events = list(
       click = JS("function(){ 
         /* alert(this.series.name + ' ' + this.category); */ 
         /* here you activate trigger the modal */ 
         $('#modalExample').modal('show'); 
         }") 
      ) 
      ) 
     ) 
     ) 

Итак, наконец, демо может быть:

library(shiny) 
library(shinyBS) 
library(highcharter) 

shinyApp(
    ui = 
    fluidPage(
    highchartOutput("chart"), 
    bsModal("modalExample", "Data Table", "tabBut", size = "large", 
      "Modal Content") 
), 
server = 
function(input, output, session) { 

    output$chart <- renderHighchart({ 

    highchart() %>% 
     hc_chart(type = "column") %>% 
     hc_add_series(data = c(1, 2, 3)) %>% 
     hc_add_series(data = c(2, 1, 3), name = "other data") %>% 
     hc_plotOptions(
     series = list(
      point = list(
      events = list(
       click = JS("function(){ 
         /* alert(this.series.name + ' ' + this.category); */ 
         /* here you activate trigger the modal */ 
         $('#modalExample').modal('show'); 
         }") 
      ) 
      ) 
     ) 
     ) 
    }) 


}) 

Answer 2

Вы можете сделать это программно

ас-

$("#modal_id").modal('show');