Question

我有一个非常基本的信息框这样，并希望调整高度，因为当前的高度对于我所采用的内容来说太多了。

知道我该怎么办吗？我尝试了这里建议的内容：r shinydashboard - change height of valueBox。但是，这没有任何改变。

sidebar <- dashboardSidebar(
  sidebarMenu(id = 'sidebarmenu',
              menuItem('About', tabName = 'about'))
  )

about <- tabItem('about', fluidPage(
  fluidRow(
      infoBoxOutput('age')
    )
  )
)

body <- dashboardBody(
  tabItems(
   about 
  )  
)

ui <- dashboardPage(
  dashboardHeader(
    title = 'My App'
  ),
  sidebar = sidebar,
  body = body
)

server <- function(input, output) {
  output$age <- renderInfoBox({
    infoBox('Age: ', 50, icon = icon('list'), width = 6)
  })
}

shinyApp(ui = ui, server = server)

Answer 1

您需要应用一些CSS规则。

var filelist = ['woohoo.txt', 'aha.pdf', 'wahoo.txt'];
var extension = '.txt';

var x = filelist.filter(function(file){
    return file.indexOf(extension) !== -1;
});

console.log(x); // expected output: ['woohoo.txt', 'wahoo.txt']

在闪亮的仪表板中调整infoBox的高度

1 个答案: