График блеска arules htmlwidget заполняется только в средстве просмотра

Question

Я пытаюсь создать блестящее приложение для визуализации правил ассоциации.Он работает нормально, за исключением того, что графическая диаграмма продолжает заполняться в R Studio Viewer, а не в Shiny App.Пожалуйста помоги!.Код ниже (я использую 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

Для метода «график» измените ваш ввод и вывод, как:

plotlyOutput("network_graph") на visNetworkOutput("network_graph") и renderPlotly на renderVisNetwork.

Answer 2

Метод «graph» возвращает htmlwidget из visNetwork, поэтому вам нужно использовать renderVisNetwork() вместо renderPlotly() в блестящем.