An enterprise-targeted scalable and UI-standardized 'shiny' framework including a variety of developer convenience functions with the goal of both streamlining robust application development while assisting with creating a consistent user experience regardless of application or developer.
periscope was originally developed as the core Shiny component for bioinformatics and systems biology analysis applications. It provides a predefined but flexible template for new Shiny applications with a default dashboard layout, three locations for user alerts, a nice busy indicator and logging features.
One of the most important features of the shiny applications created with this framework is the separation by file of functionality that exists in one of the three shiny scopes: global, server-global, and server-local. The framework forces application developers to consciously consider scoping in Shiny applications by making scoping distinctions very clear without interfering with normal application development. Scoping consideration is important for performance and scaling, which is critical when working with large datasets and/or across many users. In addition to providing a template application, the framework also contains a number of convenient modules: a (multi)file download button module and a downloadable table module for example.
periscope is available for installation from CRAN or you can install the latest version of periscope from GitHub as follows:
These are included to get you started. You can either start with an empty application or an application that includes samples of the components that you can use within your application.
library(periscope)create_new_application('emptyapp', location = tempdir())runApp('emptyapp')
library(periscope)create_new_application("sampleapp", location = tempdir(), sampleapp = TRUE)runApp('sampleapp')
# Inside ui_body.R or ui_sidebar.R#single download typedownloadFileButton("object_id1",downloadtypes = c("csv"),hovertext = "Button 1 Tooltip")#multiple download typesdownloadFileButton("object_id2",downloadtypes = c("csv", "tsv"),hovertext = "Button 2 Tooltip")# Inside server_local.R#single download typecallModule(downloadFile,"object_id1",logger = ss_userAction.Log,filenameroot = "mydownload1",datafxns = list(csv = mydatafxn1))#multiple download typescallModule(downloadFile,"object_id2",logger = ss_userAction.Log,filenameroot = "mytype2",datafxns = list(csv = mydatafxn1, xlsx = mydatafxn2))
# Inside ui_body.R or ui_sidebar.RdownloadableTableUI("object_id1",downloadtypes = c("csv", "tsv"),hovertext = "Download the data here!",contentHeight = "300px",singleSelect = FALSE)# Inside server_local.Rselectedrows <- callModule(downloadableTable,"object_id1",logger = ss_userAction.Log,filenameroot = "mydownload1",downloaddatafxns = list(csv = mydatafxn1, tsv = mydatafxn2),tabledata = mydatafxn3,rownames = FALSE,caption = "This is a great table! By: Me" )