R/Melville.R

In matloff/qeML: Quick and Easy Machine Learning Tools

# downnload specified imageset from JL Melville

# current choices

# "download_cifar10"            "download_fashion_mnist"     
# "download_kuzushiji_mnist"    "download_mammoth10k"        
# "download_mammoth50k"         "download_mnist"             
# "download_norb_small"         "download_qmnist"         

getJLMImageSet <- function(imageSet) 
{
#    requireNamespace('umap')
#    u <- requireNamespace('snedata')
#    if (!u) {
#       devtools::install_github("jlmelville/snedata")
#    }

   checkPkgLoaded('snedata','github.com/jlmelville/snedata')
   cmd <- paste0('download_',imageSet,'()')
   cmd <- sprintf('download_%s()',imageSet)
   evalr(cmd)
}