Mercurial > repos > nikos > rna_probing

annotate k2n.R @ 19:ceb96c265bd1 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Trying to set environment r lib path dependencies.
author nikos
date Wed, 11 Feb 2015 08:05:10 -0500
parents 31f25b37187b
children f64937805d0d
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
19
ceb96c265bd1 Trying to set environment r lib path dependencies.
nikos
parents: 17
diff changeset
1 ## Setup R error handling to go to stderr
ceb96c265bd1 Trying to set environment r lib path dependencies.
nikos
parents: 17
diff changeset
2 options( show.error.messages = FALSE, error = function () { cat( geterrmessage(), file=stderr() ); q( "no", 1, F ) } )
ceb96c265bd1 Trying to set environment r lib path dependencies.
nikos
parents: 17
diff changeset
3
ceb96c265bd1 Trying to set environment r lib path dependencies.
nikos
parents: 17
diff changeset
4 # we need that to not crash galaxy with an UTF8 error on German LC settings.
ceb96c265bd1 Trying to set environment r lib path dependencies.
nikos
parents: 17
diff changeset
5 Sys.setlocale("LC_MESSAGES", "en_US.UTF-8")
ceb96c265bd1 Trying to set environment r lib path dependencies.
nikos
parents: 17
diff changeset
6
17
31f25b37187b Uploaded
nikos
parents:
diff changeset
7 options(stringAsfactors = FALSE, useFancyQuotes = FALSE)
31f25b37187b Uploaded
nikos
parents:
diff changeset
8 args <- commandArgs(trailingOnly = TRUE)
31f25b37187b Uploaded
nikos
parents:
diff changeset
9
19
ceb96c265bd1 Trying to set environment r lib path dependencies.
nikos
parents: 17
diff changeset
10 .libPaths(args[1])
ceb96c265bd1 Trying to set environment r lib path dependencies.
nikos
parents: 17
diff changeset
11 suppressMessages(require(RNAprobR))
17
31f25b37187b Uploaded
nikos
parents:
diff changeset
12
31f25b37187b Uploaded
nikos
parents:
diff changeset
13 # Read inputs
19
ceb96c265bd1 Trying to set environment r lib path dependencies.
nikos
parents: 17
diff changeset
14 merged <- args[2]
ceb96c265bd1 Trying to set environment r lib path dependencies.
nikos
parents: 17
diff changeset
15 unique_barcodes <- args[3]
ceb96c265bd1 Trying to set environment r lib path dependencies.
nikos
parents: 17
diff changeset
16 output <- args[4]
17
31f25b37187b Uploaded
nikos
parents:
diff changeset
17
31f25b37187b Uploaded
nikos
parents:
diff changeset
18 k2n_calc( merged, unique_barcodes, output )