Shiny: Difference between revisions

From 太極
Jump to navigation Jump to search
 
(39 intermediate revisions by the same user not shown)
Line 25: Line 25:
* [https://hosting.analythium.io/the-best-resources-for-learning-shiny/ The Best Resources for Learning Shiny App Development]
* [https://hosting.analythium.io/the-best-resources-for-learning-shiny/ The Best Resources for Learning Shiny App Development]
* [https://appsilon.com/best-r-shiny-books-and-courses/ Top 7 Best R Shiny Books and Courses That Are Completely Free]
* [https://appsilon.com/best-r-shiny-books-and-courses/ Top 7 Best R Shiny Books and Courses That Are Completely Free]
* [https://www.r-bloggers.com/2024/02/level-up-your-r-shiny-team-skills-with-our-free-ebook/ Level Up Your R/Shiny Team Skills with Our Free Ebook]


= Deploy to run locally =
= Deploy to run locally =
Line 49: Line 50:


[https://www.jasperginn.nl/shiny-server-series-pt1/ Shiny server series part 1: setting up]. It includes setting up A- and CNAME records on DigitalOcean.
[https://www.jasperginn.nl/shiny-server-series-pt1/ Shiny server series part 1: setting up]. It includes setting up A- and CNAME records on DigitalOcean.
== Deploy on Github Pages ==
* [https://github.com/RamiKrispin/deploy-flex-actions Deploying flexdashboard on Github Pages with Docker and Github Actions] 2022
* [https://r-posts.com/add-shiny-in-quarto-blog-with-shinylive/ Add shiny in quarto blog with shinylive] 2024
* [https://github.com/RamiKrispin/shinylive-r Deploy Shinylive R App on Github Pages]
== Deploy to Digital Ocean ==
[https://discindo.org/post/how-to-deploy-shiny-application-to-digital-ocean-using-github-actions/ How to deploy Shiny application to Digital Ocean using GitHub Actions]


= Deploy on shinyapps.io =
= Deploy on shinyapps.io =
Line 71: Line 80:
Note:
Note:


# The R packages our shiny app uses will be automatically downloaded by shinyapps.io service. See the ''package dependencies'' section on http://shiny.rstudio.com/articles/shinyapps.html and [https://docs.rstudio.com/shinyapps.io/getting-started.html#using-your-r-packages-in-the-cloud Using your R packages in the cloud].
# [https://docs.rstudio.com/shinyapps.io/appendix.html#default-system-packages Default System Packages].
# [https://docs.rstudio.com/shinyapps.io/appendix.html#default-system-packages Default System Packages].
# Two commands are needed to upload an app:  
# Two commands are needed to upload an app:  
Line 79: Line 87:
# The ''rsconnect'' stores account information. If we get the app from another account make sure to delete this subfolder before we run ''rsconnect::deployApp()''; otherwise we will get an error message ''Error: HTTP 403 .... Forbidden'''; see [https://community.rstudio.com/t/i-cant-deploy-my-app-with-a-name-that-was-used-in-a-previous-deleted-app/35223 I can't deploy my app with a name that was used in a previous deleted app].
# The ''rsconnect'' stores account information. If we get the app from another account make sure to delete this subfolder before we run ''rsconnect::deployApp()''; otherwise we will get an error message ''Error: HTTP 403 .... Forbidden'''; see [https://community.rstudio.com/t/i-cant-deploy-my-app-with-a-name-that-was-used-in-a-previous-deleted-app/35223 I can't deploy my app with a name that was used in a previous deleted app].
# For the shiny apps we uploaded to shinyapps.io, we can download them back. The download bundle will also include '''packrat''' subfolder (packrat.lock file and desc subfolder). See [[R_packages#packrat_.28reproducible_search.29:_project_specific_package_managment|R packages → packrat]] for more about packrat.
# For the shiny apps we uploaded to shinyapps.io, we can download them back. The download bundle will also include '''packrat''' subfolder (packrat.lock file and desc subfolder). See [[R_packages#packrat_.28reproducible_search.29:_project_specific_package_managment|R packages → packrat]] for more about packrat.
Caveats:
# I cannot upload my shiny app [https://taichimd.shinyapps.io/shinysurvival/ shinySurvival] when it contains data in a subdirectory.
# When the app is running perfectly locally, it gives some errors when it is deployed to the shinyapps.io. Looking at the app log does not help too much.
== deployApp() ==
<ul>
<li>Choose which files ignored deploy to shinyapps.io. See [https://www.r-bloggers.com/2021/02/deploy-to-shinyapps-io-from-github-actions/ Deploy to Shinyapps.io from Github Actions]
<pre>
deployApp(, appFiles= c("app.R" #, you can specify which files to deploy,
                                #or keep this NULL to deploy everything
                        ),
          appName = error_on_missing_name("MASTERNAME"),
          appTitle = "shinyapplication")
</pre>
</ul>
== Packages ==
<ul>
<li>The R packages our shiny app uses will be automatically downloaded by shinyapps.io service. See the ''package dependencies'' section on http://shiny.rstudio.com/articles/shinyapps.html and [https://docs.rstudio.com/shinyapps.io/getting-started.html#using-your-r-packages-in-the-cloud Using your R packages in the cloud].
<li>When you deploy your application, the '''rsconnect''' package detects the packages that your application uses by looking for explicit '''library()''' calls within your application. Be aware that you should not have an explicit '''install.packages()''' call within your ui.R or server.R files.
<li>Currently the shinyapps.io service supports deploying packages installed from '''CRAN, GitHub''', and '''BioConductor'''.
<li>[https://rdrr.io/cran/rsconnect/man/appDependencies.html rsconnect::appDependencies()] - Recursively detect all package dependencies for an application.
<li>Error when trying to deploy to shinyapps.io: Application depends on package "package" but it is not. You have to fool the shinyapps (or rsconnect) package a bit so that it does not detect package as a literal package name.
<pre>
do.call(library, list(package = package, character.only = TRUE))
</pre>
<li>How to specify package versions when deploying Shiny app to shinyapps.io? See the next item.
<li>[https://community.rstudio.com/t/shiny-app-which-depends-on-package-on-github/46354 Shiny app which depends on package on GitHub?] '''You should not install packages inside your shiny app, just install it locally and rsconnect will figure out how to install it based on your local library, you just have to load the library inside your app.''' Remember [https://rdrr.io/r/utils/packageDescription.html packageDescription()] records all information even a package installed from a specific commit from Github repository.
<li>(Is this outdated?) In order for BioConductor packages to install succesfully on shinyapps.io, the '''repos''' option must be configured, either directly or by using '''setRepositories()''', to include the BioConductor repositories in addition to CRAN.  [https://rdrr.io/r/utils/setRepositories.html setRepositories()]
<pre>
setRepositories(addURLs = c(BioC = "https://bioconductor.org/packages/3.8/bioc"))
</pre>
<li>[https://stackoverflow.com/a/73145538 Deploy shiny app using custom package]. Also use '''renv''' or '''packrat''' package.
<li>[https://community.rstudio.com/t/how-to-manage-r-package-dependencies-for-shiny-app-deployment-docker/18593/2 How to manage R package dependencies for shiny app deployment (docker)]  packrat
<li>[https://support.posit.co/hc/en-us/articles/216528108-Deploying-packrat-projects-to-Shiny-Server-Pro Deploying packrat projects to Shiny Server Pro] packrat
<li>[https://debruine.github.io/shinyintro/sharing.html Building Web Apps with R Shiny] ebook
<li>[https://www.r-bloggers.com/2021/02/deploy-to-shinyapps-io-from-github-actions/ Deploy to Shinyapps.io from Github Actions]
</ul>
== Deploying a development version of a shiny app ==
<pre>
rsconnect::deployApp(..., appName="MyApp")
rsconnect::deployApp(..., appName="MyApp_dev")
</pre>


= Shiny server installation =
= Shiny server installation =
Line 89: Line 143:


== Ubuntu & firewall ==
== Ubuntu & firewall ==
In my case, I need to modify the firewall to allow traffic through to Shiny Server '''sudo ufw allow 3838'''. See [https://www.digitalocean.com/community/tutorials/how-to-set-up-shiny-server-on-ubuntu-16-04 How to Set Up Shiny Server on Ubuntu 16.04]. The tutorial also covers '''Securing Shiny Server with a Reverse Proxy and SSL Certificate'''.
* In my case, I need to modify the firewall to allow traffic through to Shiny Server '''sudo ufw allow 3838'''. See [https://www.digitalocean.com/community/tutorials/how-to-set-up-shiny-server-on-ubuntu-16-04 How to Set Up Shiny Server on Ubuntu 16.04]. The tutorial also covers '''Securing Shiny Server with a Reverse Proxy and SSL Certificate'''.
* [https://blog.rwhitedwarf.com/post/deploy_shiny_on_debian/ Deploy your own Shiny app server with debian] 2023-1


==  RHEL/CentOS 7 ==
==  RHEL/CentOS 7 ==
Line 191: Line 246:
* Three ways  
* Three ways  
** Click "Run App" in RStudio
** Click "Run App" in RStudio
** Call [https://shiny.rstudio.com/reference/shiny/latest/runApp.html shiny::runApp("~/Directory")] in your R console
** Call [https://shiny.rstudio.com/reference/shiny/latest/runApp.html shiny::runApp("~/Directory")] in your R console. This also works if we replaced a directory with an R file.
** R -e "shiny::runApp('~/shinyapp')" from a terminal
** R -e "shiny::runApp('~/shinyapp')" from a terminal
* An [https://gist.github.com/senthilthyagarajan/a714446c9acd8127e4cbef6ede09b1fc example] of "app.R". Edit a table via the "DT" package.
* An [https://gist.github.com/senthilthyagarajan/a714446c9acd8127e4cbef6ede09b1fc example] of "app.R". Edit a table via the "DT" package.
* [https://www.mango-solutions.com/turn-shiny-application-into-a-tablet-or-desktop-app/ Turn a shiny application into a tablet or desktop app]
* [https://www.mango-solutions.com/turn-shiny-application-into-a-tablet-or-desktop-app/ Turn a shiny application into a tablet or desktop app]
= Simplifying Parts Of A Shiny App by Creating Functions =
[https://thatdatatho.com/simplifying-r-shiny-app-functions/ Simplifying Parts Of A Shiny App by Creating Functions]


= shinyuieditor =
= shinyuieditor =
Line 212: Line 270:


= The R Shiny packages you need for your web apps =
= The R Shiny packages you need for your web apps =
http://enhancedatascience.com/2017/07/10/the-packages-you-need-for-your-r-shiny-application/
https://www.r-bloggers.com/2017/07/the-r-shiny-packages-you-need-for-your-web-apps/


== Other web apps ==
== Other web apps ==
Line 231: Line 289:
* [https://hosting.analythium.io/using-systemd-to-run-shiny-apps/ Using systemd to Run Shiny Apps]
* [https://hosting.analythium.io/using-systemd-to-run-shiny-apps/ Using systemd to Run Shiny Apps]
* [https://hosting.analythium.io/running-shiny-server-in-docker/ Running Shiny Server in Docker]
* [https://hosting.analythium.io/running-shiny-server-in-docker/ Running Shiny Server in Docker]
* [https://hosting.analythium.io/shiny-apps-with-docker-compose-part-1-development/ Shiny Apps with Docker Compose, Part 1: Development]
* [https://hosting.analythium.io/shiny-apps-with-docker-compose-part-1-development/ Shiny Apps with Docker Compose, Part 1: Development] 2021
* [https://github.com/openbiox/UCSCXenaShiny UCSCXenaShiny]: An R package for interactively exploring UCSC Xena
* [https://github.com/openbiox/UCSCXenaShiny UCSCXenaShiny]: An R package for interactively exploring UCSC Xena
* [https://www.jumpingrivers.com/blog/shiny-auto-docker/ Automating Dockerfile creation for Shiny apps] 2022/10/20
* [https://www.r-bloggers.com/2023/11/r-shiny-docker-how-to-run-shiny-apps-in-a-docker-container/ R Shiny Docker: How To Run Shiny Apps in a Docker Container] 2023/11/28


= Dashboard =
= Dashboard =
Line 262: Line 322:
[https://moderndata.plot.ly/introducing-dash-bio-for-r/ Introducing Dash Bio for R]
[https://moderndata.plot.ly/introducing-dash-bio-for-r/ Introducing Dash Bio for R]


= shinytheme =
= Theme =
[https://blog.rstudio.org/2016/10/13/shinythemes-1-1-1/ shinythemes 1.1.1]


= bootstraplib =
== shinytheme ==
* [https://blog.rstudio.org/2016/10/13/shinythemes-1-1-1/ shinythemes 1.1.1]
* [https://medium.com/@PedroLinsMMC/build-your-own-interactive-data-driven-web-app-a-step-by-step-guide-2485c7b2a9bd Build Your Own Interactive Data-Driven Web App: A Step-by-Step Guide]
 
== bslib ==
[https://appsilon.com/r-shiny-bslib/ R Shiny bslib – How to Work With Bootstrap Themes in Shiny]
 
== bootstraplib ==
[https://www.programmingwithr.com/how-to-use-bootstraplib-s-live-theme-previewer-to-customize-shiny-apps/ How to use bootstraplib's Live Theme Previewer to customize Shiny apps?]
[https://www.programmingwithr.com/how-to-use-bootstraplib-s-live-theme-previewer-to-customize-shiny-apps/ How to use bootstraplib's Live Theme Previewer to customize Shiny apps?]


Line 316: Line 382:


= multiple outputs to mainPanel =
= multiple outputs to mainPanel =
https://stackoverflow.com/a/27383312
https://stackoverflow.com/a/27383312. Or use fluidRow() to expand the output in one tabPanel.
<pre>
ui <- navbarPage("My App",
  tabPanel("Lasso",
    sidebarLayout(
      sidebarPanel(
        ...
      ),
 
      mainPanel(
        tabsetPanel(
          tabPanel("CV plot", plotOutput("plotLasso")),
          tabPanel("Lasso fitting",
                  #verbatimTextOutput("fitLasso"))
                  fluidRow(
                      column(12, TextOutput("fitLasso", inline=T)),
                      column(12, verbatimTextOutput("fitLasso2"))
                  ))
        )
      ) # close mainPanel
  ) # close sidebarLayout
  ), # close tabPanel Lasso
)  #close navbar page
 
server <- function(input, output, session) {
  output$fitLasso <- renderText({ })
  output$fitLasso2 <- renderPrint({ })
}
 
shinyApp(ui, server)
</pre>


= navbarPage =
= navbarPage =
Line 354: Line 450:


= Upload a file/files =
= Upload a file/files =
* https://shiny.rstudio.com/articles/upload.html. fileInput(), renderTable(), tableOutput()
* https://shiny.rstudio.com/articles/upload.html. fileInput(), renderTable(), tableOutput(). Add ''options(shiny.maxRequestSize = 30*1024^2)'' to increase the upload size to eg 30MB.
* [https://youtu.be/Qfdd73ICDiA how to upload and access multiple CSV files in R Shiny], [https://github.com/aagarw30/R-Shinyapp-Tutorial/tree/master/Fileinput_uploadmultiplefiles source code]. renderTable(), renderPrint(), renderUI().
* [https://youtu.be/Qfdd73ICDiA how to upload and access multiple CSV files in R Shiny], [https://github.com/aagarw30/R-Shinyapp-Tutorial/tree/master/Fileinput_uploadmultiplefiles source code]. renderTable(), renderPrint(), renderUI().
* [https://youtu.be/qdnALNvYIYo demo upload a zip file and unzip it to local machine]. [https://github.com/aagarw30/R-Shinyapp-Tutorial/tree/master/fileinput_uploadzip_file Source code]. observeEvent()
* [https://youtu.be/qdnALNvYIYo demo upload a zip file and unzip it to local machine]. [https://github.com/aagarw30/R-Shinyapp-Tutorial/tree/master/fileinput_uploadzip_file Source code]. observeEvent()
Line 370: Line 466:
* https://shiny.rstudio.com/articles/isolation.html
* https://shiny.rstudio.com/articles/isolation.html
* [https://gallery.shinyapps.io/049-isolate-demo/ 049-isolate-demo]
* [https://gallery.shinyapps.io/049-isolate-demo/ 049-isolate-demo]
* It seems isolate() will always run the code one time. So consider '''eventReactive()''' or '''observeEvent()''' instead.
== actionButton and eventReactive* ==
[https://youtu.be/40hr8oF_a0E?t=181 R Shiny App Tutorial | eventReactive() demo | Create dependency on actionButton]
== actionButton, observeEvent and reactiveValues ==
<ul>
<li>[https://shiny.rstudio.com/reference/shiny/0.11/reactiveValues.html ?reactiveValues]
<li>Based on the following 2 examples. It seems
* reactiveValues() and observeEvent() work together.
* reactiveValues() will create a global variable and its value will be changed based on an actionButton.
* the effect of '''observeEvent() + reactiveValues()''' is similar to '''eventReactive()''' if we don't consider the situation that the new value depends on the old value.
<li>[https://riptutorial.com/shiny/example/32342/reactivevalues reactiveValues example]
<pre>
text_reactive <- reactiveValues(
    text = "No text has been submitted yet."
)
observeEvent(input$submit, {
    text_reactive$text <- input$user_text
})
output$text <- renderText({
    text_reactive$text
})
</pre>
eventReactive() way:
<pre>
text <- eventReactive(input$submit, {
        input$user_text
})
output$text <- renderText({
  text()
})
</pre>
<li>[https://youtu.be/ML54auObmL8 reactiveValues() in R Shiny - Example 1 - A counter] (video)
<pre>
counter <- reactiveValues(countervalue = 0)
observeEvent(input$add1,
    counter$countervalue <- counter$countervalue + 1
output$counter <- renderText({
    counter$countervalue
})
</pre>
The following code will break (Error in : C stack usage  7969216 is too close to the limit). So this is the case eventReactive() can't replace reactiveValues()!
<pre>
countervalue <- eventReactive(input$add1, {
          countervalue() + 1
})
output$counter <- renderText({
    countervalue()
})
</pre>
</ul>


= Dynamic UI =
= Dynamic UI =
Line 381: Line 533:


== eventReactive() ==
== eventReactive() ==
* [https://gallery.shinyapps.io/028-actionbutton-demo/ 028-actionbutton-demo] actionButton() and eventReactive()
<ul>
* [https://shiny.rstudio.com/articles/action-buttons.html Using Action and Reset Buttons] actionButton(), reactiveValues(), observeEvent() and eventReactive()
<li>[https://gallery.shinyapps.io/028-actionbutton-demo/ 028-actionbutton-demo] actionButton() and eventReactive()
* https://shiny.rstudio.com/reference/shiny/1.0.3/observeEvent.html
<li>[https://shiny.rstudio.com/articles/action-buttons.html Using Action and Reset Buttons] actionButton(), reactiveValues(), observeEvent() and eventReactive()
* [https://mastering-shiny.org/reactivity-objects.html observeEvent() and eventReactive()] from Mastering Shiny
<li>https://shiny.rstudio.com/reference/shiny/1.0.3/observeEvent.html
<li>[https://mastering-shiny.org/reactivity-objects.html observeEvent() and eventReactive()] from Mastering Shiny
<li>[https://stackoverflow.com/a/33520706 Shiny: what is the difference between observeEvent and eventReactive?]
* '''eventReactive'''(eventExpr, handlerExpr, ...) creates a reactive value that changes based on the eventExpr. It seems we do not care much about the returned value. ''handleExpr'' is like output$SOMETHING.
* '''observeEvent'''(eventExpr, valueExpr, ...) simply is triggered based on eventExpr. It returns a reactive expression object.
</li>
</ul>


= Files =
= Files =
Line 403: Line 561:


= Icons =
= Icons =
[https://appsilon.com/r-shiny-fontawesome-icons/ R Shiny & FontAwesome Icons – How to Use Them in Your Dashboards]
<ul>
<li>[https://appsilon.com/r-shiny-fontawesome-icons/ R Shiny & FontAwesome Icons – How to Use Them in Your Dashboards]
<li>[https://community.rstudio.com/t/image-not-showing-r-shiny-displayed-as-broken/102750 Image not showing R Shiny (displayed as broken)]
* Put the png file in the '''www''' directory
* Put your R code in the app.R file and run it through runApp() or the '''Run App''' icon in RStudio. It does not work if we call it by shinyApp() function.
<li>Example
<syntaxhighlight lang='r'>
library(shiny)
library(survival)
 
ui <- fluidPage(
  titlePanel(
      title = tags$div(tags$img(src = "icon.png", height = "32px", width = "32px"),
                      "Interactive Kaplan Meier Plot",
                      style = "background-color: black; color: white; padding: 10px;")),
  sidebarLayout(
      sidebarPanel(
        radioButtons("survivalType", "Choose survival data type:",
                      choices = list("Overall Survival" = "os", "Progression Free Survival" = "pfs"),
                      selected = "os")
      ),
      mainPanel(
        plotOutput("kmPlot")
      )
  )
)
</syntaxhighlight>
</ul>
 
= How do I add a favicon to my Shiny app =
Adding a favicon to your Shiny app can be done by placing the favicon file in the www directory of your Shiny app and then using the tags$link function in your UI to link to it. Here’s how you can do it:
 
<ol>
<li>Place your favicon file (e.g., favicon.ico) in the www directory of your Shiny app.
<li>In your UI, add the following line inside the fluidPage or navbarPage function:
<pre>
tags$head(tags$link(rel = "shortcut icon", href = "favicon.ico", type = "image/x-icon"))
</pre>
<li>Here’s an example of how it might look in a Shiny app:
<pre>
ui <- fluidPage(
  titlePanel("My Shiny App"),
  tags$head(tags$link(rel = "shortcut icon", href = "favicon.ico", type = "image/x-icon")),
  # Rest of your UI code...
)
 
server <- function(input, output) {
  # Your server code...
}
 
shinyApp(ui = ui, server = server)
</pre>
</ol>
 
Websites to convert an image to a favicon:
* https://www.favicon-generator.org/
* https://favicon.io/
* https://www.favicongenerator.com/


= Building a Shiny App as a Package =
= Building a Shiny App as a Package =
Line 458: Line 673:
= Tips =
= Tips =
[http://deanattali.com/blog/advanced-shiny-tips/ Shiny tips & tricks for improving your apps and solving common problems] by Dean Attali.
[http://deanattali.com/blog/advanced-shiny-tips/ Shiny tips & tricks for improving your apps and solving common problems] by Dean Attali.
== Adding a website ==
[https://www.r-bloggers.com/2023/09/adding-a-website-next-to-your-shiny-server/ Adding a website next to your Shiny server]
== A Guide to Benchmarking Memory Usage ==
[https://www.r-bloggers.com/2023/11/maximizing-efficiency-a-guide-to-benchmarking-memory-usage-in-shiny-apps/ Maximizing Efficiency: A Guide to Benchmarking Memory Usage in Shiny Apps]


= Recreating a Shiny App with Flask =
= Recreating a Shiny App with Flask =
[https://www.jumpingrivers.com/blog/r-shiny-python-flask/ Recreating a Shiny App with Flask]
[https://www.jumpingrivers.com/blog/r-shiny-python-flask/ Recreating a Shiny App with Flask]
== Webhook ==
Flask, a popular web framework.
This example assumes that you have a server running at https://yourserver.com/webhook that is set up to receive POST requests.
<syntaxhighlight lang='python'>
from flask import Flask, request
app = Flask(__name__)
@app.route('/webhook', methods=['POST'])
def respond():
    print(request.json)
    return {'status': 'success'}, 200
if __name__ == '__main__':
    app.run(port=5000, debug=True)
</syntaxhighlight>
In this example, whenever a POST request is made to https://yourserver.com/webhook, the respond function is triggered. This function prints the JSON payload of the request and returns a success status. The JSON payload is the data sent by the application that triggered the webhook. This could be any data related to the event that occurred in the other application. For instance, if the webhook was triggered by a new user signing up, the JSON payload might contain the new user’s details.
You can use the curl command to send a POST request to your local server. Here’s an example:
{{Pre}}
curl -X POST -H "Content-Type: application/json" -d '{"key":"value"}' http://localhost:5000/webhook
</pre>


= Modularize your shiny apps =
= Modularize your shiny apps =
Line 503: Line 747:
* Essential guidelines for computational method benchmarking [https://genomebiology.biomedcentral.com/articles/10.1186/s13059-019-1738-8 paper]
* Essential guidelines for computational method benchmarking [https://genomebiology.biomedcentral.com/articles/10.1186/s13059-019-1738-8 paper]
* [https://www.rna-seqblog.com/bisr-rnaseq-an-efficient-and-scalable-rnaseq-analysis-workflow-with-interactive-report-generation/ BISR-RNAseq] – an efficient and scalable RNAseq analysis workflow with interactive report generation
* [https://www.rna-seqblog.com/bisr-rnaseq-an-efficient-and-scalable-rnaseq-analysis-workflow-with-interactive-report-generation/ BISR-RNAseq] – an efficient and scalable RNAseq analysis workflow with interactive report generation
* [https://bmcbioinformatics.biomedcentral.com/articles/10.1186/s12859-023-05420-y ROGUE: an R Shiny app for RNA sequencing analysis and biomarker discovery] 2023
* [https://bmcbioinformatics.biomedcentral.com/articles/10.1186/s12859-020-03577-4 NASQAR]: a web-based platform for high-throughput sequencing data analysis and visualization. 2020
* [https://bmcbioinformatics.biomedcentral.com/articles/10.1186/s12859-020-03577-4 NASQAR]: a web-based platform for high-throughput sequencing data analysis and visualization. 2020
* [https://oncogenomics.bmc.lu.se/MutationExplorer/ MutationExplorer] (sloww) and [https://github.com/cbrueffer/MutationExplorer Source]
* [https://oncogenomics.bmc.lu.se/MutationExplorer/ MutationExplorer] (sloww) and [https://github.com/cbrueffer/MutationExplorer Source]
Line 515: Line 760:
* [https://bmcbioinformatics.biomedcentral.com/articles/10.1186/s12859-022-04641-x classifieR a flexible interactive cloud-application for functional annotation of cancer transcriptomes]
* [https://bmcbioinformatics.biomedcentral.com/articles/10.1186/s12859-022-04641-x classifieR a flexible interactive cloud-application for functional annotation of cancer transcriptomes]
* [https://www.bioconductor.org/packages/release/bioc/html/BatchQC.html BatchQC] package. Batch Effects Quality Control Software. That's why the vignettes do not show any text/plots output. However, an HTML report and other files are created automatically in the working directory.
* [https://www.bioconductor.org/packages/release/bioc/html/BatchQC.html BatchQC] package. Batch Effects Quality Control Software. That's why the vignettes do not show any text/plots output. However, an HTML report and other files are created automatically in the working directory.
* [http://bioconductor.org/packages/release/bioc/html/TCGAbiolinksGUI.html TCGAbiolinksGUI]: A Graphical User Interface to analyze cancer molecular and clinical data (got some error when calling TCGAbiolinksGUI()). [https://bioconductor.org/packages/release/bioc/vignettes/TCGAbiolinks/inst/doc/gui.html#Setting_up_image_using_command-line Docker image] with instruction (works fine 8GB image, access via http://URL:3334).
** The web interface allows us to download the data and then upload it (from the docker machine) to the portal  for data analysis. Very nice!
** After uploading the data, the screen flashed many times? It should has a feedback to show the first few rows of the data.
** Strangely even the downloaded csv file has required column names (days_to_death, days_to_last_follow_up, vital_status) for the analysis tool (the survival plot), I still got an error. ''An error has occurred. Check your logs or contact the app author for clarification.''
** No any error messages in the docker log.
** It seems the performance & reliability is an issue.
* [https://bmcbioinformatics.biomedcentral.com/articles/10.1186/s12859-023-05221-3 LACE 2.0]: an interactive R tool for the inference and visualization of longitudinal cancer evolution 2023
* [https://github.com/SomaLogic/ProViz ProViz] ProViz imports an ADAT file (SomaLogic's data file format) and allows users to perform various exploratory data analytic processes.


= Interesting Examples =
= Interesting Examples =
Line 547: Line 800:
* [https://blog.rstudio.com/2020/07/13/winners-of-the-2nd-shiny-contest/ Hangman] from 2nd Annual Shiny Contest.
* [https://blog.rstudio.com/2020/07/13/winners-of-the-2nd-shiny-contest/ Hangman] from 2nd Annual Shiny Contest.
* [https://statisticaloddsandends.wordpress.com/2020/12/22/a-shiny-app-for-exploratory-data-analysis/ A shiny app for exploratory data analysis]
* [https://statisticaloddsandends.wordpress.com/2020/12/22/a-shiny-app-for-exploratory-data-analysis/ A shiny app for exploratory data analysis]
* [https://www.biorxiv.org/content/10.1101/2023.06.09.544161v1 PlotS]: web-based application for data visualization and analysis


= Scaling =
= Scaling =

Latest revision as of 06:38, 27 March 2024

Preliminary

The following is what we see on a browser after we run an example from shiny package. See http://rstudio.github.com/shiny/tutorial/#hello-shiny. Note that the R session needs to be on; i.e. R command prompt will not be returned unless we press Ctrl+C or ESC.

ShinyHello.png Shinympg.png ShinyReactivity.png ShinyTabsets.png ShinyUpload.png

More shiny examples can be found on https://github.com/rstudio/shiny-examples 188 shiny-examples (note this is not what runExample("08_html") used. runExample() used local files that contain only 11 examples). The local directory is /Library/Frameworks/R.framework/Versions/4.2/Resources/library/shiny/ for R 4.2.x on macOS.

shiny depends on websockets, caTools, bitops, digest packages.

Q & A:

  • Tutorial: http://wch.github.io/shiny/tutorial/
  • Layout: http://shiny.rstudio.com/articles/layout-guide.html
  • Q: If we run runExample('01_hello') in Rserve from an R client, we can continue our work in R client without losing the functionality of the GUI from shiny. Question: how do we kill the job?
  • If I run the example "01_hello", the browser only shows the control but not graph on Firefox? A: Use Chrome or Opera as the default browser.
  • Q: How difficult to put the code in Gist:github? A: Just create an account. Do not even need to create a repository. Just go to http://gist.github.com and create a new gist. The new gist can be secret or public. A secret gist can not be edited again after it is created although it works fine when it was used in runGist() function.

Resources

Deploy to run locally

Run Shiny Apps Locally 2021

Follow the instruction here, we can do as following (Tested on Windows OS)

  1. Create a desktop shortcut with target "C:\Program Files\R\R-3.0.2\bin\R.exe" -e "shiny::runExample('01_hello')" . We can name the shortcut as we like, e.g. R+shiny
  2. Double click the shortcut. The Windows Firewall will be popped up and say it block some features of the program. It does not matter if we choose Allow access or Cancel.
  3. Look at the command prompt window (black background console window), it will say something like
    Listening on port 7510
    at the last line of the console.
  4. Open your browser (Chrome or Firefox works), and type the address http://localhost:7510. You will see something magic happen.
  5. If we don't want to play with it, we can close the browser and close the command console (hit 'x')too.

rmarkdown::run() instead of rmarkdown::render()

Use rmarkdown::run("XXX.Rmd") file. If you use the render() function, you will receive an error "Error: path for html_dependency not provided Execution".

RInno

Installs shiny apps packaged as stand-alone Electron apps using Inno Setup, an open source software that builds installers for Windows programs only.

Deploy on cloud

https://www.r-bloggers.com/deploying-r-rstudio-and-shiny-applications-on-unbuntu-server/

Shiny server series part 1: setting up. It includes setting up A- and CNAME records on DigitalOcean.

Deploy on Github Pages

Deploy to Digital Ocean

How to deploy Shiny application to Digital Ocean using GitHub Actions

Deploy on shinyapps.io

About the account

Shinyapps.io can accept google account to sign up.

Note:

  1. Default System Packages.
  2. Two commands are needed to upload an app:
    • rsconnect::setAccountInfo() [the full command is copied from account's token page.
    • rsconnect::deployApp() [assume we are in the right working directory]. If the machine contains several accounts, we can use deployApp(account = "XXXX") to specify the account we want to deploy the app. After successful deployment, the browser will open the URL for our app.
  3. After we run rsconnect() command to deploy our apps, a new subfolder rsconnect will be created under our app folder. I add this folder to .gitignore file. But it seems this file/folder does not contain any secret information. So not worry.
  4. The rsconnect stores account information. If we get the app from another account make sure to delete this subfolder before we run rsconnect::deployApp(); otherwise we will get an error message Error: HTTP 403 .... Forbidden'; see I can't deploy my app with a name that was used in a previous deleted app.
  5. For the shiny apps we uploaded to shinyapps.io, we can download them back. The download bundle will also include packrat subfolder (packrat.lock file and desc subfolder). See R packages → packrat for more about packrat.

Caveats:

  1. I cannot upload my shiny app shinySurvival when it contains data in a subdirectory.
  2. When the app is running perfectly locally, it gives some errors when it is deployed to the shinyapps.io. Looking at the app log does not help too much.

deployApp()

  • Choose which files ignored deploy to shinyapps.io. See Deploy to Shinyapps.io from Github Actions
    deployApp(, appFiles= c("app.R" #, you can specify which files to deploy, 
                                     #or keep this NULL to deploy everything
                             ),
              appName = error_on_missing_name("MASTERNAME"),
              appTitle = "shinyapplication")
    

Packages

  • The R packages our shiny app uses will be automatically downloaded by shinyapps.io service. See the package dependencies section on http://shiny.rstudio.com/articles/shinyapps.html and Using your R packages in the cloud.
  • When you deploy your application, the rsconnect package detects the packages that your application uses by looking for explicit library() calls within your application. Be aware that you should not have an explicit install.packages() call within your ui.R or server.R files.
  • Currently the shinyapps.io service supports deploying packages installed from CRAN, GitHub, and BioConductor.
  • rsconnect::appDependencies() - Recursively detect all package dependencies for an application.
  • Error when trying to deploy to shinyapps.io: Application depends on package "package" but it is not. You have to fool the shinyapps (or rsconnect) package a bit so that it does not detect package as a literal package name.
    do.call(library, list(package = package, character.only = TRUE))
    
  • How to specify package versions when deploying Shiny app to shinyapps.io? See the next item.
  • Shiny app which depends on package on GitHub? You should not install packages inside your shiny app, just install it locally and rsconnect will figure out how to install it based on your local library, you just have to load the library inside your app. Remember packageDescription() records all information even a package installed from a specific commit from Github repository.
  • (Is this outdated?) In order for BioConductor packages to install succesfully on shinyapps.io, the repos option must be configured, either directly or by using setRepositories(), to include the BioConductor repositories in addition to CRAN. setRepositories()
    setRepositories(addURLs = c(BioC = "https://bioconductor.org/packages/3.8/bioc"))
    
  • Deploy shiny app using custom package. Also use renv or packrat package.
  • How to manage R package dependencies for shiny app deployment (docker) packrat
  • Deploying packrat projects to Shiny Server Pro packrat
  • Building Web Apps with R Shiny ebook
  • Deploy to Shinyapps.io from Github Actions

Deploying a development version of a shiny app

rsconnect::deployApp(..., appName="MyApp")
rsconnect::deployApp(..., appName="MyApp_dev")

Shiny server installation

Each app directory needs to be copied to /srv/shiny-server/ (which links to /opt/shiny-server/) directory using sudo.

The default port is 3838. That is, the remote computer can access the website using http://xxx.xxx.x.xx:3838/AppName.

Release

Shiny Server 1.5.16 Update 2021-01-03

Ubuntu & firewall

RHEL/CentOS 7

https://www.vultr.com/docs/how-to-install-shiny-server-on-centos-7

Raspberry Pi

R

sudo nano /etc/apt/sources.list
# deb http://archive.raspbian.org/raspbian/ stretch main 

sudo apt-get update
sudo apt-get install r-base r-base-core r-base-dev

Shiny-server

sudo apt-get install cmake

sudo su - -c "R -e \"install.packages('shiny', repos='http://cran.rstudio.com/')\"" 

git clone https://github.com/rstudio/shiny-server.git
cd shiny-server
mkdir tmp
cd tmp
DIR=`pwd`
PATH=$DIR/../bin:$PATH

PYTHON=`which python`
$PYTHON --version

cmake -DCMAKE_INSTALL_PREFIX=/usr/local -DPYTHON="$PYTHON" ../

make
mkdir ../build
(cd .. && ./bin/npm --python="$PYTHON" install)
(cd .. && ./bin/node ./ext/node/lib/node_modules/npm/node_modules/node-gyp/bin/node-gyp.js --python="$PYTHON" rebuild)

sudo make install

sudo ln -s /usr/local/shiny-server/bin/shiny-server /usr/bin/shiny-server

sudo useradd -r -m shiny

sudo mkdir -p /var/log/shiny-server
sudo mkdir -p /srv/shiny-server
sudo mkdir -p /var/lib/shiny-server
sudo chown shiny /var/log/shiny-server
sudo mkdir -p /etc/shiny-server

cd /etc/shiny-server/
sudo wget http://withr.me/misc/shiny-server.conf

sudo shiny-server

http://192.168.X.XXX:3838

建立 server.R 及 ui.R 程式

cd /srv/shiny-server
mkdir hello_shiny
cd hello_shiny
# 分別建立 server.R 及 ui.R

Running shiny server as non-root: run_as

Google analytics

https://docs.rstudio.com/shiny-server/#google-analytics

Reverse proxy: Deploy your own shiny server

Shiny https: Securing Shiny Open Source with SSL

Securing Shiny Server with Caddy

Shiny for Python

https://shiny.rstudio.com/py/

How to run an R shiny app

Simplifying Parts Of A Shiny App by Creating Functions

Simplifying Parts Of A Shiny App by Creating Functions

shinyuieditor

shinyuieditor package

Shiny UI Prototype Builder

designer package

How to Build a Data Analysis App in R Shiny

How to Build a Data Analysis App in R Shiny

Landing page

The R Shiny packages you need for your web apps

https://www.r-bloggers.com/2017/07/the-r-shiny-packages-you-need-for-your-web-apps/

Other web apps

Ten simple rules for researchers who want to develop web apps

Shiny + Docker

Dashboard

shinydashboard

flexdashboard

shinyalert: create pretty popup messages (modals) in Shiny

shinyalert

shinyjs

shinyjs

Dash bio for R

Introducing Dash Bio for R

Theme

shinytheme

bslib

R Shiny bslib – How to Work With Bootstrap Themes in Shiny

bootstraplib

How to use bootstraplib's Live Theme Previewer to customize Shiny apps?

shiny + databases

tags, hyperlinks

dates

websocket

CentOS

Gallery

git clone https://github.com/rstudio/shiny-examples.git
shiny::runApp("~/github/shiny-examples/018-datatable-options/")

Persistent data storage in Shiny apps

http://deanattali.com/blog/shiny-persistent-data-storage/

multiple outputs to mainPanel

https://stackoverflow.com/a/27383312. Or use fluidRow() to expand the output in one tabPanel.

ui <- navbarPage("My App",
  tabPanel("Lasso",
     sidebarLayout(
       sidebarPanel(
         ...
       ),

       mainPanel(
         tabsetPanel(
          tabPanel("CV plot", plotOutput("plotLasso")),
          tabPanel("Lasso fitting", 
                   #verbatimTextOutput("fitLasso"))
                   fluidRow(
                      column(12, TextOutput("fitLasso", inline=T)),
                      column(12, verbatimTextOutput("fitLasso2"))
                   ))
         )
       ) # close mainPanel
   ) # close sidebarLayout
  ), # close tabPanel Lasso
)  #close navbar page

server <- function(input, output, session) {
  output$fitLasso <- renderText({ })
  output$fitLasso2 <- renderPrint({ })
}

shinyApp(ui, server)

navbarPage

How to get the selected Tab-ID in a navbarPage with modules

HTML

  • Customize your UI with HTML
    # adding the new div tag to the sidebar            
          tags$div(class="header", checked=NA,
                   tags$p("Ready to take the Shiny tutorial? If so"),
                   tags$a(href="shiny.rstudio.com/tutorial", "Click Here!")
    
  • Build your entire UI with HTML. This seems to be a more complicated approach at first glance.
    <application-dir>
    |-- app.R
    |-- www
        |-- index.html
    

    and "app.R"

    # ui is defined in the HTML file
    
    server <- function(input, output) { }
    
    shinyApp(ui = htmlTemplate("www/index.html"), server)
    
  • HTML templates
  • Shiny HTML Tags Glossary

Conditional input

Upload a file/files

reactive

actionButton and isolate

actionButton and eventReactive*

R Shiny App Tutorial | eventReactive() demo | Create dependency on actionButton

actionButton, observeEvent and reactiveValues

  • ?reactiveValues
  • Based on the following 2 examples. It seems
    • reactiveValues() and observeEvent() work together.
    • reactiveValues() will create a global variable and its value will be changed based on an actionButton.
    • the effect of observeEvent() + reactiveValues() is similar to eventReactive() if we don't consider the situation that the new value depends on the old value.
  • reactiveValues example
    text_reactive <- reactiveValues(
        text = "No text has been submitted yet."
    )
    
    observeEvent(input$submit, {
        text_reactive$text <- input$user_text
    })
    
    output$text <- renderText({
        text_reactive$text
    })
    

    eventReactive() way:

    text <- eventReactive(input$submit, {
            input$user_text
    })
    output$text <- renderText({
      text()
    })
    
  • reactiveValues() in R Shiny - Example 1 - A counter (video)
    counter <- reactiveValues(countervalue = 0)
    
    observeEvent(input$add1, 
        counter$countervalue <- counter$countervalue + 1
    
    output$counter <- renderText({
        counter$countervalue 
    })
    

    The following code will break (Error in : C stack usage 7969216 is too close to the limit). So this is the case eventReactive() can't replace reactiveValues()!

    countervalue <- eventReactive(input$add1, {
               countervalue() + 1
    })
    output$counter <- renderText({
        countervalue()
    })
    

Dynamic UI

eventReactive()

Files

shinyFiles

shinyFiles package. This package extends the functionality of shiny by providing an API for client side access to the server file system. As many shiny apps are run locally this is equivalent to accessing the filesystem of the users own computer, without the overhead of copying files to temporary locations that is tied to the use of fileInput().

Password protection

Install all required R packages

http://padamson.github.io/r/shiny/2016/03/13/install-required-r-packages.html

Icons

  • R Shiny & FontAwesome Icons – How to Use Them in Your Dashboards
  • Image not showing R Shiny (displayed as broken)
    • Put the png file in the www directory
    • Put your R code in the app.R file and run it through runApp() or the Run App icon in RStudio. It does not work if we call it by shinyApp() function.
  • Example
    library(shiny)
    library(survival)
    
    ui <- fluidPage(
       titlePanel(
          title = tags$div(tags$img(src = "icon.png", height = "32px", width = "32px"), 
                           "Interactive Kaplan Meier Plot", 
                           style = "background-color: black; color: white; padding: 10px;")),
       sidebarLayout(
          sidebarPanel(
             radioButtons("survivalType", "Choose survival data type:",
                          choices = list("Overall Survival" = "os", "Progression Free Survival" = "pfs"),
                          selected = "os")
          ),
          mainPanel(
             plotOutput("kmPlot")
          )
       )
    )

How do I add a favicon to my Shiny app

Adding a favicon to your Shiny app can be done by placing the favicon file in the www directory of your Shiny app and then using the tags$link function in your UI to link to it. Here’s how you can do it:

  1. Place your favicon file (e.g., favicon.ico) in the www directory of your Shiny app.
  2. In your UI, add the following line inside the fluidPage or navbarPage function:
    tags$head(tags$link(rel = "shortcut icon", href = "favicon.ico", type = "image/x-icon"))
    
  3. Here’s an example of how it might look in a Shiny app:
    ui <- fluidPage(
       titlePanel("My Shiny App"),
       tags$head(tags$link(rel = "shortcut icon", href = "favicon.ico", type = "image/x-icon")),
       # Rest of your UI code...
    )
    
    server <- function(input, output) {
       # Your server code...
    }
    
    shinyApp(ui = ui, server = server)
    

Websites to convert an image to a favicon:

Building a Shiny App as a Package

Collapsible menu

Three R Shiny tricks to make your Shiny app shines (2/3): Semi-collapsible sidebar

Color picker

https://github.com/daattali/colourpicker

Simulations

Monte Carlo Shiny

Tables

Multimedia

Shiny and Reactive Multimedia

Math formula

shinyMatrix

Tree

shinyTree

D3

Time series

dygraphs

CSS

Debug

Talks

Shiny in production: Principles, practices, and tools - Joe Cheng 2019

Tips

Shiny tips & tricks for improving your apps and solving common problems by Dean Attali.

Adding a website

Adding a website next to your Shiny server

A Guide to Benchmarking Memory Usage

Maximizing Efficiency: A Guide to Benchmarking Memory Usage in Shiny Apps

Recreating a Shiny App with Flask

Recreating a Shiny App with Flask

Webhook

Flask, a popular web framework.

This example assumes that you have a server running at https://yourserver.com/webhook that is set up to receive POST requests.

from flask import Flask, request
app = Flask(__name__)

@app.route('/webhook', methods=['POST'])
def respond():
    print(request.json)
    return {'status': 'success'}, 200

if __name__ == '__main__':
    app.run(port=5000, debug=True)

In this example, whenever a POST request is made to https://yourserver.com/webhook, the respond function is triggered. This function prints the JSON payload of the request and returns a success status. The JSON payload is the data sent by the application that triggered the webhook. This could be any data related to the event that occurred in the other application. For instance, if the webhook was triggered by a new user signing up, the JSON payload might contain the new user’s details.

You can use the curl command to send a POST request to your local server. Here’s an example:

curl -X POST -H "Content-Type: application/json" -d '{"key":"value"}' http://localhost:5000/webhook

Modularize your shiny apps

A Shiny-app Serves as Shiny-server Load Balancer

ggtips: adding tooltips boxes to ggplots

Adds interactive tooltip boxes to ggplots (standalone or rendered in Shiny)

Shinyloadtest tools for load testing Shiny applications

shinytest

New in RStudio 1.2: record and run tests for your Shiny code right inside the IDE with the shinytest package

Shiny-server System Performance Monitoring for Open Source Edition

Build a static website with R Shiny

Build a static website with R Shiny

Embed a shiny app on your website

<iframe width="750" height="650" scrolling="no" frameborder="no" src="https://hinkelman.shinyapps.io/shiny-survival-covariate/"> </iframe>

Machine learning examples

How To Share Your Machine Learning Models With Shiny

Real Shiny Examples

Interesting Examples

Scaling

Long run with Shiny

Track Shiny App User Activity With the RStudio Connect Server =

Track Shiny App User Activity With the RStudio Connect Server API

Standalone application

Photon: Building an Electron-Shiny app using a simple RStudio addin

Mobile

shinyMobile