Commit 3304bed7 authored by Jakob Wirbel's avatar Jakob Wirbel

replace special characters by points instead of removing them, see #105.

parent f42c669c
......@@ -156,9 +156,9 @@ create.label <- function(label, case, meta=NULL, control = NULL,
# create new label.object
label.new <- list(label = rep(-1, length(label.vec)))
n.lab <- ifelse(is.null(n.lab), gsub("[_.-]", " ", control), n.lab)
n.lab <- ifelse(is.null(n.lab), gsub("[_.-]", ".", control), n.lab)
p.lab <- ifelse(is.null(p.lab),
ifelse(length(case) > 1, 'Case', gsub("[_.-]", " ", case)), p.lab)
ifelse(length(case) > 1, 'Case', gsub("[_.-]", ".", case)), p.lab)
info <- c(-1, 1)
names(info) <- c(n.lab, p.lab)
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment