@@ -117,7 +117,7 @@ function Run(){
117117 function process (){
118118 $ header = $ this ->GetReadFile ()->Read (200000 );
119119 $ header_arr = explode ("\t" , $ header );
120- $ n = 41 ;
120+ $ n = 43 ;
121121 $ c = count ($ header_arr );
122122 if ($ c != $ n )
123123 {
@@ -170,6 +170,8 @@ function process(){
170170 $ ucsc_id_mappeddatasuppliedbyUCSC = $ fields [38 ];
171171 $ mouse_genome_database_id_mappeddatasuppliedbyMGI = $ fields [39 ];
172172 $ rat_genome_database_id_mappeddatasuppliedbyRGD = $ fields [40 ];
173+ $ rna_central_ids = $ fields [41 ];
174+ $ LNCipedia_symbol = $ fields [42 ];
173175
174176 $ id_res = $ id ;
175177 $ id_label = "Gene Symbol for " .$ approved_symbol ;
@@ -509,6 +511,24 @@ function process(){
509511 }
510512 }
511513 }
514+ if (!empty ($ rna_central_ids )) {
515+ foreach (explode (", " , $ rna_central_ids ) AS $ id ) {
516+ if (!empty ($ id )){
517+ parent ::addRDF (
518+ parent ::triplify ($ id_res , $ this ->getVoc ()."x-rna-central " , "rnacentral: " .trim ($ id )).
519+ parent ::describeProperty ($ this ->getVoc ()."x-rna-central " , "RNA Central entry " )
520+ );
521+ }
522+ }
523+ }
524+ if (!empty ($ LNCipedia_symbol )) {
525+ parent ::addRDF (
526+ parent ::triplify ($ id_res , $ this ->getVoc ()."x-lncipedia " , "lncipedia: " .trim ($ LNCipedia_symbol )).
527+ parent ::describeProperty ($ this ->getVoc ()."x-lncipedia " , "LNCipedia entry " )
528+ );
529+
530+ }
531+
512532 //write RDF to file
513533 $ this ->WriteRDFBufferToWriteFile ();
514534 }//while
0 commit comments