Is leaflet package doesn't work in shinyapps.io?

Question

enter code here

library(shiny)
library(leaflet)


ui <- fluidPage(
    leafletOutput("m", height=800)
)


server <- function