R/startIGV.R
5de8aa16
 startIGV <- 
89e1c9d6
 function (memory='mm', devel=FALSE) {
5de8aa16
 	
89e1c9d6
 	memory1 = paste('_', memory, sep='')
 	if( memory=='hm' ) {
5de8aa16
         message("Launching IGV with 10 GB maximum usable memory")
89e1c9d6
 	} else if (memory=='lm') {
5de8aa16
 		message("Launching IGV with 2 GB maximum usable memory")
89e1c9d6
 	} else if (memory=='mm') {
5de8aa16
 		message("Launching IGV with 1.2 GB maximum usable memory")
 	} else {
 		message("Launching IGV with 750 MB maximum usable memory")
89e1c9d6
 		memory1 = ''
 	}
 	if(devel) {
5e457809
 		startIGV_url <- paste('http://www.broadinstitute.org/igv/projects/dev/igv',
89e1c9d6
               memory1,'_dev.jnlp', sep='')
 	} else {
5e457809
 		startIGV_url <- paste('http://www.broadinstitute.org/igv/projects/current/igv',
89e1c9d6
               memory1,'.jnlp', sep='')
     }
5de8aa16
 	browseURL(startIGV_url)	
 	message("Please go to the pop up window of the Java Web Start to compelete the launching. ")
 
 }