From e721e7276bd0c747e186db42dc343cf30189d274 Mon Sep 17 00:00:00 2001 From: czechb3 Date: Fri, 15 Nov 2024 16:51:48 +0100 Subject: [PATCH] fix: bioc issue --- DESCRIPTION | 4 ++-- NEWS.md | 3 +++ R/add_annotation.R | 6 +++--- 3 files changed, 8 insertions(+), 5 deletions(-) diff --git a/DESCRIPTION b/DESCRIPTION index d4a674bd..b12113a3 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -2,8 +2,8 @@ Type: Package Package: gDRcore Title: Processing functions and interface to process and analyze drug dose-response data -Version: 1.5.1 -Date: 2024-11-05 +Version: 1.5.2 +Date: 2024-11-15 Authors@R: c( person("Bartosz", "Czech", , "bartosz.czech@contractors.roche.com", role = "aut", comment = c(ORCID = "0000-0002-9908-3007")), diff --git a/NEWS.md b/NEWS.md index 0edfff8a..84d4e2c7 100644 --- a/NEWS.md +++ b/NEWS.md @@ -1,3 +1,6 @@ +## gDRcore 1.5.2 - 2024-11-15 +* fix melt in annotation function to fix Bioc error + ## gDRcore 1.5.1 - 2024-11-05 * synchronize Bioconductor and GitHub versioning diff --git a/R/add_annotation.R b/R/add_annotation.R index 313937ac..fd2ed9f5 100644 --- a/R/add_annotation.R +++ b/R/add_annotation.R @@ -294,9 +294,9 @@ get_drug_annotation_from_dt <- function(dt) { unlist(drug_cols[c("drug", "drug_name", "drug_moa")])))), - value.name = unlist(drug_cols[c("drug", - "drug_name", - "drug_moa")])) + value.name = as.character(unlist(drug_cols[c("drug", + "drug_name", + "drug_moa")]))) dt_long[, "variable" := NULL] unique_dt <- unique(dt_long) unique_dt[!unique_dt[[drug_cols[["drug"]]]] %in% gDRutils::get_env_identifiers("untreated_tag"), ]