Испытываете трудности с работой actionButton во вложенном модуле Shiny - PullRequest
Новая
       22

Испытываете трудности с работой actionButton во вложенном модуле Shiny

1 голос
/ 21 мая 2019

В следующем модульном блестящем приложении кнопка insertBtn_outer работает нормально, но я изо всех сил пытаюсь заставить работать кнопку insertBtn_inner. Большое спасибо за любые идеи, которые могут помочь решить мою проблему. 

library(shiny)

innerUI <- function(id){
  ns <- NS(id)
  actionButton(ns('insertBtn_inner'), 'Insert')
}

inner <- function(input,output,session){
  observeEvent(input$insertBtn_inner, {
    showModal(modalDialog(
      title = 'Debug message',
      paste0('The inner button works'),
      easyClose = TRUE,
      footer = NULL
    ))})
}

outerUI <- function(id){
  ns <- NS(id)
  tagList(
    actionButton(ns('insertBtn_outer'), 'Insert'),
    br(),
    tabsetPanel(id=ns('tabset'), type = 'tabs',
                innerUI('inner1')))
}

outer <- function(input,output,session){
  callModule(inner,'inner1')
  observeEvent(input$insertBtn_outer, {
    showModal(modalDialog(
      title = 'Debug message',
      paste0('The outer button works'),
      easyClose = TRUE,
      footer = NULL))})
}  


ui <- shiny::navbarPage('test_app',
                        shiny::tabPanel('Tab Panel',
                                        outerUI('test')))

server <- function(input, output) {
  callModule(outer,'test')
}

shinyApp(ui = ui, server = server)

1 Ответ

0 голосов
/ 21 мая 2019

Внутри tabsetPanel вы должны использовать один или несколько tabPanel.Кроме того, вы должны позвонить на innerUI с ns, то есть innerUI(ns('inner1')). 

outerUI <- function(id){
  ns <- NS(id)
  tagList(
    actionButton(ns('insertBtn_outer'), 'Insert'),
    br(),
    tabsetPanel(tabPanel("XXX", innerUI(ns('inner1'))), 
                id=ns('tabset'), type = 'tabs')
  )
}
...