如何在R的新选项卡窗口中显示输出？

Question

如何在R中的新选项卡中显示在renderUI中定义的输出？

observeEvent (input$button1, { 
output$details1 <- renderUI({  
fluidPage( 
     fluidRow( 
    #This part contains R statements including textboxes,checkboxes etc to be displayed in another tab window 
    ))     
})}) 

Answer 1

你的问题质量差，我不是100％确定这是你想要/需要。

你基本上定义标签集，只是把你的表情的某些输入或输出元素这些选项卡内：

library(shiny) 

ui <- shinyUI(fluidPage(
    headerPanel("Tabsets"), 

    mainPanel(
    tabsetPanel(
     tabPanel("Tab 1", actionButton(inputId="button1", "Go!")), 
     tabPanel("Tab 2", uiOutput("details1")) 
    ) 
) 
)) 

server <- shinyServer(function(input, output) { 
    observeEvent (input$button1, { 
    output$details1 <- renderUI({  
     fluidRow( 
      renderText({ "Yeah!" }) 
     )     
    })}) 
}) 

shiny::shinyApp(ui=ui,server=server) 

Answer 2

可以使用updateTabsetPanel单击该按钮时，更改为新的选项卡。

library(shiny) 

ui <- shinyUI(fluidPage( 
    tabsetPanel(type = "tabs", id = 'myTabs' 
       ,tabPanel(title = "Tab1",value = "tab1" ,actionButton(inputId="button1", "Go!")), 
       tabPanel(title = "Tab2", value = "tab2", uiOutput('details1') ) 
    ) 
)) 

server <- shinyServer(function(input, output, session) { 
    observeEvent(input$button1 , { 
     updateTabsetPanel(session = session 
      ,inputId = 'myTabs' 
      ,selected = 'tab2') 
    }) 
    output$details1 <- renderUI({ 
     textInput(inputId = 'Age', label = 'Age', value = 23) 
    })   
}) 

shiny::shinyApp(ui=ui,server=server)