Mercurial > repos > gaelcge > r_signac_galaxy

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

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
"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("--reduction-use"),
23 action = "store",
24 default = NA,
25 type = 'character',
26 help = "."
27 ),
28 make_option(
29 c("--dims-use"),
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
49 set.seed(1234)
50
51 dims_use <- opt$dims_use
52 if ( ! is.null(dims_use)){
53 dims_parsed <- wsc_parse_numeric(opt, 'dims_use')
54 dims_use <- seq(from = dims_parsed[1], to = dims_parsed[2])
55 }
56
57 # extract gene annotations from EnsDb
58 signac_object <- readRDS(file = opt$signac_object)
59
60 signac_object <- FindNeighbors(object = signac_object, reduction = opt$reduction_use, dims = dims_use)
61
62 # Output to a serialized R object
63 saveRDS(signac_object, file = opt$output_object_file)