如何消除在R中networkD3图中悬停时的淡入淡出

install.packages("networkD3")
library(networkD3)

# 创建一个简单的图
src <- c("A", "A", "A", "B", "B", "C", "C", "D")
target <- c("B", "C", "D", "E", "F", "G", "H", "I")
networkData <- data.frame(src, target)

# 创建网络图
simpleNetwork(networkData)

# 创建网络图并保存为HTML文件
htmlwidgets::saveWidget(simpleNetwork(networkData), "network.html")

# 编辑network.html文件，移除或注释掉相关的JavaScript代码
# 这通常涉及到找到处理悬停效果的函数并禁用它们

library(htmltools)

# 创建一个自定义的HTML模板
template <- HTML('
<script type="text/javascript">
// 自定义JavaScript代码来移除淡入淡出效果
d3.selectAll(".node").on("mouseover", null).on("mouseout", null);
</script>
')

# 将模板添加到网络图中
browsable(tagList(simpleNetwork(networkData), template))