Conflict when using d3wordcloud with networkD3 about d3wordcloud HOT 5 CLOSED

app = shinyApp(
  ui = bootstrapPage(
    p("Word Cloud"),
    d3wordcloudOutput("wordCloud"),
    simpleNetworkOutput("networkGraph")
    ),
  server = function(input,output,session){
    library(tm)
    data("acq")
    corpus = acq
    dtm = DocumentTermMatrix(corpus)

    output$wordCloud = renderD3wordcloud({
      dtm = as.matrix(dtm)
      freq = colSums(dtm)
      freq = sort(freq, decreasing=TRUE)
      freqDF = data.frame(Word=rownames(data.frame(freq)),Frequency=freq)
      freqDF = freqDF[freqDF$Frequency>=10,]
      d3wordcloud(freqDF$Word, freqDF$Frequency)
    })

    networkGraphPreprocess = reactive({
      dtm_mtx = t(as.matrix(dtm))
      dtm_mtx[dtm_mtx>=1] = 1
      termMatrix = dtm_mtx %*% t(dtm_mtx)
      g = graph.adjacency(termMatrix, weighted=T, mode="undirected")
      g = simplify(g, remove.multiple=TRUE, remove.loops=TRUE)
      V(g)$label = V(g)$name
      V(g)$degree = degree(g)
      g2 = induced.subgraph(g, E(g)[neighbors(g,"withdrawal")])
      g2
    })

    output$networkGraph = renderSimpleNetwork({
      g2 = networkGraphPreprocess()
      g2 = get.data.frame(g2)
      colnames(g2) = c("Source","Target","Weight")
      simpleNetwork(g2, 
                    width=550, 
                    height=550,
                    fontSize = 10,
                    textColour = "#4f372d",
                    linkColour = "#4f372d",
                    nodeColour = "#cc2a36",
                    nodeClickColour = "#00a0b0",
                    opacity=0.8)
    })

  }
)
runApp(app)