Capturing the state of a box in a (secundary) input

1. Define an id for the element.
2. Add the JS dependencies to the function boxDeps().

boxDeps <- function() {
  htmlDependency(
    name = "boxBinding",
    version = "1.0.0",
    src = c(file = system.file("input-system/input-bindings", package = "OSUICode")),
    script = "boxBinding.js"
  )
}