# library(dash)
# library(dashHtmlComponents)
# 
# app <- Dash$new(
#   meta_tags = list(
#     list(name = "description", content = "My description"),
#     list( 'http-equiv' = 'X-UA-Compatible',
#           content = 'IE=edge'),
#     list(name = 'viewport', 
#          content = 'width=device-width, initial-scale=1.0')
#   )
# )
# 
# app$layout(htmlDiv('Simple Dash App'))
# 
# app$run_server()
