Running ‘testthat.R’ [9s/111s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(UCSCXenaTools)
  =========================================================================
  UCSCXenaTools version 1.2.3
  Github page: https://github.com/ShixiangWang/UCSCXenaTools
  Documentation: https://shixiangwang.github.io/UCSCXenaTools/
  
  If you use it in published research, please cite:
  Wang, Shixiang, et al. "The predictive power of tumor mutational burden
      in lung cancer immunotherapy response is influenced by patients' sex."
      International journal of cancer (2019).
  =========================================================================
                   
  > 
  > test_check("UCSCXenaTools")
  trying URL 'https://tcga.xenahubs.net/download/TCGA.LUAD.sampleMap/LUAD_clinicalMatrix.gz'
  Content type 'application/gzip' length 119655 bytes (116 KB)
  ==================================================
  downloaded 116 KB
  
  trying URL 'https://tcga.xenahubs.net/download/TCGA.LUSC.sampleMap/LUSC_clinicalMatrix.gz'
  Content type 'application/gzip' length 107369 bytes (104 KB)
  ==================================================
  downloaded 104 KB
  
  trying URL 'https://tcga.xenahubs.net/download/TCGA.LUAD.sampleMap/LUAD_clinicalMatrix.gz'
  Content type 'application/gzip' length 119655 bytes (116 KB)
  ==================================================
  downloaded 116 KB
  
  trying URL 'https://tcga.xenahubs.net/download/TCGA.LUSC.sampleMap/LUSC_clinicalMatrix.gz'
  Content type 'application/gzip' length 107369 bytes (104 KB)
  ==================================================
  downloaded 104 KB
  
  character(0)
  [1] "normalized"        "pancan normalized" "percentile"       
  [1] "27K"  "450K"
  ── 1. Error: (unknown) (@test-basic-workflow.R#57)  ────────────────────────────
  Error in the HTTP2 framing layer
  1: getTCGAdata("LUNG", download = TRUE) at testthat/test-basic-workflow.R:57
  2: res %>% XenaGenerate() %>% XenaQuery() %>% XenaDownload(destdir = destdir, force = forceDownload, 
         ...)
  3: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: eval(quote(`_fseq`(`_lhs`)), env, env)
  6: `_fseq`(`_lhs`)
  7: freduce(value, `_function_list`)
  8: function_list[[i]](value)
  9: XenaQuery(.)
  10: UCSCXenaTools::XenaData %>% dplyr::filter(XenaDatasets %in% datasetsName) %>% dplyr::rename(hosts = XenaHosts, 
         datasets = XenaDatasets) %>% dplyr::mutate(url = file.path(hosts, "download", 
         datasets)) %>% dplyr::mutate(url = ifelse(!sapply(url, httr::http_error), url, 
         paste0(url, ".gz"))) %>% dplyr::select(hosts, datasets, url) %>% as.data.frame()
  ...
  21: sapply(url, httr::http_error)
  22: lapply(X = X, FUN = FUN, ...)
  23: FUN(X[[i]], ...)
  24: http_error.character(X[[i]], ...)
  25: http_error(HEAD(x, ...))
  26: HEAD(x, ...)
  27: request_perform(req, hu$handle$handle)
  28: request_fetch(req$output, req$url, handle)
  29: request_fetch.write_memory(req$output, req$url, handle)
  30: curl::curl_fetch_memory(url, handle = handle)
  
  [1] "xxx"
  [1] "xxx"
  ══ testthat results  ═══════════════════════════════════════════════════════════
  OK: 21 SKIPPED: 0 WARNINGS: 0 FAILED: 1
  1. Error: (unknown) (@test-basic-workflow.R#57) 
  
  Error: testthat unit tests failed
  Execution halted