esquisse 包中的 ggplot 图未在 flexdashboard 中呈现

问题描述

当我尝试将优秀的 esquisse Shinymodule 包含到 flexdashboard 中时，不会渲染图。

下面的示例试图将帮助中的 Shiny 示例翻译为在 flexdashboard 中使用，但尽管它显示和读取数据（它显示列名和选择“汽车”数据时这些更改），但它没有更新图表菜单也不渲染图表。

如何在使用 esquisse Shiny 模块时渲染图？

---
title: "Quick demo for Data"
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    vertical_layout: fill
runtime: shiny
---


   
Test
=====================================     
```{r}


library(esquisse)
# shiny inputs defined here
radioButtons(
    inputId = "data",label = "Data to use:",choices = c("iris","mtcars"))

checkboxGroupInput(
    inputId = "aes",label = "Aesthetics to use:",choices = c(
      "fill","color","size","shape","weight","group","facet","facet_row","facet_col"
    ),selected = c("fill","facet"))

  esquisse_ui(
    id = "esquisse",header = FALSE,# dont display gadget title
    container = esquisseContainer(height = "700px"))
  
  
  data_rv <- reactiveValues(data = iris,name = "iris")
  
  observeEvent(input$data,{
    if (input$data == "iris") {
      data_rv$data <- iris
      data_rv$name <- "iris"
    } else {
      data_rv$data <- mtcars
      data_rv$name <- "mtcars"
    }
  })
  
  esquisse_server(
    id = "esquisse",data_rv = data_rv,default_aes = reactive(input$aes)
  )
 
  
```

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）