Basic Shiny app with Leaflet & ggplot

server.R

library(shiny)
library(rCharts)
library(ggplot2)
 
data(uspop2000, package = 'leaflet')
base_df <- head(uspop2000[which(uspop2000$State == "AL"), ])
 
shinyServer(function(input, output){
  
  output$myChart <- renderMap({
    map3 <- Leaflet$new()
    # map3$tileLayer(provider = 'Stamen.TonerLite')
    map3$setView(c(32, -86), zoom = 6)
    map3$marker(c(32, -86), bindPopup = "Hi. I am a popup")
    map3
  })
})

ui.R

library(shiny)
library(rCharts)
library(ggplot2)
library(leaflet)

shinyUI(bootstrapPage(
  headerPanel("test"),
  mainPanel(
    tabsetPanel(
      tabPanel("map2", tags$style('.leaflet {height: 400px;}'),showOutput('myChart', 'leaflet'))
    )
  )
))