Update example a bit

Author: jeroen

README.md

@@ -3,27 +3,47 @@
 Simple container with SOCKS proxy server running behind sockify, to connect from WebAssembly.
 
 
-## Test with a public proxy server
+## Minimal example with a public proxy server
 
 Open the WebR test app on https://webr.r-wasm.org/latest/ run some code to test:
 
-
 ```r
-# This routes all traffic over a public proxy server!
-Sys.setenv(ALL_PROXY="socks5h://test:yolo@ws.opencpu.org:443")
-
+# Install packages
 install.packages("curl")
-library(curl)
 
-example(curl_fetch_memory)
+# Make a request via the public server server!
+Sys.setenv(ALL_PROXY="socks5h://test:yolo@ws.r-universe.dev:443")
+req <- curl::curl_fetch_memory('https://hb.cran.dev/get')
+cat(rawToChar(req$content))
 ```
 
 The `ALL_PROXY` variable will make libcurl route all traffic via this proxy server.
 
-The server `ws.opencpu.org` is running exactly the same service from this container, but behind cloudflare to get improved routing and proper https certificates.
+The server `ws.r-universe.dev` is running exactly the same service from this container, but behind cloudflare to get improved routing and proper https certificates.
+
+## Testing many requests in parallel
+
+The following code downloads 500 small text files in parallel over HTTP/2 to your home dir with verbosity turned on.
+
+```r
+install.packages('curl')
+Sys.setenv(ALL_PROXY='socks5h://test:yolo@ws.opencpu.org:443')
+mirror <- 'https://cran.rstudio.com'
+df <- read.dcf(curl::curl(sprintf('%s/src/contrib/PACKAGES', mirror)))
+pkgs <- df[1:500,'Package']
+urls <- sprintf('%s/web/packages/%s/DESCRIPTION', mirror, pkgs)
+destfiles <- sprintf('~/%s.txt', pkgs)
+results <- curl::multi_download(urls, destfiles, progress = FALSE, multiplex = TRUE, verbose=TRUE)
+all(results$status == 200)
+
+# Read one of the files to show it is there
+list.files('~')
+readLines("~/abc.txt")
+```
 
+If you run this in https://webr.r-wasm.org/latest/ you can also the file in the WebUI under `/home/web_user`.
 
-## Test with a local proxy server
+## Test a local proxy server
 
 On your local machine start the proxy server with:
 
@@ -34,14 +54,14 @@ docker run -it -p7777:7777 ghcr.io/r-wasm/ws-proxy
 Now open the WebR test app on https://webr.r-wasm.org/latest/ run this code to test:
 
 ```r
-# Need to use non-https ws:// for local testing
+# Need to use non-https ws:// for local testing!
 webr::eval_js("SOCKFS.websocketArgs.url = 'ws://'")
-Sys.setenv(ALL_PROXY="socks5h://test:yolo@localhost:7777")
 
+# Same as before, but with localhost
+Sys.setenv(ALL_PROXY="socks5h://test:yolo@localhost:7777")
 install.packages("curl")
-library(curl)
-
-example(curl_fetch_memory)
+req <- curl::curl_fetch_memory('https://hb.cran.dev/get')
+cat(rawToChar(req$content))
 ```
 
 You should be able to see the proxy traffic in the docker terminal session.