comparison signac-template.R @ 0:6e0b320d8b6a draft default tip

"planemo upload commit dc808171975d0012e25bd7b32adc7a5a5c56a145-dirty"
author gaelcge
date Tue, 02 Aug 2022 19:11:27 +0000
parents
children
comparison
equal deleted inserted replaced
-1:000000000000 0:6e0b320d8b6a
1 #!/usr/bin/env Rscript
2
3 # Load optparse we need to check inputs
4
5 suppressPackageStartupMessages(require(optparse))
6
7 # Load common functions
8
9 suppressPackageStartupMessages(require(workflowscriptscommon))
10
11 # parse options
12
13 option_list = list(
14 make_option(
15 c("--signac-object"),
16 action = "store",
17 default = NA,
18 type = 'character',
19 help = ""
20 ),
21 make_option(
22 c("--"),
23 action = "store",
24 default = NA,
25 type = 'character',
26 help = "."
27 ),
28 make_option(
29 c("--"),
30 action = "store",
31 default = NA,
32 type = 'character',
33 help = "."
34 ),
35 make_option(
36 c("--output-object-file"),
37 action = "store",
38 default = NA,
39 type = 'character',
40 help = "File name in which to store serialized R matrix object."
41 )
42 )
43
44 opt <- wsc_parse_args(option_list)
45
46 suppressPackageStartupMessages(require(Seurat))
47 suppressPackageStartupMessages(require(Signac))
48 suppressPackageStartupMessages(require(GenomeInfoDb))
49 suppressPackageStartupMessages(require(EnsDb.Hsapiens.v75))
50 suppressPackageStartupMessages(require(EnsDb.Mmusculus.v79))
51
52 set.seed(1234)
53
54 # extract gene annotations from EnsDb
55 signac_object <- readRDS(file = opt$signac_object)
56
57
58
59 # Output to a serialized R object
60 saveRDS(signac_object, file = opt$output_object_file)