Extract the nth Item from an List

Extract the nth issue from a IssuesTB object or the nth selector from a SelectorTB object.

extract_nth(x, ...)

# S3 method for class 'IssuesTB'
extract_nth(x, n, verbose = TRUE, ...)

# S3 method for class 'SelectorTB'
extract_nth(x, n, verbose = TRUE, ...)

# Default S3 method
extract_nth(...)

Arguments

x

An object of class IssuesTB or SelectorTB.

...

Currently not used.

n

Integer. Position of the element to extract. 1 is for the first element.

verbose

A boolean indicating whether to print additional information. Default is TRUE.

Value

If x is a IssuesTB, it returns the nth issue as a IssueTB object. If x is a SelectorTB, it returns the nth selector as a SelectorTB object. If n exceeds the number of issues or selector, returns the last issue / selector with a warning.

Returns NULL if the list is empty.

Examples

issues_selector <- init_selector(
    source = "Local",
    file = file.path(
        system.file("data_issues", package = "IssueTrackeR"),
        "list_issues.yaml"
    )
)

all_issues <- get_issues(selector = issues_selector)
#> The issues will be read from /home/runner/work/_temp/Library/IssueTrackeR/data_issues/list_issues.yaml.

first_issue <- extract_nth(all_issues, 1)
#> The 1th issue will be extracted.
third_issue <- extract_nth(all_issues, 3)
#> The 3th issue will be extracted.