如何在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)