Nothing
setGeneTable <-function(geneInfo,table='gene',db='snplistdb') {
if ( !all(c('gene','chr','start','end') %in% names(geneInfo)) ) {
stop("The column names should inlcude 'gene', 'chr', 'start', 'end'.")
}
geneInfo$chr <- as.character(geneInfo$chr)
geneInfo$start <- as.numeric(geneInfo$start)
geneInfo$end <- as.numeric(geneInfo$end)
drv <- dbDriver("SQLite")
dbFile<- sprintf("%s.sqlite",db)
conn <- dbConnect(drv, dbname = dbFile)
tables <- dbGetQuery(conn,"SELECT name FROM sqlite_master WHERE type='table';")
if(nrow(tables)!=0 && any(table==tables)) {
cat("Remove the existing table :",table, "\n\n")
dbExecute(conn,sprintf("DROP TABLE %s;",table))
}
dbExecute(conn,sprintf("CREATE TABLE %s(gene,chr,start,end, primary key(gene))",table))
dbWriteTable(conn,table,geneInfo,row.names=FALSE,append=TRUE)
cat("Create Table :",table,"\n")
print( dbGetQuery(conn,sprintf("SELECT * FROM %s LIMIT 10;",table)) )
cat(".....\n\n")
r <- dbGetQuery(conn,sprintf("SELECT COUNT(*) FROM %s;",table))
dbDisconnect(conn)
return(r)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.