From b0dd2425e467285ef82728a2fde6600ef3ce0568 Mon Sep 17 00:00:00 2001 From: Schultheis Date: Tue, 25 Jun 2019 15:20:33 +0200 Subject: [PATCH 1/2] orTextual: fixed bug where element would be selected because of matching sub string --- R/orTextual.R | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/R/orTextual.R b/R/orTextual.R index c070544..ca20790 100644 --- a/R/orTextual.R +++ b/R/orTextual.R @@ -104,7 +104,8 @@ orTextual <- function(input, output, session, choices, selected = NULL, label = esc_choices <- paste0("\\Q", input$column, "\\E") if (contains | !is.null(delimiter)) { - result <- grepl(pattern = paste0(esc_choices, paste0("($|", delimiter, ")"), collapse = "|"), raw_choices, perl = TRUE) + print(paste0(paste0("(^|", delimiter, ")"), esc_choices, paste0("($|", delimiter, ")"), collapse = "|")) + result <- grepl(pattern = paste0(paste0("(^|", delimiter, ")"), esc_choices, paste0("($|", delimiter, ")"), collapse = "|"), raw_choices, perl = TRUE) } else { result <- grepl(pattern = paste0("^(", esc_choices, ")$", collapse = "|"), raw_choices, perl = TRUE) } From edf5ce72b593896a1cc341a409c7428b5f2c0aab Mon Sep 17 00:00:00 2001 From: Schultheis Date: Tue, 25 Jun 2019 15:22:22 +0200 Subject: [PATCH 2/2] increased version to 2.2.1 --- DESCRIPTION | 2 +- NEWS.md | 2 ++ 2 files changed, 3 insertions(+), 1 deletion(-) diff --git a/DESCRIPTION b/DESCRIPTION index 1c9f0c2..b658d2c 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,7 +1,7 @@ Package: wilson Type: Package Title: Web-Based Interactive Omics Visualization -Version: 2.2.0 +Version: 2.2.1 Authors@R: c( person("Hendrik", "Schultheis", email = "hendrik.schultheis@mpi-bn.mpg.de", role = c("aut", "cre")), person("Jens", "Preussner", email = "jens.preussner@mpi-bn.mpg.de", role = "aut"), diff --git a/NEWS.md b/NEWS.md index 41e2e48..145e2f8 100644 --- a/NEWS.md +++ b/NEWS.md @@ -1,3 +1,5 @@ +# wilson 2.2.1 +- fixed orTextual selection bug # wilson 2.2.0 - export plotting functions # wilson 2.1.1