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