Site icon R-bloggers

Some Thoughts On Shiny Open Source: Internal Load Balancing

[This article was first published on R – NPD team, and kindly contributed to R-bloggers]. (You can report issue about the content on this page here)
Want to share your content on R-bloggers? click here if you have a blog, or here if you don't.

 

Shiny is an interesting web framework that helps create a web application quickly. If it targets a large number of users, however, there are several limitations and it is so true when the open source version of Shiny is in use. It would be possible to tackle down some of the limitations with the enterprise version but it is not easy to see enough examples of Shiny applications in production environment. While whether Shiny can be used in production environment is a controversial issue, this series of posts illustrate some ways to use open source Shiny a bit more wisely. Specifically the following topics are going to be covered.

In this post, a simple way of internal load balancing is demonstrated by redirecting multiple same applications, depending on the number of processes binded to them – this is originally from Huidong Tian’s blog.

Folder structure

As an illustration, 5 applications are added to /srv/shiny-server/redirect as shown below. The folders named 1 to 4 are the same application in different folders and the application that redirects a user (or session) to the individual applications is placed in app folder. How many sessions are binded by each application is monitored by monitor.R and the output is recorded in monitor.log.

[/mp_span]

Process monitoring

The following script saves records of the number of sessions (users) that belong to each application (app) at the end of each iteration. It begins with filtering processes that is been initiated by shiny user using the top command. Then, for each PID, it extracts a condition if TCP socket is established using the netstat command as well as the corresponding application (folder) using the lsof command.

lapply(1:60, function(x) {
  tops  0) {
    ids  0) {
      dat

The script should be run as root so that all processes are seen. Below shows an example output when two applications are open in a browser.

app users
1 shiny-server/redirect/1     1
2 shiny-server/redirect/2     1

Due to process visibility, the above script cannot be run in a Shiny application and a cron job is created in root (sudo crontab -e). It is executed every minute but a single run of the script completes quite quickly. Therefore it is wrapped in lapply() so that records are saved multiple times until the next run.

* * * * * Rscript /srv/shiny-server/redirect/monitor.R

Application code

The redirect application and associating javascript code are shown below. The application that has the least number of users is selected in the server function (app$app[which.min(app$users)]) and the link to that application is constructed. Then it is added to the input text input and a java script function named setInterval() in redirect.js is triggered.

library(shiny)
library(magrittr)
library(dplyr)

ui % left_join(users, by = "app") %>% mutate(app = sub("shiny-server/", "", app),
                                                         users = ifelse(is.na(users), "0", as.character(users)))
  link

# put redirect.js in www folder
setInterval(function() {
  var link = document.getElementById('link').value;
  if (link.length > 1) {
    window.open(link, "_top")
  }
}, 1000)

An example of the application is shown below.

Here is the code for the redirected application.
library(shiny)

ui

 

To leave a comment for the author, please follow the link and comment on their blog: R – NPD team.

R-bloggers.com offers daily e-mail updates about R news and tutorials about learning R and many other topics. Click here if you're looking to post or find an R/data-science job.
Want to share your content on R-bloggers? click here if you have a blog, or here if you don't.