闪亮的仪表板空框大小
Shiny Dashboard Empty box size
我正在开发带有仪表板的闪亮应用程序。在输入数据之前,我有带有警告的漂亮短语,但它们出现在框外或边缘,如下图所示。我不知道该怎么办。
我试过在方框中创建空白空间,如下所示:
box(width=12,
tabsetPanel(
tabPanel("Count matrix",
h4(""),
DT::dataTableOutput("dataRaw"))))
文本是来自的输出:
dataRaw <- reactive({
validate(need(input$countMatrix != 0, "To perform analysis, please select an input file")))
问题是:
我已经创建了一个您想要实现的最小示例。
这里 tags$head(tags$style(HTML(".tab-pane { height: 70vh; overflow-y: auto; }" )))
设置选项卡面板的高度占屏幕的 70%。
library(shiny)
library(shinydashboard)
ui <- dashboardPage(
dashboardHeader(title = "Basic dashboard"),
dashboardSidebar(),
dashboardBody(
box(width=12,
tags$head(tags$style(HTML(".tab-pane { height: 70vh; overflow-y: auto; }" ))),
tabsetPanel(
tabPanel("Count matrix",
h4(""),
DT::dataTableOutput("dataRaw"))))
)
)
server <- function(input, output) {
dataRaw <- reactive({
validate(need(input$countMatrix != 0, "To perform analysis, please select an input file"))
})
output$dataRaw <- DT::renderDataTable(dataRaw())
}
shinyApp(ui, server)
使用上面的代码你会得到这样的东西:
希望对您有所帮助!
我正在开发带有仪表板的闪亮应用程序。在输入数据之前,我有带有警告的漂亮短语,但它们出现在框外或边缘,如下图所示。我不知道该怎么办。
我试过在方框中创建空白空间,如下所示:
box(width=12,
tabsetPanel(
tabPanel("Count matrix",
h4(""),
DT::dataTableOutput("dataRaw"))))
文本是来自的输出:
dataRaw <- reactive({
validate(need(input$countMatrix != 0, "To perform analysis, please select an input file")))
问题是:
我已经创建了一个您想要实现的最小示例。
这里 tags$head(tags$style(HTML(".tab-pane { height: 70vh; overflow-y: auto; }" )))
设置选项卡面板的高度占屏幕的 70%。
library(shiny)
library(shinydashboard)
ui <- dashboardPage(
dashboardHeader(title = "Basic dashboard"),
dashboardSidebar(),
dashboardBody(
box(width=12,
tags$head(tags$style(HTML(".tab-pane { height: 70vh; overflow-y: auto; }" ))),
tabsetPanel(
tabPanel("Count matrix",
h4(""),
DT::dataTableOutput("dataRaw"))))
)
)
server <- function(input, output) {
dataRaw <- reactive({
validate(need(input$countMatrix != 0, "To perform analysis, please select an input file"))
})
output$dataRaw <- DT::renderDataTable(dataRaw())
}
shinyApp(ui, server)
使用上面的代码你会得到这样的东西:
希望对您有所帮助!