5

ナビゲーション バーを備えた光沢のあるアプリを作成したいのですが、流動的な行 () と流動的な列 () を使用してページのレイアウトを構成することもできます。

http://shiny.rstudio.com/articles/layout-guide.htmlの「NAV BAR PAGES」および「FLUID GRID SYSTEM」エリアを読み、FLUID GRID SYSTEM の下に「To create a layout based on the fluid system」と表示されます。 fluidPage() 関数を使用します。」だからここに私の例があります：

server.r

shinyUI(navbarPage("",
                   tabPanel("test",
                            #THIS IS THE SIDEBAR INPUT PANEL
                            column(2,wellPanel(
                              selectInput("x", "x:", c(5, 10,30,60),selected = 5)
                            )),

                            #THIS IS THE MAIN CONTENT
                            column(10, 
                                   fluidRow( plotOutput("plot3")) #,

                                              #fluidRow( 
                                              #   column(width=5, plotOutput("plot2")),
                                               #  column(width=5, plotOutput("plot3"))      
                                             # )                                         
                            )#end of main body columns 
                   )#end tab panel

                                      ,
                                      tabPanel("summary",
                                               verbatimTextOutput("summary")
                                      ),
                                      navbarMenu("More Info",
                                                 tabPanel("Test1",
                                                          dataTableOutput("table")
                                                 )
                                      )
))


ui.r

library(shinydashboard)
library(reshape)
library(quantmod)
library(ggplot2)
library(reshape2)
library(scales)

shinyServer(function(input, output, session) {
  output$plot1 <- renderPlot({
    #plot(cars, type=input$plotType)
    plot(c(1))
  })

  output$plot2 <- renderPlot({
    #plot(cars, type=input$plotType)
    plot(c(100))
  })

  output$plot3 <- renderPlot({
    #plot(cars, type=input$plotType)
    plot(c(-2001))
  })


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

  output$table <- renderDataTable({
    cars
  }, options=list(pageLength=10))
})#### END OF SHINY SERVER FUNCTION

したがって、上記のコードは機能し、ナビゲーション バーがあります。しかし、「テスト」タブパネルの ui.r ページに別の流動的な行を追加したいと思います。これらの行をコメントアウトしたことがわかります。

                                  #fluidRow( 
                                  #   column(width=5, plotOutput("plot2")),
                                   #  column(width=5, plotOutput("plot3"))      
                                 # )

それらのコメントを外して、2 列の流動的な行を表示したいと思います。しかし、これらの行のコメントを外すと、アプリケーションは何も返しません。

では、ナビゲーション バー ページを作成して、このような流動的なレイアウトを作成することは可能でしょうか?

または、navBarPage() の代わりに fluidPAge() を使用する必要がありますか? しかし、どのようにfluidPageでナビゲーションバーを作成しますか??

4

2 に答える 2

0

私の経験に基づくと、そうではありません。navBar レイアウトでプロットをスタックしたかったため、同じ問題に遭遇しました。
コンテンツを分離するには、tabsetPanel を使用する必要があります。R Shiny navbarMenuでFvD の回答を参照してください。

于 2016-02-22T05:08:15.967 に答える