Javascript error about ggiraph

[davidgohel]

Hello,

for now, I have no idea what is going on.

Can you provide a reproducible example (a code I could ship in a simple shiny app)?

Thanks
David

[davidgohel]

Here is what I tried (but it works):

#
# This is a Shiny web application. You can run the application by clicking
# the 'Run App' button above.
#
# Find out more about building applications with Shiny here:
#
#    http://shiny.rstudio.com/
#

library(shiny)
library(ggiraphExtra)
library(ggiraph)
xx <- ggPoints(aes(x=wt,y=mpg,color=am),data=mtcars,method="lm",interactive=TRUE)

ui <- fluidPage(

   # Sidebar with a slider input for number of bins
   sidebarLayout(
      sidebarPanel(),

      # Show a plot of the generated distribution
      mainPanel(
         ggiraphOutput("distPlot")
      )
   )
)

# Define server logic required to draw a histogram
server <- function(input, output) {

   output$distPlot <- renderggiraph({
     print(xx)
   })
}

# Run the application
shinyApp(ui = ui, server = server)

[cardiomoon]

It is related to renderUI.
Followings are reproducible example.
I made a single file shiny app.

library(shiny)
library(ggiraph)

ui <- fluidPage(

uiOutput("test")

)

server <- function(input, output) {

output$test=renderUI({
tagList(
ggiraphOutput("Plot"),
plotOutput("Plot1")
)
})

output$Plot <- renderggiraph({
g <- ggplot(mpg, aes( x = displ, y = cty, color = hwy) ) + theme_minimal()
my_gg <- g + geom_point_interactive(aes(tooltip = model), size = 2)
ggiraph(code = print(my_gg), width = .7)
})

output$Plot1 <- renderPlot({
g <- ggplot(mpg, aes( x = displ, y = cty, color = hwy) ) + theme_minimal()
g+geom_point()
})
}

shinyApp(ui = ui, server = server)

[davidgohel]

Sorry, I can't reproduce, everything is ok on my local installation.

Do you have other informations that could help? Also in the link you sent (http://r-ggplot2.com:3838/explore), there is no error.

[cardiomoon]

In large shiny app, you have to put one or more ggiraphoutput in ui.R. If you put all ggiraphoutput in server.ui(only uiOutput in ui.R), the ggiraphoutput is not able to be seen in certain circumstances.
I am not sure the reason.