У меня есть эта начальная блестящая приборная панель, которую я собрал вместе: ## app.R ## library(shiny) library(shinydashboard) library(readxl) ui <- dashboardPage( dashboardHeader(dropdownMenuOutput("messageMenu"),...