From 7acfa60c605a052988391cb81ca9c4a3e982a80b Mon Sep 17 00:00:00 2001 From: Efrain Gonzalez Date: Mon, 6 Nov 2017 13:11:36 -0500 Subject: [PATCH] Update reordered questions asked --- RMatchGenes.R | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/RMatchGenes.R b/RMatchGenes.R index 2ff86b2..d6be7a7 100644 --- a/RMatchGenes.R +++ b/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){ -- 2.29.0