У меня есть файл пользовательского интерфейса, который выглядит так:
library(dplyr)
library(tidyr)
library(shiny)
library(shinydashboard)
library(shinydashboardPlus)
library(shinythemes)
library(shinyjs)
library(flexdashboard)
library(DT)
ui <- dashboardPage(
dashboardHeader(
title = "Sales and Leads"),
#sidebar content
dashboardSidebar(
sidebarMenu(
menuItem("Breakdown by Day", tabName = "overview", icon = icon("dashboard")),
menuItem("Breakdown by Month", tabName = "borders", icon = icon("th")),
menuItem("Breakdown by Year", tabName = "sectors", icon = icon("th"))
)
),
#body content
dashboardBody(
tags$head(tags$style(HTML('
.content-wrapper, .main-body {
font-weight: normal;
font-size: 18px;
} '))),
tabItems(
#first tab content
tabItem(tabName = "overview",
fluidRow(
infoBoxOutput("DialsYesterday"),
infoBoxOutput("SalesYesterday"),
infoBoxOutput("LeadsYesterday")
)
),
#second tab content
tabItem(tabName = "borders",
fluidRow(
infoBoxOutput("DialsMonth"),
infoBoxOutput("SalesMonth"),
infoBoxOutput("LeadsMonth"))
),
#third tab content
tabItem(tabName = "sectors",
fluidRow(
infoBoxOutput("DialsYear"),
infoBoxOutput("SalesYear"),
infoBoxOutput("LeadsYear"),
fluidRow(
infoBoxOutput("DialsAll"),
infoBoxOutput("SalesAll"),
infoBoxOutput("LeadsAll"))
)
)
)
)
)
Однако, когда я запускаю код, все, что появляется, - это самое первое поле ввода («DialsYesterday»).
Все остальные входы, которые у меня есть, не отображаются. Когда вы нажимаете на другие вкладки, это просто пустое место. Я, должно быть, делаю что-то не так, но не знаю, что именно. Я не получаю сообщений об ошибках, так что это не проблема на стороне сервера. Я просто думаю, что у меня неправильные операции с порядком того, как он построен.