View source: R/export_dataset.FuMa.R
1 | export_dataset.FuMa(object, dataset_id)
|
object |
|
dataset_id |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | ##---- Should be DIRECTLY executable !! ----
##-- ==> Define data, use random,
##-- or do help(data=index) for the standard data sets.
## The function is currently defined as
function (object, dataset_id)
{
dataset <- object$datasets[[dataset_id]]
dataset_name <- object$dataset_names[[dataset_id]]
filename <- tempfile(paste(dataset_id, ".", sep = ""))
object$dataset_exported_files[[dataset_id]] <- filename
print(paste(" - Exporting dataset ", dataset_id, ": '", dataset_name,
"' to '", filename, "'", sep = ""))
prettyPrint(dataset, filename, fusion.reads = "spanning")
return(object)
}
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.