Running examples in ‘TCGAretriever-Ex.R’ failed
The error most likely occurred in:

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: expand_cases
> ### Title: Explode TCGA Case Identifiers from a TCGA Study
> ### Aliases: expand_cases
> 
> ### ** Examples
> 
> expand_cases("blca_tcga")
 ----------- FAILURE REPORT -------------- 
 --- failure: the condition has length > 1 ---
 --- srcref --- 
: 
 --- package (from environment) --- 
TCGAretriever
 --- call from context --- 
basic_tcga_query(my_url)
 --- call from argument --- 
if (class(result) != "matrix") {
    result <- matrix(result, ncol = length(result), nrow = 1)
    result <- rbind(result, NA)
}
 --- R stacktrace ---
where 1: basic_tcga_query(my_url)
where 2: get_case_lists(csid = csid)
where 3: expand_cases("blca_tcga")

 --- value of length: 2 type: logical ---
[1] FALSE  TRUE
 --- function from context --- 
function (my_url) 
{
    my_get <- "error"
    while (my_get[1] == "error" | my_get[2] != 200) {
        my_get <- tryCatch(httr::GET(my_url, timeout(5)), error = function(e) {
            "error"
        })
    }
    my_lines <- unlist(strsplit(httr::content(my_get, "text"), 
        "\\n"))
    result <- do.call(rbind, sapply(1:length(my_lines), (function(x) {
        strsplit(my_lines[x], "\\t")
    })))
    rownames(result) <- NULL
    rows_to_keep <- !regexpr("\\#(.)+", result[, 1]) == 1
    result <- result[rows_to_keep, ]
    if (class(result) != "matrix") {
        result <- matrix(result, ncol = length(result), nrow = 1)
        result <- rbind(result, NA)
    }
    colnames(result) <- gsub("\\.", "-", result[1, ])
    if (nrow(result) == 2) {
        return(t(data.frame(result[-1, ], stringsAsFactors = FALSE)))
    }
    else {
        return(data.frame(result[-1, ], stringsAsFactors = FALSE))
    }
}
<bytecode: 0x558fd9b361d0>
<environment: namespace:TCGAretriever>
 --- function search by body ---
Function basic_tcga_query in namespace TCGAretriever has this body.
 ----------- END OF FAILURE REPORT -------------- 
Fatal error: the condition has length > 1