fluidPage
レイアウトを使用したい場合、あなたの質問はレイアウトに関連しているだけです。私の考えは、パネル内のウィジェットを「グループ化」し、それらのパネルのスタイル(CSS)をカスタマイズすることです。たとえば、グリッドレイアウトやサイドバーレイアウトを使用できます。
取られた例from this post。この例では
library(shiny)
ui <- shinyUI(fluidPage(
tags$head(tags$style(
HTML('
#sidebar, #sidebar2 {
border: 1px solid black;
}
body, label, input, button, select {
font-family: "Arial";
}')
)),
titlePanel("Hello Shiny!"),
fluidRow(
column(4,
sidebarLayout(
sidebarPanel(width = 12, id="sidebar",
h5("Pants size"),
sliderInput("waist",
"waist:",
min = 1,
max = 50,
value = 30),
sliderInput("inseam",
"inseam:",
min = 1,
max = 50,
value = 30)
),
mainPanel(width = 0)
)
),
column(8,sidebarLayout(
sidebarPanel(width = 12, id="sidebar2",
h5("T-shirt size"),
selectInput("waist",
"Choose your size:",
choices = c("XS","S","M","L","XL")),
radioButtons("sex",
"sex:",
choices = c("unisex","women's"))
),
mainPanel(width = 0)
))
)
)
)
server <- shinyServer(function(input, output) {
})
shinyApp(ui=ui,server=server)
、重要なパネルは2つのsidebar
と呼ばれるIDとsidebar2
を持っています。このIDは上記のCSSセクションで使用されています。ここでは、パネルについて詳しく読む:
shinydashboards、ここではその詳細を読まれるボックスを使用する別の方法:https://rstudio.github.io/shinydashboard/structure.html#boxes
感謝を!私はたくさんのボックスが必要なので、shinydashboardsに行くつもりです。 – MissMonicaE