R6 File class

Class representing a file containing code.

See also

Other Representations: Code, Function, Repository

Super class

PaRe::Code -> File

Methods

Public methods

• File$new()

• File$getFunctions()

• File$getFunctionTable()

• File$getType()

• File$getFilePath()

• File$getBlameTable()

• File$clone()

Inherited methods

• PaRe::Code$getLines()
• PaRe::Code$getNLines()
• PaRe::Code$getName()
• PaRe::Code$print()

---

Method new()

Initializer method

Usage

File$new(repoPath, filePath)

Arguments

repoPath

(character)
Path to repository.

filePath

(character)
Relative path to file

Returns

invisible(self)

---

Method getFunctions()

Get method to get a list of Function objects

Usage

File$getFunctions()

Returns

(list)
List of Function objects.

---

Method getFunctionTable()

Get method to retrieve the function table.

Usage

File$getFunctionTable()

Returns

(data.frame)

column	data type
name	character
lineStart	integer
lineEnd	numeric
nArgs	integer
cycloComp	integer

---

Method getType()

Gets type of file

Usage

File$getType()

Returns

(character)

---

Method getFilePath()

Gets relative file path

Usage

File$getFilePath()

Returns

(character)

---

Method getBlameTable()

Gets table of git blame

Usage

File$getBlameTable()

Returns

(tibble)

---

Method clone()

The objects of this class are cloneable with this method.

Usage

File$clone(deep = FALSE)

Arguments

deep

Whether to make a deep clone.

Examples

fetchedRepo <- tryCatch(
  {
    # Set dir to clone repository to.
    tempDir <- tempdir()
    pathToRepo <- file.path(tempDir, "glue")

    # Clone repo
    git2r::clone(
      url = "https://github.com/tidyverse/glue.git",
      local_path = pathToRepo
    )

    # Create instance of Repository object.
    repo <- PaRe::Repository$new(path = pathToRepo)

    # Set fetchedRepo to TRUE if all goes well.
    TRUE
  },
  error = function(e) {
    # Set fetchedRepo to FALSE if an error is encountered.
    FALSE
  },
  warning = function(w) {
    # Set fetchedRepo to FALSE if a warning is encountered.
    FALSE
  }
)
#> cloning into 'C:\Users\MVANKE~1\AppData\Local\Temp\RtmpwNkTBX/glue'...

if (fetchedRepo) {
  files <- repo$getRFiles()
  files[[1]]
}