Implement R library detection

#214

Author: codersrankOrg

Makefile

@@ -4,7 +4,6 @@ test:
 	@go test ./...
 
 build: test
-	export CGO_ENABLED=0 export GOOS=linux && go build -a -tags netgo -ldflags '-w -X main.version=v1.1.0' -o repo_info_extractor_linux
-	export CGO_ENABLED=0 export GOOS=darwin && go build -a -tags netgo -ldflags '-w -X main.version=v1.1.0' -o repo_info_extractor_osx
-	export CGO_ENABLED=0 export GOOS=windows && go build -a -tags netgo -ldflags '-w -X main.version=v1.1.0' -o repo_info_extractor_windows.exe
-	export GOOS=$GOOS_OLD
+	export CGO_ENABLED=0 export GOOS=linux && export GOARCH=amd64 && go build -a -tags netgo -ldflags '-w -X main.version=v2.3.2' -o repo_info_extractor_linux
+	export CGO_ENABLED=0 export GOOS=darwin && export GOARCH=amd64 && go build -a -tags netgo -ldflags '-w -X main.version=v2.3.2' -o repo_info_extractor_osx
+	export CGO_ENABLED=0 export GOOS=windows && export GOARCH=amd64 && go build -a -tags netgo -ldflags '-w -X main.version=v2.3.2' -o repo_info_extractor_windows.exe

librarydetection/languages/R.go

@@ -0,0 +1,37 @@
+package languages
+
+import (
+	"regexp"
+
+	"github.com/codersrank-org/repo_info_extractor/v2/librarydetection"
+)
+
+// NewRubyScriptAnalyzer constructor
+func NewRAnalyzer() librarydetection.Analyzer {
+	return &rAnalyzer{}
+}
+
+type rAnalyzer struct{}
+
+func (a *rAnalyzer) ExtractLibraries(contents string) ([]string, error) {
+	// According to https://community.rstudio.com/t/analysis-package-naming-or-can-package-name-differ-from-rproj-name/9421
+	// Package name can contain letters, numbers and coma
+
+	// for this format library(shiny)
+	requireRegex, err := regexp.Compile(`(?m)^\s*(?:require|library|package)\s*\(\s*["]*([\w\d,]+)"*\s*\)`)
+	if err != nil {
+		return nil, err
+	}
+	// for this format BiocManager123::repositories()
+	requireRegex2, err := regexp.Compile(`(?m)^\s*([\w\d,]+)::`)
+	if err != nil {
+		return nil, err
+	}
+	// for this format library(package=quantmod)
+	requireRegex3, err := regexp.Compile(`(?m)^\s*(?:require|library|package)\s*\(\s*package\s*=\s*([\w\d,]+)\s*\)`)
+	if err != nil {
+		return nil, err
+	}
+
+	return executeRegexes(contents, []*regexp.Regexp{requireRegex, requireRegex2, requireRegex3}), nil
+}

librarydetection/languages/R_test.go

@@ -1,6 +1,7 @@
 package languages_test
 
 import (
+	"fmt"
 	"io/ioutil"
 
 	. "github.com/onsi/ginkgo"
@@ -24,14 +25,17 @@ var _ = Describe("RLibraryDetection", func() {
 		"DT",
 		"WGCNA",
 		"impute",
-		"BiocManager",
+		"BiocManager123",
 	}
 
 	analyzer := languages.NewRAnalyzer()
 
 	Describe("Extract R Libraries", func() {
 		It("Should be able to extract libraries", func() {
 			libs, err := analyzer.ExtractLibraries(string(fixture))
+			for _, l := range libs {
+				fmt.Println(l)
+			}
 			if err != nil {
 				panic(err)
 			}

librarydetection/languages/fixtures/r.fixture

@@ -2,9 +2,12 @@ require(ggplot)
 library(package=quantmod)
 require("tibble")
 package ( tidyr)
-library("bslib")
+    library         (  "bslib"       )
 require(package=DT)
 library( WGCNA)
 library (impute)
 library(shiny)
-BiocManager::repositories()
+# library(example) This is comment
+str_replace("library(example)", "example", "something")
+  BiocManager123::repositories()
+str_replace("Something::repositories()", "Something", "something")