Probé por primera vez mi paquete monaco en un documento RMarkdown:

 --- title: "Monaco in Rmarkdown" author: "Stéphane Laurent" date: "02/05/2022" output: html_document: highlight: tango theme: lumen --- ```{r setup, include=FALSE} knitr::opts_chunk$set(echo = TRUE) library(monaco) ``` ## Monaco ```{r monaco} contents <- c( "Select [A]", " ,[year]", " ,[model]", " ....", "", "from", "(SELECT ....", "Where [year] between 2010 and 2020 and model ='1A' and [A] between 11 and 22..." ) monaco(contents, language = "sql") ```

Hay un problema con la representación:

El cuerpo es negro, y esto es mi culpa; aquí hay un extracto del archivo JavaScript que escribí:

 factory: function(el, width, height) { if(HTMLWidgets.shinyMode) { $(".monacoWidget").addClass("mWidget"); } else { $("body").addClass("mWidgetBody"); }

El fondo negro proviene de esta clase CSS, mWidgetBody . Por lo tanto, no debería agregarlo al cuerpo del documento cuando se trata de un documento RMarkdown (o Flexdashboard). Pero, ¿cómo podemos saber eso en el archivo HTMLWidgets JavaScript?