.old_wd <- setwd(tempdir())
dir.create("jdx_examples", showWarnings = FALSE)
file.create(file.path("jdx_examples", "sample1.dx"))
file.create(file.path("jdx_examples", "sample2.DX"))
get_samples_names_dx("jdx_examples")
setwd(.old_wd)
Run the code above in your browser using DataLab