Question

gvisOrgChart用户手册建议与CSS一起使用nodeClass以获得所需的结果-以下是我尝试过的代码，但没有用

在ui部分

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))

期望第一个节点的颜色将变为红色，其余部分变为绿色-但都不会发生

请求帮助

此致

Shami

使用gvis orgchart和r闪亮仪表板选择背景色

0 个答案: