refactor: remove JS code example and add Shinylive hashes compression example

Author: parmsam

README.Rmd

@@ -76,21 +76,6 @@ identical(json_string, decompressed)
 cat(decompressed)
 ```
 
-### JS code
-
-```{r}
-js_code <- "
-function test() { 
-  console.log('Hello, World!'); 
-}
-"
-compressed = lzstring::compressToBase64(js_code)
-compressed
-
-decompressed = lzstring::decompressFromBase64(compressed)
-cat(decompressed)
-```
-
 ### R code
 
 ```{r}
@@ -115,9 +100,28 @@ decompose = lzstring::decompressFromBase64(compressed)
 cat(decompose)
 ```
 
+### Compress Shinylive Hashes
+
+```{r example1-shinylive}
+code <- 'library(shiny)
+ui <- fluidPage(
+  "Hello, world!"
+)
+server <- function(input, output, session) {
+}
+shinyApp(ui, server)'
+files <- list(
+  name = jsonlite::unbox("app.R"),
+  content = jsonlite::unbox(code)
+)
+files_json <- jsonlite::toJSON(list(files))
+files_lz <- lzstring::compressToEncodedURIComponent(as.character(files_json))
+cat(paste0("https://shinylive.io/r/app/#code=", files_lz))
+```
+
 ### Decompress Shinylive Hashes
 
-```{r example2-r-shiny}
+```{r example2-shinylive}
 x <- lzstring::decompressFromEncodedURIComponent("NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKAZwAtaJWAlAB0IdJiw71OY4RBEBiAAQAROADM+cRQFUAkorVFGitKkWluUUooAmzAO6cTi3p1JEA5sxiKAtP98RAFdaRQAeX0VUKA84AH1OWhs4ehZ2ERFFRSUAQXRzWlJqLQDAiCzSQuLFAF5FITAACThqaiJFAGVefgBCBtwM8uzOpJSWKKgIFoMjRT5UINInUszFROTU4zr1scZ0uSGspV0IBdJETrpk40NjCy0IIJh6OGMiNUV6PmWA1azpUaME5nfZZMFzU6LXQ2Wr1MBfCCcfp-MHUKAvaiwhoAOSeLzeHwRnEQyMOYJgfFhAEYBmSsjAoAAPWEAVgADLTwVkAG5QahBLR1ADMbJRsiyAlpqyUAHlFmcLo1aG5PN4-L8hqg2qQ5aQQUR5VCYXUGjZlaQAArahqyWQKFTqTRrV7c16KNoeWgERSMOAARxCvph7lsDmcrncXlg6v8Ik4LrdEQMQQgBEqJHY80WuEUBr1iwEihAgyOiiVKqjPne5m4Whl1BhADEoIVuGogpiAOJwVjx4zKKxQGNlUv2Vs+-0CtxwGGPZ5u6tE6WKAAqrkUcEZqF9nESJBrVkUsSmzHITiHEdV0eVinszHQM4hzgIfOoy5Dvog1ytRGsIb4ZovuQB7nNKy5Uhgii6NYN4NL6UBprQroNCYX41q86hGFoPAGg2nxaFAixEAylQvq0rDLmCvq+JucAEIsj72LW5RZksiiZpCpAACREoWBCWBAsTLgATJB0FOHmZzmKwqBaDeQ5ar+qySYsXFmm4P7WEmn7ftq7DFmSzJJmoLYWO21BcfYpl8B4KJEuEkTxn67AUhA7CMpKigMoy7mecUgkWBgeawqxPHfIoADUihUnaZIRqCXKMpyXJMHAUAANZOHURLJeCxCYiaYDyAA7CyOQ5MoABCpJcp8RjXFiYBMYUcA1YlaL0I1ADq1mCQU8DmO0UyMtYrxBKg6blBxXnfMIeAovSLblIV5aRmq1ZWYUNn9XASJgGKqwAL6yIdgxKAAwvBwFdHwrAmPkKyIt0rB5Kg7AhLCIQ5n2rpbM6jC-bIYCHQAukAA")
 y <- jsonlite::fromJSON(x)
 cat(y$name)

README.md

@@ -88,26 +88,6 @@ cat(decompressed)
 #> {"name":["John Doe"],"age":[30],"email":["[email protected]"]}
 ```
 
-### JS code
-
-``` r
-js_code <- "
-function test() { 
-  console.log('Hello, World!'); 
-}
-"
-compressed = lzstring::compressToBase64(js_code)
-compressed
-#> [1] "FAMwrgdgxgLglgewgAhgUwM4wBQEpkDeywyyUSGCANmgHRUIDm2A5ABJpUMA0yA6ggBOVACYBCFrgDcxAL7AgA=="
-
-decompressed = lzstring::decompressFromBase64(compressed)
-cat(decompressed)
-#> 
-#> function test() { 
-#>   console.log('Hello, World!'); 
-#> }
-```
-
 ### R code
 
 ``` r
@@ -147,6 +127,26 @@ cat(decompose)
 #> data <- mutate(data, updated_salary = salary * 1.05)
 ```
 
+### Compress Shinylive Hashes
+
+``` r
+code <- 'library(shiny)
+ui <- fluidPage(
+  "Hello, world!"
+)
+server <- function(input, output, session) {
+}
+shinyApp(ui, server)'
+files <- list(
+  name = jsonlite::unbox("app.R"),
+  content = jsonlite::unbox(code)
+)
+files_json <- jsonlite::toJSON(list(files))
+files_lz <- lzstring::compressToEncodedURIComponent(as.character(files_json))
+cat(paste0("https://shinylive.io/r/app/#code=", files_lz))
+#> https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKAZwAtaJWAlAB0IAV1oACADwBaCQDNq4gCYAFKAHM47ERIlCwACTjVqRXBIDuRRtWUBCAyOEROcRgDd30ufNEQCUloSdj5UUVILIgjwyIk3Tk5giAEJEBEAXxEePlYAQXR2cQs3T3cBMAyAXSA
+```
+
 ### Decompress Shinylive Hashes
 
 ``` r