是否有方法在闪亮的应用程序上呈现数据资源管理器库中的绘图

Question

我正试图将EDA的结果绘制到闪亮的应用程序上，我也一直在使用DataExplorer库，并且能够在rmarkdown笔记本上执行操作。我正在考虑使用下面的代码将这些情节集成到闪亮的应用程序中，但我遇到了错误，请您在这方面帮助我，并建议我是否有可能做到这一点。

UI part 

library(shiny)
library(DataExplorer)

  fluidRow(width=12,
           column(12,plotOutput("struct"))
    
  )

Server block
df<-read.csv("/path/to/csv/file.csv")
            output$struct<-renderPlot({
              req(df)
              
              plot_str(df)
            })

谢谢你提前提供帮助

Answer 1

DataExplorer::plot_str默认打印一个networkD3::diagonalNetwork，但是它返回一个list。

如果您想以闪亮的形式呈现diagonalNetwork对象，则需要使用networkD3::renderDiagonalNetwork。请检查以下内容：

library(shiny)
library(DataExplorer)
library(datasets)
library(networkD3)

# DF <- read.csv("/path/to/csv/file.csv")
DF <- mtcars

ui <- fluidPage(
  fluidRow(column(12, diagonalNetworkOutput("struct")))
)

server <- function(input, output, session) {
  output$struct <- renderDiagonalNetwork({
    req(DF)
    diagonalNetwork(plot_str(DF, print_network = FALSE))
  })
}

shinyApp(ui, server)