diff --git a/DESCRIPTION b/DESCRIPTION index e9c2192..4e235c6 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,6 +1,6 @@ Package: shinyscreenshot Title: Capture Screenshots of Entire Pages or Parts of Pages in 'Shiny' -Version: 0.2.1 +Version: 0.2.1.9000 Authors@R: c( person("Dean", "Attali", email = "daattali@gmail.com", diff --git a/NEWS.md b/NEWS.md index 5355dd3..aa9442e 100644 --- a/NEWS.md +++ b/NEWS.md @@ -1,3 +1,7 @@ +# Unreleased + +- Fix the demo app so that the images get included in the screenshot + # shinyscreenshot 0.2.1 (2023-08-19) - Add example to README to show how to use save to server feature diff --git a/inst/examples/demo/app.R b/inst/examples/demo/app.R index ec38f3e..9c4d08c 100644 --- a/inst/examples/demo/app.R +++ b/inst/examples/demo/app.R @@ -79,15 +79,15 @@ ui <- fluidPage( server <- function(input, output, session) { output$timeline <- timevis::renderTimevis({ - countryToCode <- list( - "Argentina" = "ar", - "Belgium" = "be", - "Brazil" = "br", - "Colombia" = "co", - "Costa Rica" = "cr", - "France" = "fr", - "Germany" = "de", - "Netherlands" = "nl" + countryToBase64Img <- list( + "Argentina" = "iVBORw0KGgoAAAANSUhEUgAAACAAAAAUBAMAAAAevyJ8AAAAJ1BMVEWiyOp0rN/////58+3fsGny38fnowzz5Nfr0Krr07ndqUvs1LXSnlC6gwhIAAAANklEQVQY02MQRAMMNBHAAEoQYBoMZUAFlFs8jFAE1N1yilAEVJelBKFq2eKJqgXJUAxAF98CAFcNHShSkYrsAAAAAElFTkSuQmCC", + "Belgium" = "iVBORw0KGgoAAAANSUhEUgAAABcAAAAUBAMAAACUkLs9AAAAElBMVEUAAABVSgzvM0D0ajf1ajf92iXQKeqYAAAAHUlEQVQY02NgYGBgDA0NDVFSUlJggHKCRwwH7G0AncUk97jJjWYAAAAASUVORK5CYII=", + "Brazil" = "iVBORw0KGgoAAAANSUhEUgAAAB0AAAAUCAMAAABGQsb1AAAAe1BMVEUAmzoEKnj52wIKL3lBrSsHnDjb1Qj+3wAAJ3akxxRetCQToDUopjBDWGHEzw3r2gQhRoYfPWcYoTSHvxv63gGyzcyGiDcqS4uMkTo2WJETN32+tTq2qyF+p67eyA82TV1baUzItxns0Qh+vB1+mLZqmKKeu8OSr71VcKRxCrRcAAAArElEQVQoz62Rxw6DMBBEsY2zQ7fpvaX+/xfmgFCAgFCkzPVJq7czhvGvSFseQ/NCF/OAORYREVnOHrSDsddM92NgfzHXp0EDAPRAvru2iWLiXpEJAOg48atc2RBVzb15JM8XUBN97MLJJs0AQN2SIl3azRSCQQBZkk80XF6uFQNjAlDV8vJs1TGFkrHC4xRHcvtRKwCIsmy3H01t8NwTXs532jhr8mSFswV/zBsgcAoSjHCdRAAAAABJRU5ErkJggg==", + "Colombia" = "iVBORw0KGgoAAAANSUhEUgAAAB4AAAAUAgMAAADnxWVXAAAACVBMVEUAMIfIEC7/zQBWZSB5AAAAF0lEQVQI12NYBQELGKjOIAmEQkAAMQwA+9NB7HYGMdMAAAAASUVORK5CYII=", + "Costa Rica" = "iVBORw0KGgoAAAANSUhEUgAAACEAAAAUCAMAAAA0jaRDAAAAP1BMVEX////y28NtdFSWxM8AFIntmI/laWD2ycbaKRy/xOHp3d3t7ubYx6GrwaTdPDDofHV3eIPaKh0mdlbErIY3fWbk5bcpAAAAUklEQVQoz2NgIQQYqKGCkxBgoAZgJwQYOKCAlYuLnwMbgKlg4+bl5ebDp4KVh5mZkQ2vCiYRISa8KtiEBQR48NoiyMrIiMOlhH1LDUA45uiSggASiQ2ajzJk0wAAAABJRU5ErkJggg==", + "France" = "iVBORw0KGgoAAAANSUhEUgAAAB4AAAAUAgMAAADnxWVXAAAACVBMVEUAI5XtKTn///+i/AH+AAAAFElEQVQI12NgYOBatSo0NIBh6DAATSAu4Xxi9HsAAAAASUVORK5CYII=", + "Germany" = "iVBORw0KGgoAAAANSUhEUgAAACEAAAAUBAMAAADxfUlCAAAAD1BMVEUAAABKAADdAAD0igD/zgDupiNjAAAAIUlEQVQY02NgoCMQRAMCDEpoQIGGIsZowIDBBQ040E4EAM/nLQEUDzk4AAAAAElFTkSuQmCC", + "Netherlands" = "iVBORw0KGgoAAAANSUhEUgAAAB4AAAAUBAMAAABohZD3AAAAD1BMVEUhRotrhLKuHCjIZm7///9fvUPgAAAAHElEQVQY02NUYkABTAzU5bMI4udT2z5GNPNpDQBo2wB0uX4S5QAAAABJRU5ErkJggg==" ) templateWC <- function(stage, team1, team2, score1, score2) { @@ -100,12 +100,12 @@ server <- function(input, output, session) {