Commit 7acfa60c605a052988391cb81ca9c4a3e982a80b
1 parent
52de10530c
Exists in
master
Update reordered questions asked
Showing
1 changed file
with
2 additions
and
1 deletions
Show diff stats
RMatchGenes.R
... | ... | @@ -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){ |