view k2n.R @ 20:4821a9e5dcf6 draft

Uploaded

## Setup R error handling to go to stderr
options( show.error.messages = FALSE, error = function () { cat( geterrmessage(), file=stderr() ); q( "no", 1, F ) } )

# we need that to not crash galaxy with an UTF8 error on German LC settings.
Sys.setlocale("LC_MESSAGES", "en_US.UTF-8")

options(stringAsfactors = FALSE, useFancyQuotes = FALSE)
args <- commandArgs(trailingOnly = TRUE)

.libPaths(args[1])
suppressMessages(require(RNAprobR))

# Read inputs
merged <- args[2]
unique_barcodes <- args[3]
output <- args[4]

k2n_calc( merged, unique_barcodes, output )