r-闪亮的arules htmlwidget图形仅在Viewer中填充

Question

我正在尝试创建一个用于可视化关联规则的闪亮应用程序。它运行良好，只是图形图一直在R Studio Viewer中填充，而不是在Shiny应用程序中。请帮忙！。以下代码(正在运行R v 3.4.2(

ui<-fluidPage(
titlePanel("test"),
sidebarLayout(
sidebarPanel(
radioButtons("hier", "Hierarchy:", c("DEPT", "SUB_DEPT", "CLASS")),      
selectInput("period",label = em("Period"), c("P1","P2"),selected = 'P1'),      
sliderInput("n_rules", "No. of rules:",min = 0, max = 100, value = 10, 
step = 10)
),
mainPanel(plotlyOutput("network_graph"))
)
)
server <- function(input, output){
output$network_graph <- renderPlotly({    
if (input$hier == 'DEPT' & input$period == 'P1') {
print(
(
plot(head(sort(DEPT_P1_All_Customers),input$n_rules), engine = 
"htmlwidget", method = "graph", height = "800px")
))
}
})
}
shinyApp(ui, server)

Answer 1

方法"graph"从visNetwork返回一个htmlwidget，因此您需要在shine中使用renderVisNetwork()而不是renderPlotly()。

Answer 2

对于"graph"方法，更改您的输入和输出，如：

plotlyOutput("network_graph")至visNetworkOutput("network_graph")以及CCD_ 5到CCD_。