Log In Sign Up
Models:
Alyssa Salazar
AlyssaS/
UCSCXenaTools
0
Downloads: 1
Diff of /R/utils.R [000000] .. [0bdad5]

Switch to unified view

a b/R/utils.R 

  1
  
use_cache <- function(id, op, dir = tempdir()) {





  
  

  2
  
    id <- digest::digest(id)





  
  

  3
  
    fp <- file.path(dir, paste0(id, ".rds"))





  
  

  4
  
    if (file.exists(fp)) {





  
  

  5
  
        readRDS(fp)





  
  

  6
  
    } else {





  
  

  7
  
        data <- eval(parse(text = op), envir = parent.frame())





  
  

  8
  
        saveRDS(data, file = fp)





  
  

  9
  
        data





  
  

  10
  
    }





  
  

  11
  
}