trazar un gráfico de barras en una ventana emergente utilizando la biblioteca de folletos

Pregunta rápida a todos. Tengo algunos datos en el servidor SQL que he cargado en RStudio. He hecho un gráfico de barras para los datos y ahora estoy usando la biblioteca de folletos con el uso de latitud y longitud para trazar un punto en el mapa. Quiero poder usar la ventana emergente para mostrar un gráfico de barras cuando el usuario haga clic en el punto.

Código BarChart (tal vez esto sea un problema porque estoy usando la biblioteca googleVis, así que no estoy seguro si puedo usar esto en la ventana emergente. Pero nuevamente, este es el gráfico de barras más apropiado que puedo hacer y necesitar; otras sugerencias podrían ser útiles ya que no estoy un profesional en bibliotecas R todavía)

Switzerland <- sqlQuery(con, "sql query")
SwitzerlandChart <- gvisBarChart(Switzerland, options = list(height=200))

Para la gráfica, el código es:

m <- leaflet() %>%
  addTiles() %>%  # Add default OpenStreetMap map tiles
  addCircles(lng=8.498868, lat=46.9221, popup=paste(plot(SwitzerlandChart)))

Cuando ejecuto este código, abre una página web para ver mi diagrama de barras. Luego ejecuto lo siguiente:

m #Prints the graph

Esto imprime el gráfico con el punto en la ubicación deseada, pero la ventana emergente me muestra una página web que también solo yo puedo abrir.

Quiero poder trazar el gráfico de barras dentro de la ventana emergente, por favor.

Espero que alguien pueda ayudar

Respuestas a la pregunta(2)

Su respuesta a la pregunta