Update reordered questions asked

Efrain Gonzalez
1 parent 52de10530c
Showing 1 changed file with 2 additions and 1 deletions Show diff stats
RMatchGenes.R
@@ -6,13 +6,14 @@ library(readr)
 library(dplyr)
  
 Check2Match <- function(){
+    ANDIS <- select.list(choices = list.files(),multiple = TRUE, title = "Choose the file/files you want to analyze:")
     numrows <- "How many rows of clinical data are their in each data set (separate each number by a comma no spaces)?: " %>%
 	readline(prompt = .) %>%
 	strsplit(.,split = ",") %>%
 	.[[1]] %>%
 	as.integer(.)
     i <- 1
-    ANDIS <- select.list(choices = list.files(),multiple = TRUE, title = "Choose the file/files you want to analyze:")
+    
  
     for(i in 1:length(numrows)){
 	    if( i == 1){
...	...	@@ -6,13 +6,14 @@ library(readr)
6	6	library(dplyr)
7	7
8	8	Check2Match <- function(){
	9	+ ANDIS <- select.list(choices = list.files(),multiple = TRUE, title = "Choose the file/files you want to analyze:")
9	10	numrows <- "How many rows of clinical data are their in each data set (separate each number by a comma no spaces)?: " %>%
10	11	readline(prompt = .) %>%
11	12	strsplit(.,split = ",") %>%
12	13	.[[1]] %>%
13	14	as.integer(.)
14	15	i <- 1
15		- ANDIS <- select.list(choices = list.files(),multiple = TRUE, title = "Choose the file/files you want to analyze:")
	16	+
16	17
17	18	for(i in 1:length(numrows)){
18	19	if( i == 1){