Hi Dennis and Ista, Thanks a lot. The solution is great. Actually I am trying to do bulk select from database and it require where clause in this form only.
inpData = read.csv('./rugitSrc/testFile.csv', header= TRUE) idList = as.character(inpData[,1]) 1> idList [1] "rc_AI104113_at" "rc_AI178259_f_at" "rc_AI179134_i_at" "rc_AI179134_f_at" "rc_AI104113_at" "rc_AA819429_f_at" strsep2 <- sapply(idList, function(x) paste("'", x, "'", sep = "")) idListWithSep = paste(strsep2, collapse = ',') 1> idListWithSep [1] "'rc_AI104113_at','rc_AI178259_f_at','rc_AI179134_i_at','rc_AI179134_f_at','rc_AI104113_at','rc_AA819429_f_at'" query = paste("select * from ", tn, " where name IN (" , idListWithSep , ") ", sep ='') 1> query [1] "select * from rat_rn4_affy_RG_U34Cprobe_fasta where name IN ('rc_AI104113_at','rc_AI178259_f_at','rc_AI179134_i_at','rc_AI179134_f_at','rc_AI104113_at','rc_AA819429_f_at') " res <- dbSendQuery(con, query) queryResult <- fetch(res, n = -1) I am able to perform bulk query now in the database. Thanks again. Fahim On Wed, Mar 9, 2011 at 4:49 PM, Dennis Murphy <djmu...@gmail.com> wrote: > Hi: > > I'm not quite sure what you have in mind, but... > > Input data strdat.txt: > > probeID > rc_AI104113_at > rc_AI178259_f_at > rc_AI179134_i_at > rc_AI179134_f_at > rc_AI104113_at > rc_AA819429_f_at > > strg <- paste(scan('strdat.txt', what = '', skip = 1), collapse = ',') > strg > [1] > "rc_AI104113_at,rc_AI178259_f_at,rc_AI179134_i_at,rc_AI179134_f_at,rc_AI104113_at,rc_AA819429_f_at" > > # Try to get single quotes surrounding each string > strsep <- paste(scan('strdat.txt', what = '', skip = 1)) > Read 6 items > > strsep > [1] "rc_AI104113_at" "rc_AI178259_f_at" "rc_AI179134_i_at" > "rc_AI179134_f_at" > [5] "rc_AI104113_at" "rc_AA819429_f_at" > strsep2 <- sapply(strsep, function(x) paste("'", x, "'", sep = "")) > paste(strsep2, collapse = ',') > [1] > "'rc_AI104113_at','rc_AI178259_f_at','rc_AI179134_i_at','rc_AI179134_f_at','rc_AI104113_at','rc_AA819429_f_at'" > > HTH, > Dennis > > > On Wed, Mar 9, 2011 at 12:35 PM, Fahim Mohammad <fahim...@gmail.com>wrote: > >> I have a file with a data in columnar format like below: >> >> probeID >> rc_AI104113_at >> rc_AI178259_f_at >> rc_AI179134_i_at >> rc_AI179134_f_at >> rc_AI104113_at >> rc_AA819429_f_at >> >> How can I rewrite it in the format below: >> 'rc_AI104113_at', 'rc_AI178259_f_at', 'rc_AI179134_i_at', >> 'rc_AI179134_f_at', 'rc_AI104113_at', 'rc_AA819429_f_at' >> >> >> Is there any function to do this. I can do it by using iterative paste but >> I just want to avoid it for efficiency reason as number of probes is very >> high. >> >> Thanks >> >> --Fahim >> >> [[alternative HTML version deleted]] >> >> ______________________________________________ >> R-help@r-project.org mailing list >> https://stat.ethz.ch/mailman/listinfo/r-help >> PLEASE do read the posting guide >> http://www.R-project.org/posting-guide.html >> and provide commented, minimal, self-contained, reproducible code. >> > > -- Fahim Mohammad Ph. D. Student Bioinforformatics Lab University of Louisville Louisville, KY, USA Ph: +1-502-409-1167 [[alternative HTML version deleted]] ______________________________________________ R-help@r-project.org mailing list https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide http://www.R-project.org/posting-guide.html and provide commented, minimal, self-contained, reproducible code.