Scatter D3 Javascript Error Demo

server.R

server <- function(input, output) {
  output$force <- networkD3::renderForceNetwork({
    networkD3::forceNetwork(Links = networkD3::MisLinks, Nodes = networkD3::MisNodes,
                            Source = "source", Target = "target", Value = "value",
                            NodeID = "name", Group = "group")
  })

  output$scatterPlot <- scatterD3::renderScatterD3({
    scatterD3::scatterD3(x = c(1,2,3,4),
                         y = c(3,1,3,1),
                         #legend_width = 0, # UNCOMMENT THIS TO AVOID JS ERROR
                         col_var = c("In", "In", "Out", "In"),
                         colors = c("Out" = "#53777A", "In" = "#C02942"))
  })
}

ui.R

fluidPage(
  titlePanel("Sample scatterD3 shiny app"),
  mainPanel(
    networkD3::forceNetworkOutput("force"),
    scatterD3::scatterD3Output("scatterPlot", width = "100%", height = "600px")
  )
)