inst/extdata/metadata/readRemoteData_resize.R

In databio/unitar: Share targets across projects and users

readRemoteData_resize = function(project, resize.width) {
  # get the data from the Project config
  url = pepr::sampleTable(project)$remote_url[[1]]
  # download the file
  bfc = BiocFileCache::BiocFileCache(cache=tempdir(),ask=FALSE)
  path = BiocFileCache::bfcrpath(bfc, url)
  # read it in
  df = read.table(path)
  # formatting
  colnames(df) = c('chr', 'start', 'end', 'name')
  # convert to GRanges object
  GenomicRanges::resize(x=GenomicRanges::GRanges(df), width=resize.width)
}