Setting the style for the title of a navbarPage

I have an application with a navbarPage. I want to change the style (color and font) of the title argument of the navbarPage function ("The economy" in my example below). How do I do that?

ui <- navbarPage(title="The economy",
    tabPanel(title="Summary",
      sidebarPanel(
        dateInput(inputId="StartDate1",label="Please enter a start date:",
          value="2010-01-01",min="2008-01-01",max="2021-01-01")
      ),
      plotOutput("distPlot1",width="80vw",height="60vw")
    )

Thank you.

Philip