a b/archives/RadETL/tests/testRadETL.R 

  1
  
library(RadETL)





  
  

  2
  





  
  

  3
  
# Image unpacking -> save RDS file





  
  

  4
  
path <- '~/signedrangeimages/IMAGES'





  
  

  5
  
savePathRoot <- '~/stored_data/signedrangeimages'





  
  

  6
  
dfm <- DcmFileModule$new(path = path, savePathRoot = savePathRoot, core = parallel::detectCores() - 1)





  
  

  7
  
res <- dfm$dcmToRDS(rootPathCount = 4, verbose = FALSE)





  
  

  8
  





  
  

  9
  
# createRadiologyDB





  
  

  10
  
Rdb <- RadDB$new(core = parallel::detectCores() - 1)





  
  

  11
  
rcdm <- Rdb$createRadiologyDB(path = savePathRoot, idp = 2, o_start = 1)





  
  

  12
  





  
  

  13
  
print.data.frame(rcdm[[1]], quote = TRUE) # Occurrence





  
  

  14
  
print.data.frame(rcdm[[2]], quote = TRUE) # Image