list_statements <- function(){
file_loc <- bank_statement_file()
sort(list.files(file_loc), decreasing = TRUE)
}
bank_statement_file <- function(file_name = ""){
system.file("bank_statements",
file_name,
package = "bankstatements",
mustWork = TRUE)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.