Вызовите updateTabItems изнутри модуля Shiny - PullRequest
Новая
       9

Вызовите updateTabItems изнутри модуля Shiny

0 голосов
/ 26 июня 2018

В моем блестящем приложении у меня есть много ValueBoxes, каждый из которых представляет tabItem на боковой панели Shinydashboard.При нажатии на поле valueBox страница должна перейти на правильную вкладку.

Вместо многократного копирования кода, я написал многократно используемый модуль, который отображает valueBox и изменяет класс valueBox в actionButton.В серверную часть я включил наблюдающее событие, которое вызывает updateTabItems при нажатии на valueBox.Но при нажатии ничего не происходит.Кажется, что модуль не может манипулировать боковой панелью панели управления. 

library(shiny)
library(shinydashboard)

value_box_output <- function(.id) {
  ns <- NS(.id)
  valueBoxOutput(ns("overview.box"))
}

value_box <- function(input, output, session, .value, .subtitle, .tab.name) {
  ns <- session$ns

  output$overview.box <- renderValueBox({
    box1 <- valueBox(
      .value,
      .subtitle,
      href = "#",
      width = NULL
    )
    box1$children[[1]]$attribs$class <- "action-button"
    box1$children[[1]]$attribs$id <- ns("button")
    box1
  })

  observeEvent(input$button, {
    print("clicked")
    updateTabItems(session, inputId = "tabs", selected = .tab.name)
  })
}


ui <- dashboardPage(
  dashboardHeader(title = "Title"),
  dashboardSidebar(
    sidebarMenu(
    id = "tabs",
    menuItem("Overview", tabName = "Overview"),
    menuItem("Tab 1", tabName = "Tab_1")
    )
  ),
  dashboardBody(
    tabItems(
      tabItem("Overview", value_box_output("tab")),
      tabItem("Tab_1")
    )
  )
)

server <- function(input, output, session) {
  callModule(value_box,
             "tab",
             .value = 33,
             .subtitle = "Tab 1",
             .tab.name = "Tab_1")
}

shinyApp(ui, server)

1 Ответ

0 голосов
/ 08 января 2019

Вы можете найти ответ в этом посте: Доступ к родительскому пространству имен внутри блестящего модуля

По сути, в updateTabItems () внутри moulde вам необходимо вызывать сеанс родителя, а не сеанс модуля.

Таким образом, добавьте переменную для вашего сеанса в callModule () и вызовите ее в updateTabItems ().

...