Я показываю древовидную структуру в приложении Shiny с помощью пакета DiagrammeR . Мне нужно определить узел, на котором щелкнул пользователь. Вот MWE:
library(shiny)
library(DiagrammeR)
ui <- fluidPage(
titlePanel("DiagrammeR Test Bed"),
grVizOutput("graph"),
textOutput("clickMessage")
)
server <- function(input, output) {
output$graph <- renderGrViz({
grViz("digraph {A [fillcolor=lemonchiffon style=filled]; B; A -> B;}")
})
output$clickMessage <- renderText({
req(input$graph_click)
paste0(
"You clicked the node labelled '",
input$graph_click$nodeValues[[1]],
"', which has the ID ",
input$graph_click$id[[1]], "."
)
})
}
shinyApp(ui = ui, server = server)
Это работает должным образом в OS X, но на Linux реактивная реакция output$clickMessage
никогда не запускается. Это единственные две операционные системы, к которым у меня есть доступ.
> sessionInfo()
R version 3.6.1 (2019-07-05)
Platform: x86_64-pc-linux-gnu (64-bit)
Running under: Red Hat Enterprise Linux
<snip>
Это ошибка в DiagrammeR
или я что-то упускаю?
[Перекрестное сообщение с здесь после трех недель бездействия.]