header <- dashboardHeader (title = strong («Мой сайт»)), dropdownMenu (type = «notifications» ,tificationItem (text = «5 новых пользователей сегодня», значок («users»)) ,tificationItem (text = "12 отправленных товаров ", значок (" грузовик "), статус =" успех ") ,tificationItem (текст =" загрузка сервера на 86% ", значок = значок (" восклицательный знак-треугольник "), статус =" предупреждение ")),</p>
dropdownMenu (type = "messages", messageItem (from = "Команда Text Analytics", message = "Добавлены новые методы"), messageItem (from = "New User", message = "Как мнезарегистрироваться? ", значок = значок (" вопрос "), время = формат (Sys.time (), формат ="% T ")), messageItem (from =" Support ", message =" Новый сервер готов. ", icon = icon ("life-ring"), time = Sys.Date ())),
dropdownMenu (тип = "tasks", badgeStatus = "success", taskItem (значение = 90, color =«зеленый», «Документация»), taskItem (значение = 17, цвет = «aqua», «Моя группа»), taskItem (значение = 75, цвет = «желтый», «Развертывание сервера»), taskItem (значение = 80, color = "red", "Общий проект")))
Я могу получить меню, нажав на него, но вместо этого мне нужно выпадающее меню, когда на него наведен курсор мыши
