bin/testTab.R

In Sage-Bionetworks/dten: Infers drugs of interest based on expression

#!/usr/bin/env Rscript

library(synapser)
synLogin()



library(methods)
df<- data.frame(Name = c("foo", "arg", "zap", "bah", "bnk", "xyz"),  Chromosome = c(1, 2, 2, 1, 1, 1),  Start = c(12345, 20001, 30033, 40444, 51234, 61234),  End = c(126000, 20200, 30999, 41444, 54567, 68686), Strand = c("+", "+", "-", "-", "+", "+"),TranscriptionFactor = c(F, F, F, F, T, F))

parid='syn16941818'
tbl=synapser::synBuildTable(values=df,name='test table',parid)

res=synStore(tbl)



df2<- data.frame(Name = c("foo2", "arg2", "zap", "2bah", "bnk", "xyz"),  Chromosome = c(1, 3, 2, 1, 1, 1),  Start = c(3525, 20001, 30033, 2342, 51234, 61234),  End = c(126000, 20200, 30999, 41444, 54567, 68686), Strand = c("+", "+", "-", "+", "+", "+"),TranscriptionFactor = c(F, F, T, T, T, F))

tbs=synGet("syn20444940")
tbl=Table(tbs,df2)

tbl=synStore(tbl)

synDelete(tbl$schema)