Interactive ggPredict whitin R Shiny FlexDashboard

Question

I'm using Flexdashboard to create an R Shiny App; for the graph I'm using ggPredict() from ggiraphExtra package

This is the chunk that I need the following plot with a linear regressions using the mtcars dataset:

### Graph2
```{r}

renderPlot({
  Reg_LM <- lm(mpg ~ disp + hp, data = mtcars) 
  ggPredict(Reg_LM, interactive = F)
})

```

When I run my ggPredict with interactive = F my plot runs perfectly!

But when I add interactive = T (for a much better experience) my plot simply disappears (doesnt return any error message)

My guess is that R Shiny doesnt support interactive = T from ggPredict. Could be that? Or FlexDashboard needs another way to handle this?

Thanks!

Could you try using the `htmlwidget` render and output functions: `renderggiraph` and `ggiraphOutput`? — Ryan Morton, Aug 25 '19 at 17:56

score 1 · Answer 1 · answered Aug 25 '19 at 18:49

Thanks @RyanMorton

Here's the code working perfectly:

### Graph2
```{r}

output$plot5 <- renderggiraph({

  ggiraph(code = print(ggPredict(lm(mpg ~ disp + hp + drat, data = mtcars),
                                 colorAsFactor = T,
                                 point = F)))
})

ggiraphOutput("plot5")


```

Interactive ggPredict whitin R Shiny FlexDashboard

1 Answers1