show active console with log, warnings and errors during within widget during widget run

console_in_widget.R

library(htmltools)
browsable(
  tagList(
    tags$pre(id="myPreview"),
      tags$script("
      var log = document.querySelector('#myPreview');
['log','debug','info','warn','error'].forEach(function (verb) {
                  console[verb] = (function (method, verb, log) {
                  return function () {
                  method.apply(console, arguments);
                  var msg = document.createElement('div');
                  msg.classList.add(verb);
                  msg.textContent = verb + ': ' + Array.prototype.slice.call(arguments).join(' ');
                  log.appendChild(msg);
                  };
                  })(console[verb], verb, log);
                  });

console.log('test')
      "
    ),
    rmarkdown::html_dependency_jquery()
  )
)