R/setGeneTable.R

Defines functions setGeneTable

Documented in setGeneTable

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)
}

Try the snplist package in your browser

Any scripts or data that you put into this service are public.

snplist documentation built on Dec. 12, 2017, 1:05 a.m.