# NOT RUN {
if (require(plotly)) {
mydata <- data.frame(x = 1:100, y = rnorm(100))
manipulateWidget({
plot_ly(mydata, x=~x, y=~y, type = "scatter", mode = "markers") %>%
layout(title = mytitle)
},
mytitle = mwText("Awesome title !")
)
}
# }
Run the code above in your browser using DataCamp Workspace