Выравнивание кнопок с несколькими действиями в блестящем заголовке панели инструментов

В этом сообщении SO описывается, как добавить actionButton в начало справа от dashboardHeader в shinydashboard. Я хотел бы добавить две кнопки действий рядом друг с другом в dashboardHeader. Как разместить кнопки в строке заголовка, чтобы они не перекрывались? В частности, есть ли способ переместить кнопку влево и центрировать ее по вертикали внутри dashboardHeader?


r shiny shinydashboard action-button
person Miguel    schedule 09.12.2020    source источник

Ответы (2)


arrow_upward
2
arrow_downward

Возможно, вы ищете это

ui <- dashboardPage(
  dashboardHeader(title = div("Testing Work Space", 
                              img(src = 'YBS.png',
                                  title = "Just a Test Application", height = "30px"),
                              style = "position: relative; margin:-3px 0px 0px 5px; display:right-align;"
                             ), 
  titleWidth=350,
  tags$li(div(
            img(src = 'YBS.png',
                title = "A Test Graphics Application", height = "30px"),
            style = "padding-top:15px; padding-right:100px;"),
          class = "dropdown"),
  tags$li(a(href = 'http://www.cnn.com',
            icon("power-off"),
            title = "CNN Home"),
          class = "dropdown"),
  tags$li(a(href =  'https://en.wikipedia.org/wiki/Mouse', 
            tags$img(src = 'mouse.png', height = "30px"),
            title = "Mouse Home"),
          class = "dropdown")
  ),
  dashboardSidebar(),
  dashboardBody()
)

server <- function(input, output,session) {}

shinyApp(ui, server)

Вы можете настроить padding и margin в соответствии со своими потребностями. Кроме того, вы можете добавить несколько кнопок действий.

output

person YBS    schedule 10.12.2020

arrow_upward
1
arrow_downward

Я не могу ответить на ваш вопрос напрямую, потому что использовал только Flexdashboard. Но есть пакет shinyWidgets, содержащий виджет DropDown, который позволяет вам встраивать несколько виджетов в DropDown. Поэтому, если заголовок панели мониторинга позволяет использовать только один виджет, вы можете использовать выпадающий виджет для косвенного доступа к нескольким виджетам. См.:

http://shinyapps.dreamrs.fr/shinyWidgets/

И выпадающий список и пункт меню sweetalert. В раскрывающемся списке примеров содержатся ссылки на базовый код shinyWidgets.

person SteveM    schedule 09.12.2020