r - argondash 不适用于水平布局

Question

嗨，感谢您阅读我

我正在使用由闪亮、argondash 和 argonr 制成的仪表板，但我注意到水平布局无法正常工作，因为窗口继续垂直显示。有什么办法可以纠正这个吗？我希望它看起来像这样：

代码如下：

library(shiny)
library(argonDash)
library(argonR)
shinyApp(
  ui = argonDashPage(title = 'Sync the City',
                     description = 'Testing',
                     header = argonDashHeader(color = 'primary', separator = TRUE),
                     sidebar = argonDashSidebar(vertical = FALSE,
                                                brand_logo = "https://elpacientecolombiano.com/wp-content/uploads/2015/09/LOGO-SALUD-MORADO.png",
                                                id = 'sidebar',
                                                argonSidebarHeader(title = 'Main Menu'),
                                                
                                                argonSidebarMenu(
                                                  argonSidebarItem(tabName = 'landing_page', 'Landing Page'),
                                                  argonSidebarItem(tabName = 'map', 'Map'),
                                                  argonSidebarItem(tabName = 'network', 'Network')
                                                )
                     )
  ),
  server = function(input, output){}
)

标签： rshinyshinydashboard

Answer 1

我在您的代码中添加了以下参数：

• size = "md"在argonDashSidebar()

• style = "display:-webkit-inline-box;"在argonSidebarMenu()

  library(shiny)
  library(argonDash)
  library(argonR)
  shinyApp(
   ui = argonDashPage(
     title = 'Sync the City',
     description = 'Testing',
     header = argonDashHeader(color = 'primary', separator = TRUE),
     sidebar = argonDashSidebar(
       vertical = FALSE,
       brand_logo = "https://elpacientecolombiano.com/wp-content/uploads/2015/09/LOGO-SALUD-MORADO.png",
       id = 'sidebar',
       size = "md",
       argonSidebarHeader(title = 'Main Menu'),
       argonSidebarMenu(
         style = "display:-webkit-inline-box;",
         argonSidebarItem(tabName = 'landing_page', 'Landing Page'),
         argonSidebarItem(tabName = 'map', 'Map'),
         argonSidebarItem(tabName = 'network', 'Network')
         )
       ) 
     ),
   server = function(input, output){}
  )