Ошибка в woolApp (пользовательский интерфейс, сервер): в сервере

Question

У меня есть следующий код:

library(shinydashboard)
library(shiny)

ui <- shinyUI( dashboardPage(dashboardHeader(title = "example"),
    dashboardSidebar(),
    dashboardBody(h3("text format"),
    mainPanel(
    infoBox("123", "Today's work", "Lots of pending", width = 6)
    infoBox("234", "Today's work", "completed", width = 6)
    ))))
server <- shinyServer({})
shinyApp(ui, server)

Может кто-нибудь помочь мне с ошибкой?Также я хочу, чтобы текст «Сегодняшней работы» в infoBox был написан обычными буквами, а не жирным.

Answer 1

Это должно решить это:

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

Вот полный код:

library(shinydashboard)
library(shiny)

ui <- shinyUI( dashboardPage(dashboardHeader(title = "example"),
                             dashboardSidebar(),
                             dashboardBody(h3("text format"),
                                           mainPanel(
                                             infoBox("123", "Today's work", "Lots of pending", width = 6),
                                             infoBox("234", "Today's work", "completed", width = 6)
                                           ))))
server <- shinyServer(function(input, output){})
shinyApp(ui, server)

Результат: