Added a much cleaner \.git substitution.

r-lib · Dec 14, 2012 · 6a63581 · 6a63581
1 parent 2435934
commit 6a63581
Showing 1 changed file with 3 additions and 9 deletions.
diff --git a/R/install-git.r b/R/install-git.r
@@ -41,17 +41,11 @@ install_git <- function(git_url, name = NULL, subdir = NULL,
 install_git_single <- function(git_url, name = NULL, subdir = NULL, 
                                git_binary = NULL, config = list(), ...) {
   if (is.null(name)) {
-    name <- basename(git_url)
-
-    # Following the feedback from @wch, we remove
-    # the "git" suffix from the name of the clone folder.
-    parts = unlist(strsplit(name, ".", fixed=TRUE))
-
-    if (tail(parts, n=1) == 'git') {
-      name = paste(head(parts, n=-1), collapse=".")
-    }
+    name <- basename(git_url) 
   }
 
+  name <- gsub("\\.git$", "", name)
+
   message("Preparing installation of ", name, " using the Git-URL: ", git_url)
 
   # Unique temporary file-name.