Tengo una aplicación Shiny que genera una imagen después de hacer clic en un botón de acción y guarda la captura de pantalla de esa imagen después de presionar otro botón de acción. El código está funcionando, pero ahora necesito hacer lo mismo en bucle para 500 casos, en R pero sin Shiny, automáticamente, sin hacer clic entre gráficos, guardando las capturas de pantalla en una carpeta. (No necesito ver los gráficos que se generan pero, para fines de depuración, podría ser útil verlos inicialmente).

Actualmente, la imagen se genera con una biblioteca de trazado comercial, llamada por los archivos nice.js. Los archivos js y la biblioteca están en la carpeta ./www .

No puedo poner un ejemplo reproducible adecuado debido a la biblioteca comercial.

Basado en la respuesta de Stéphane, modifiqué la pregunta.

El código ahora dice...

 library(htmltools) dep <- htmlDependency( name = "html2canvas", version = "1.4.1", src = list(paste0(getwd(),"/www")), script = "html2canvas.js", all_files = FALSE ) myscript <- HTML(' function takeshot(i) { var captureElement = document.getElementById("myframe"); html2canvas(captureElement) .then(function (canvas) { canvas.style.display = "none"; document.body.appendChild(canvas); return canvas; }) .then(function (canvas) { var image = canvas .toDataURL("image/png") .replace("image/png", "octet-stream"); var a = document.createElement("a"); a.setAttribute("download", "./www/my-image-" + i + ".png"); a.setAttribute("href", image); a.click(); canvas.remove(); }); } ') for(i in 1:500){ print( browsable( tagList( dep, tags$div( #xxxxx plot goes here xxxxx tags$script(src='commercial library goes here.js'), id = 'myframe', htmltools::includeScript(paste0(getwd(),'/www/nice_',i,'.js')), ), # tags$button( 'Take screenshot', onclick = 'takeshot();' ), # tags$h1('Screenshot:'), tags$div(id = 'output'), tags$script(myscript) # tags$script('takeshot(i);'), # <======= calling takeshot(i) here? ) # closes tagList ) # closes browsable ) # closes print Sys.sleep(2) }

La parte de trazado del código funciona bien y, si uno tiene un solo trazado, descargará la imagen después de hacer clic en el botón "Tomar captura de pantalla".

Sin embargo, tengo que hacer esto para 500 archivos. ¿Hay alguna forma de descargar las capturas de pantalla automáticamente, sin hacer clic? (Quizás debe haber algún retraso entre la generación de la imagen y la captura de pantalla).

Intenté modificar la función 'tomar foto' para guardar los archivos como my-image-1.png, my-image-2.png, ..., my-image-500.png, pero no descarga nada.

Gracias