R Shiny dashboard
<p>I'm trying to make a dashboard in Shiny using 2 apps. 
I see one of the apps and the second is an empty box.</p>

<p>Getting the error:</p>

<blockquote>
  <p>Warning: attributes are not identical across measure variables; they
  will be dropped extract_numeric() is deprecated: please use
  readr::parse_numeric() instead</p>
</blockquote>

<pre><code>liibrary(shiny)
library(shinydashboard)
library(tidyr)
library(leaflet)
library(ggplot2)
library(scales)
library(reshape2)

#APP 1 THE WORLD MAP
P &lt;- read.csv("Lebara_weeks_rev4.csv")

# do munging that won't change based on input here
P2 &lt;- gather(P, week, value, Week.1:Week.29)    # gather to long form
P2$value &lt;- extract_numeric(P2$value)    # convert to numeric

#APP 2 THE HISTOGRAM OF PAYMENTS

pays &lt;- read.csv("adeyn.csv")
PayAuths &lt;- c("Date", "Total.Transactions", "Abandoned","Completed", "Authorised", "Redirected", "Redirected.Returned")
newPays &lt;- pays[PayAuths]
payMelted &lt;- melt(newPays, id=c("Date"))

ui &lt;- dashboardPage(
  dashboardHeader(title = "Basic dashboard"),
  dashboardSidebar(),
  dashboardBody(
    # Boxes need to be put in a row (or column)
    fluidRow(
      box(selectInput("weekView", "Week's Revenue:",
                      c("1" = "Week.1",
                        "2" = "Week.2",
                        "3" = "Week.3",
                        "4" = "Week.4",
                        "5" = "Week.5",
                        "6" = "Week.6",
                        "7" = "Week.7",
                        "8" = "Week.8",
                        "9" = "Week.9",
                        "10" = "Week.10",
                        "11" = "Week.11",
                        "12" = "Week.12",
                        "13" = "Week.13",
                        "14" = "Week.14",
                        "15" = "Week.15",
                        "16" = "Week.16",
                        "17" = "Week.17",
                        "18" = "Week.18",
                        "19" = "Week.19",
                        "20" = "Week.20",
                        "21" = "Week.21",
                        "22" = "Week.22",
                        "23" = "Week.23",
                        "24" = "Week.24",
                        "25" = "Week.25",
                        "26" = "Week.26",
                        "27" = "Week.27",
                        "28" = "Week.28",
                        "29" = "Week.29")
      )
      )),



      box(
        leafletOutput("mymap")
      ),


    box(
      renderPlot("mymap2")
    )

    )
  )


server &lt;- function(input, output, session) {

  output$mymap &lt;- renderLeaflet({
    # do munging dependent on input here
    P3 &lt;- P2[P2$week == input$weekView, ]    # subset based on input

    leaflet(data = P3) %&gt;%
      addTiles() %&gt;%  # Add default OpenStreetMap map tiles
      addCircleMarkers(lng = ~Long, lat = ~Lat, 
                       popup = ~format(value, big.mark = ','),    # reinsert commas
                       radius = ~value/40000,
                       stroke = FALSE, 


                       fillOpacity = 0.5)
  })


  output$mymap2 &lt;- renderPlot({
    ggplot(data = payMelted, aes(Date, value, fill=variable))+
      geom_bar(stat="identity")+
      theme(axis.text.x = element_text(angle = 90, vjust = 0.5, hjust = 1))


  })  


}
shinyApp(ui, server)
</code></pre>

<p>Any obvious issues?  I can supply the two csv files too.</p>