Here is plotly in a shiny app, its not particularly difficult and doesnt add hardly any code
library(shiny)
library(plotly)
ui <- fluidPage(
plotlyOutput("myplot")
)
server <- function(input, output, session) {
output$myplot <- renderPlotly({
plot_ly(
data = iris,
x = ~Sepal.Length,
y = ~Petal.Length
)
})
}
shinyApp(ui, server)