fix checkout path

yonicd · Jul 18, 2017 · 6be55fa · 6be55fa
1 parent 17cea56
commit 6be55fa
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/R/sasha.R b/R/sasha.R
@@ -122,20 +122,20 @@ server <- function(input, output,session) {
     })   
   })
 
-
-
   shiny::observeEvent(c(input$createRepo),{
     if(!is.null(input$f1)){
       f2<-gsub(sprintf('%s/%s',input$f1,'master'),'',network$tree)
       if(length(f2)>0){
         if(dir.exists(sprintf('%s/.git',input$dirOutput))){
-          sparse_checkout(repo_url = sprintf('https://github.com/%s.git',input$f1),
+          sparse_checkout(repo_url = sprintf('https://github.com/%s.git',input$remotePath),
+                               vcs = input$vcs,
                                queries = f2,
                                dest.dir = input$dirOutput,
                                create = FALSE,
                                append = FALSE)
         }else{
-          sparse_checkout(repo_url = sprintf('https://github.com/%s.git',input$f1),
+          sparse_checkout(repo_url = sprintf('https://github.com/%s.git',input$remotePath),
+                               vcs = input$vcs,
                                queries = f2,
                                dest.dir = input$dirOutput,
                                create = TRUE)