I have a table with two columns and I would like to separate its first column in two separated columns or remove some useless values.


Input: 

    Gene            Disease
    MSMO1 (6307)	MICROCEPHALY, CONGENITAL CATARACT, AND P... (OMIM:616834)
    SC5D (6309)	    LATHOSTEROLOSIS (OMIM:607330), Lathosterolosis (ORPHA:46059)
    COG1 (9382)	    CONGENITAL DISORDER OF GLYCOSYLATION, TY... (OMIM:611209)
    COG6 (57511)	CONGENITAL DISORDER OF GLYCOSYLATION, TY... (OMIM:614576)
    UBE3A (7337)	15q11q13 microduplication syndrome (ORPHA:238446)


Output:

    Gene            Disease
    MSMO1	       MICROCEPHALY, CONGENITAL CATARACT, AND P... (OMIM:616834)
    SC5D	       LATHOSTEROLOSIS (OMIM:607330), Lathosterolosis (ORPHA:46059)
    COG1	       CONGENITAL DISORDER OF GLYCOSYLATION, TY... (OMIM:611209)
    COG6	       CONGENITAL DISORDER OF GLYCOSYLATION, TY... (OMIM:614576)
    UBE3A	       15q11q13 microduplication syndrome (ORPHA:238446)

Thanks for any solution in advanced.

    library(splitstackshape)
    cSplit(df, 'Gene', sep=" ", type.convert=FALSE)
    df<-df[-c(column_name_generated_after_split),]