wrap Editor QR Scanner into shiny DT::renderDT

Dear all,

This blog seems to be a good starting code to wrap QB or bar code reader from javascript library to datatable in shiny app.

How can a default editable DT from shiny app, can include additional javascript, like in the blog to get the same result?
Thanks

library(shiny)
library(DT)
shinyApp(
  ui = fluidPage(
    DTOutput('x2')
  ),
  server = function(input, output, session) {
    x = head(iris)
    x$codeBar = "" 
    output$x2 = renderDT(x, editable = T)
  }
)