Browse code

replace = by <- for Bioc

pliu55 authored on 26/02/2024 18:12:48
Showing 1 changed files
... ...
@@ -1,6 +1,6 @@
1
-FONT_SIZE = 11
2
-MAGENTA = '#CC79A7'
3
-CYAN    = '#56B4E9'
1
+FONT_SIZE <- 11
2
+MAGENTA <- '#CC79A7'
3
+CYAN    <- '#56B4E9'
4 4
 
5 5
 DASHDT <- data.table( rbind(
6 6
     c( '-a|',        'protein repression'         ),
Browse code

add package constants

pliu55 authored on 26/02/2024 16:14:15
Showing 1 changed files
1 1
new file mode 100644
... ...
@@ -0,0 +1,23 @@
1
+FONT_SIZE = 11
2
+MAGENTA = '#CC79A7'
3
+CYAN    = '#56B4E9'
4
+
5
+DASHDT <- data.table( rbind(
6
+    c( '-a|',        'protein repression'         ),
7
+    c( '-t|',        'transcriptional repression' ),
8
+    c( 'component>', 'is a component of'          ),
9
+    c( 'member>',    'is a member of'             ),
10
+    c( '-a>',        'protein activation'         ),
11
+    c( '-t>',        'transcriptional activation' ),
12
+    c( '-omic>',     'omic'                       )
13
+)) |> setnames( c('title', 'desc') )
14
+
15
+OMIC_NODEDT <- data.table( rbind(
16
+    c( 'CNA',     'omic' ),
17
+    c( 'RNA-seq', 'omic' )
18
+)) |> setnames( c('entity', 'type') )
19
+
20
+OMIC_EDGEDT <- data.table( rbind(
21
+    c( 'CNA',     '-omic>' ),
22
+    c( 'RNA-seq', '-omic>' )
23
+)) |> setnames( c('from', 'title') )