title: Error in dashboardPage(skin = "red", dashboardHeader(title = "My Dashboard"), : unused argument (skin = "red")
body: <p>I tried to create a dashboard using the shinydashboard in rstudio. However the following error appeared when i try to run the app. How to able the dashboard to run without the following error of unused argument: skin = 'red; ? Am i missing library to be installed and called for it to happen?</p>
  <pre><code>sp &lt;- read.csv(&quot;GSPC.csv&quot;, stringsAsFactors = FALSE, header = TRUE)
  
  
     library(shiny)
     library(semantic.dashboard)
     library(shinydashboard)
     library(ggplot2)
  
     sp$Date = as.Date(sp$Date, format = &quot;%m/%d/%Y&quot;)
  ui &lt;- dashboardPage(skin = &quot;red&quot;,
                  
                  # Application title
                  dashboardHeader(title = &quot;My Dashboard&quot;),
                  
                  dashboardSidebar(&quot;Hello&quot;),  
                  
                  # Show a plot of the generated distribution
                  dashboardBody(
                      frow1 &lt;- fluidRow(  valueBoxOutput(&quot;value1&quot;)  ,
                                          valueBoxOutput(&quot;value2&quot;)  ,
                                          valueBoxOutput(&quot;value3&quot;)),
                      frow2 &lt;- fluidRow(   box(    title = &quot;High&quot;    ,
                                                   status = &quot;primary&quot;    ,
                                                   solidHeader = TRUE     ,
                                                   collapsible = TRUE     ,
                                                   plotOutput(&quot;highPlot&quot;, height = &quot;300px&quot;)  )  ,
                                           box(    title = &quot;Low&quot;    ,
                                                   status = &quot;primary&quot;    ,
                                                   solidHeader = TRUE     ,
                                                   collapsible = TRUE     ,
                                                   plotOutput(&quot;lowPlot&quot;, height = &quot;300px&quot;)  ),
                                           # combine the two fluid rows to make the bodybody &lt;- dashboardBody(frow1, frow2)
                                           
                                           box(    title = &quot;Close Graph&quot;    ,
                                                   status = &quot;primary&quot;    ,
                                                   solidHeader = TRUE     ,
                                                   collapsible = TRUE     ,
                                                   plotOutput(&quot;distPlot&quot;),
                                                   width = 9),
                                           
                                           box(selectInput(&quot;features&quot;, &quot;Features:&quot;,
                                                           c(&quot;High&quot;, &quot;Low&quot;, &quot;Open&quot;,&quot;Close&quot;))), width = 4,
                                           
                                           #dateRangeInput(&quot;dates&quot;, &quot;Date range&quot;,
                                           #             c(&quot;Date&quot;, start = &quot;1927/12/31&quot;, end = as.character(Sys.Date()) )),
                                           
                                           #start = &quot;1927/12/31&quot;, end = as.character(Sys.Date())),
                                           
                                           
                                           
                                           
                      )
                  ))
  
  # Define server logic required to draw a histogram
  server &lt;- function(input, output) {
  
  output$distPlot &lt;- renderPlot({
      plot(sp$Date, sp[[input$features]],
           xlab = &quot;Date&quot;, ylab = &quot;Feature&quot;, col = 'brown', type = &quot;l&quot;)
      
  })
  
  
  output$highPlot &lt;- renderPlot({
      hist(sp$High,
           main = &quot;Histogram of High&quot;,
           col=&quot;purple&quot;,
           border=&quot;white&quot;,)
  })
  
  output$lowPlot &lt;- renderPlot({
      hist(sp$Low,
           main = &quot;Histogram of Low&quot;,
           col=&quot;chocolate&quot;,
           border=&quot;brown&quot;,)
  })}
  
  # Run the application 
  shinyApp(ui = ui, server = server)
  </code></pre>