Removed more old TODO comments

npalacioescat · npalacioescat · commit 3d5b4932beb4 · 2025-11-07T14:35:28.000+01:00
diff --git a/scripts/r-legacy-server-tests.R b/scripts/r-legacy-server-tests.R
@@ -27,10 +27,7 @@ single_query <- function(query_type, args){
             x
         }
     })
-    get(query_type, envir = asNamespace('OmnipathR')) %>% exec(!!!args)
-
-    # TODO: after that also, JSON blobs decoding error in evidences column
-}
+    get(query_type, envir = asNamespace('OmnipathR')) %>% exec(!!!args)}
 
 ARGS <- list(
     omnipath_interactions = list(
@@ -168,14 +165,12 @@ ARGS <- list(
 
 
 main <- function() {
-
     ARGS %>%
     map2(
         names(.),
         .,
         function(query_type, args) {
             args %>%
-            # Fix this
             expand_grid(!!!.) %>%
             rowwise() %>%
             mutate(
@@ -185,7 +180,6 @@ main <- function() {
             )
         }
     )
-
 }
 
 main()

Original file line number	Diff line number	Diff line change
`@@ -27,10 +27,7 @@ single_query <- function(query_type, args){`
`27`	`27`	`x`
`28`	`28`	`}`
`29`	`29`	`})`
`30`		`- get(query_type, envir = asNamespace('OmnipathR')) %>% exec(!!!args)`
`31`		`-`
`32`		`- # TODO: after that also, JSON blobs decoding error in evidences column`
`33`		`-}`
	`30`	`+ get(query_type, envir = asNamespace('OmnipathR')) %>% exec(!!!args)}`
`34`	`31`
`35`	`32`	`ARGS <- list(`
`36`	`33`	`omnipath_interactions = list(`
`@@ -168,14 +165,12 @@ ARGS <- list(`
`168`	`165`
`169`	`166`
`170`	`167`	`main <- function() {`
`171`		`-`
`172`	`168`	`ARGS %>%`
`173`	`169`	`map2(`
`174`	`170`	`names(.),`
`175`	`171`	`.,`
`176`	`172`	`function(query_type, args) {`
`177`	`173`	`args %>%`
`178`		`- # Fix this`
`179`	`174`	`expand_grid(!!!.) %>%`
`180`	`175`	`rowwise() %>%`
`181`	`176`	`mutate(`
`@@ -185,7 +180,6 @@ main <- function() {`
`185`	`180`	`)`
`186`	`181`	`}`
`187`	`182`	`)`
`188`		`-`
`189`	`183`	`}`
`190`	`184`
`191`	`185`	`main()`