R Блестящие сборки ссылок между вкладками С боковыми панелями / условной панелью - PullRequest
Новая
       28

R Блестящие сборки ссылок между вкладками С боковыми панелями / условной панелью

0 голосов
/ 15 января 2020

Этот вопрос лежит в основе обсуждения ссылок между вкладками в блестящем . Это решение как раз то, что мне нужно, однако моя боковая панель не изменяется при щелчке по таблице.

Поэтому мой вопрос заключается в том, как я могу изменить боковую панель при нажатии на ссылку в таблице?

Вот некоторый тиражируемый код: 

library(shiny)
library(DT)

server <- function(input, output) {
  output$iris_type <- DT::renderDataTable({
    datatable(data.frame(Species=paste0("<a href='#filtered_data'",
                                        "alt='",unique(iris$Species),"'",                                                 
                                        "onclick=\"",
                                        "tabs = $('.tabbable .nav.nav-tabs li');",
                                        "tabs.each(function() {",
                                        "$(this).removeClass('active')",
                                        "});",
                                        "$(tabs[1]).addClass('active');",
                                        "tabsContents = $('.tabbable .tab-content .tab-pane');",
                                        "tabsContents.each(function() {",
                                        "$(this).removeClass('active')",
                                        "});",
                                        "$(tabsContents[1]).addClass('active');",
                                        "$('#filtered_data').trigger('change').trigger('shown');",
                                        "Shiny.onInputChange('species', getAttribute('alt'));",
                                        "\">",
                                        unique(iris$Species),
                                        "</a>")),
                              escape = FALSE)
  })

  output$filtered_data <- DT::renderDataTable({
    if(is.null(input$species)){
      datatable(iris)
    }else{
      datatable(iris[iris$Species %in% input$species, ])
    }
  })
}

ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(
      conditionalPanel(
        'input.dataset === "Iris Type"',
        helpText("This is the full Iris panel")
      ),
      conditionalPanel(
        'input.dataset === "Filtered Data"',
        helpText("This is the filtered panel")
      ),
      width = 2
    ),
  mainPanel(
    tabsetPanel(
      id = 'dataset',
      tabPanel("Iris Type", DT::dataTableOutput("iris_type")),
      tabPanel("Filtered Data", DT::dataTableOutput("filtered_data"))
    )
  ))
)

shinyApp(ui = ui, server = server)

1 Ответ

1 голос
/ 15 января 2020

Если я правильно понял ваш вопрос, думаю, вы можете просто добавить "Shiny.onInputChange('dataset', 'Filtered Data');", к вашему javascript.

Полный код: 



library(shiny)
library(DT)

server <- function(input, output) {
  output$iris_type <- DT::renderDataTable({
    datatable(data.frame(Species=paste0("<a href='#filtered_data'",
                                        "alt='",unique(iris$Species),"'",                                                 
                                        "onclick=\"",
                                        "tabs = $('.tabbable .nav.nav-tabs li');",
                                        "tabs.each(function() {",
                                        "$(this).removeClass('active')",
                                        "});",
                                        "$(tabs[1]).addClass('active');",
                                        "tabsContents = $('.tabbable .tab-content .tab-pane');",
                                        "tabsContents.each(function() {",
                                        "$(this).removeClass('active')",
                                        "});",
                                        "$(tabsContents[1]).addClass('active');",
                                        "$('#filtered_data').trigger('change').trigger('shown');",
                                        "Shiny.onInputChange('species', getAttribute('alt'));",
                                        "Shiny.onInputChange('dataset', 'Filtered Data');",
                                        "\">",
                                        unique(iris$Species),
                                        "</a>")),
              escape = FALSE)
  })

  output$filtered_data <- DT::renderDataTable({
    if(is.null(input$species)){
      datatable(iris)
    }else{
      datatable(iris[iris$Species %in% input$species, ])
    }
  })
}

ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(
      conditionalPanel(
        'input.dataset === "Iris Type"',
        helpText("This is the full Iris panel")
      ),
      conditionalPanel(
        'input.dataset === "Filtered Data"',
        helpText("This is the filtered panel")
      ),
      width = 2
    ),
    mainPanel(
      tabsetPanel(
        id = 'dataset',
        tabPanel("Iris Type", DT::dataTableOutput("iris_type")),
        tabPanel("Filtered Data", DT::dataTableOutput("filtered_data"))
      )
    ))
)

shinyApp(ui = ui, server = server)
...