The hardware and bandwidth for this mirror is donated by METANET, the Webhosting and Full Service-Cloud Provider.
If you wish to report a bug, or if you are interested in having us mirror your free-software or open-source project, please feel free to contact us at mirror[@]metanet.ch.
This Shiny Module provides a consistent-looking and easy-to-use button that facilitates single or multiple types of file downloads.
Shiny modules consist of a pair of functions that modularize, or package, a small piece of reusable functionality. The UI function is called directly by the user to place the UI in the correct location (as with other shiny UI objects). The module server function that is called only once to set it up using the module name as a function inside the server function (i.e. user-local session scope. The first function argument is a string that represents the module id (the same id used in module UI function). Additional arguments can be supplied by the user based on the specific shiny module that is called. There can be additional helper functions that are a part of a shiny module.
The downloadableTable Shiny Module is a part of the periscope2 package and consists of the following functions:
The downloadFile Shiny Module is a part of the periscope2 package and consists of the following functions:
The downloadFile function is called directly. The call consists of the following:
Data Function or Reactive Expression Requirements
# Inside server_local.R
#single download type
downloadFile(id = "object_id1",
logger = ss_userAction.Log,
filenameroot = "mydownload1",
datafxns = list(csv = mydatafxn1),
aspectratio = 1)
#multiple download types
downloadFile(id = "object_id2",
logger = ss_userAction.Log,
filenameroot = "mytype2",
datafxns = list(csv = mydatafxn1, xlsx = mydatafxn2),
aspectratio = 1)
For a complete running shiny example application using the downloadFile module you can create and run a periscope2 sample application using:
library(periscope2)
app_dir = tempdir()
create_application(name = 'mysampleapp', location = app_dir, sample_app = TRUE)
runApp(paste(app_dir, 'mysampleapp', sep = .Platform$file.sep))
Vignettes
These binaries (installable software) and packages are in development.
They may not be fully stable and should be used with caution. We make no claims about them.