Руководство пользователя для gvisOrgChart предлагает использовать nodeClass вместе с CSS для получения желаемых результатов - вот код, который я пробовал, но он не работал
в разделе пользовательского интерфейса,
dashboardBody(
tags$head(
tags$link(rel ="stylesheet", type ="text/css", href ="United.css"),
tags$style(".progress-bar{background-color:green;}"),
tags$style("chart_node_normal{background-color:green;}"),
tags$style("chart_node_select{background-color:red;}")
),
....
fluidRow(
style = "max-width: 180vh; overflow-x:auto;",
column(12,htmlOutput("cgraph_1"))
),
и затем в коде, после построения данных в кадре данных CallTree
CallTree$NodeClass <- "chart_node_normal"
CallTree[1,]$NodeClass <- "chart_node_select"
g1 <- gvisOrgChart(CallTree, idvar = "CallTo", parentvar = "Callfrom", tipvar = "remarks", options = list(nodeClass = "NodeClass",color="cyan",fontSize=10,allowHtml=TRUE,allowCollapse=TRUE))
Ожидается, что цвет первого узла изменится на красный и останется зеленым - но не произойдет
Запроспомощь
С уважением,
Шами