If I understand correctly, I think you will just need to add the cola.js dependency to the ui/fluidPage. Will you let me know if something like the below works?

ui <- tagList(
  shinyUI(fluidPage(
    useShinyjs(),
    titlePanel(
      "Network Browser"
    ),
    mainPanel(
      d3Output("d3")
    ),
    htmlDependency(
      name = "cola",
      version = "3.1.3",
      src = c(file = system.file("htmlwidgets/lib/WebCola", package="colaR"),
      script = "cola.min.js"
    )
))

Also, colaR has not been updated to d3v4 even though cola (js) has been, so you will need d3_version=3 in r2d3. I am happy to update if you have interest.

from r2d3.

Hi

Slight typo? in your suggestion:

from r2d3.

Hi

Slight change to your suggestion but the same error persists: Error: cola is not defined in forcegraph.js#11:14
ReferenceError: cola is not defined

library("r2d3")
library("jsonlite")
library("colaR")
library("htmltools")
library("shiny")
library(shinyjs)

ui <- tagList(
shinyUI(fluidPage(
useShinyjs(),
titlePanel(
"Network Browser"
),
mainPanel(
d3Output("d3")
),
htmlDependency(
name = "cola",
version = "3.1.3",
src = c(file = system.file("/home/shiny/webapps/d3_test/colaR/inst/htmlwidgets/lib/WebCola")),
package="colaR",
script = "cola.min.js"
)
)))

Define server logic required to process and plot data

server <- shinyServer(function(input, output,session) {

output$d3 <- renderD3({
r2d3(data = jsonlite::read_json("miserables.json"), d3_version = 3, script = "forcegraph.js")
})

})

Run the application

shinyApp(ui = ui, server = server)

The forcegraph.js i am using is as attached which is based on https://bl.ocks.org/mbostock/4063570

forcegraph.txt

Thank you!

from r2d3.