# NOT RUN {
if (interactive()) {
library(dash)
app <- Dash$new()
app$layout(htmlDiv(list(
htmlFigure(children = list(
htmlImg(src = 'https://brand.plotly.com/static/images/plotly-logo-01-stripe@2x.png',
width = '400',
height = '150')
)
)
)
)
)
app$run_server()
}
# }
Run the code above in your browser using DataLab