Merge pull request #130 from gdrplatform/GDR-2676

Gdr 2676

DESCRIPTION

@@ -1,8 +1,8 @@
 Package: gDRutils
 Type: Package
 Title: A package with helper functions for processing drug response data
-Version: 1.3.10
-Date: 2024-08-28
+Version: 1.3.11
+Date: 2024-08-30
 Authors@R: c(person("Bartosz", "Czech", role=c("aut"),
                    comment = c(ORCID = "0000-0002-9908-3007")),
              person("Arkadiusz", "Gladki", role=c("cre", "aut"), email="[email protected]",

NEWS.md

@@ -1,3 +1,6 @@
+## gDRutils 1.3.11 - 2024-08-30
+* remove GDS fit_source from gDRviz
+
 ## gDRutils 1.3.10 - 2024-08-28
 * extend the logic of `get_additional_variables` to support other sources of fitting metrics
 

R/flatten.R

@@ -40,6 +40,11 @@ flatten <- function(tbl, groups, wide_cols, sep = "_") {
   checkmate::assert_character(wide_cols)
   checkmate::assert_string(sep)
   checkmate::assert_class(tbl, "data.table")
+
+  if ("fit_source" %in% names(tbl)) {
+    tbl <- tbl[fit_source == "gDR", ]
+    groups <- setdiff(groups, "fit_source")
+  }
 
   if (!all(groups %in% colnames(tbl))) {
     stop(sprintf("missing expected uniquifying groups: '%s'",

R/packages.R

@@ -34,7 +34,8 @@ if (getRversion() >= "2.15.1") {
       "concs",
       "type",
       "name",
-      "count"
+      "count",
+      "fit_source"
     ),
     utils::packageName())
 }