Ich habe diesen Code aus der ShinyGallery ausgeliehen und einige Änderungen vorgenommen. Grundsätzlich verwendet diesfluidPage. Ich bin daran interessiert, dasselbe mit @ zu wiederholeflexdashboard. Ich habe das @ durchlaufflexdashboard userguide. aber die beschreibungen auf dieser website sind in einem rmarkdown oder sweave format ?? mit denen ich nicht vertraut bin. Wenn ich also die Flexdashboard-Version dieses Beispiels ohne den Abschlag oder das Sweave sehen kann, kann ich mich leicht auf verschiedene Komponenten beziehen und darauf aufbauen. Alle mögliche Spitzen oder Zeiger werden Völker geschätzt.

library(shiny)
ui = shinyUI(fluidPage(
                mainPanel(
                 tabsetPanel(
                   tabPanel("Plot",plotOutput("plot1"),plotOutput("plot2")),
                   tabPanel("Summary",verbatimTextOutput("summary")),
                  tabPanel("Table",DT::dataTableOutput("table"))
                   ))))

server = shinyServer(function(input, output, session) {
  output$plot1 <- renderPlot({
    plot(cars)
  })

  output$plot2 <- renderPlot({
    plot(iris)
  })

  output$summary <- renderPrint({
    summary(cars)
  })

  output$table <- DT::renderDataTable({
    DT::datatable(cars)
  })
})

shinyApp(ui, server)