r - ggplot - plotly shiny

Convierte el objeto ggplot a plotly en una aplicación brillante

Question

Estoy tratando de convertir un objeto ggplot a plotly y mostrarlo en una aplicación brillante. Pero me encontré con un error "no aplicable método para ''plotly_build'' aplicado a un objeto de clase" NULL ""

Pude devolver el objeto ggplot a la aplicación brillante con éxito,

output$plot1 <- renderplot({
gp <- ggplot(data = mtcars, aes(x = disp, y = cyl)) + geom_smooth(method = lm, formula = y~x) + geom_point() + theme_gdocs()
})

pero de alguna manera no puede convertirlo.

Mi código se ve así

output$plot2 <- renderplotly({
gp <- ggplot(data = mtcars, aes(x = disp, y = cyl)) + geom_smooth(method = lm, formula = y~x) + geom_point() + theme_gdocs()
ggplotly()
})

Answer 1

Tratar:

library(shiny)
library(ggplot2)
library(ggthemes)
library(plotly)
ui <- fluidPage(
titlePanel("Plotly"),
sidebarLayout(
sidebarPanel(),
mainPanel(
plotlyOutput("plot2"))))
server <- function(input, output) {
output$plot2 <- renderPlotly({
print(
ggplotly(
ggplot(data = mtcars, aes(x = disp, y = cyl)) + geom_smooth(method =
lm, formula = y~x) + geom_point() + theme_gdocs()))
})
}
shinyApp(ui, server)