Nothing
## ----setup, include=FALSE-----------------------------------------------------
library(neurohcp)
library(dplyr)
knitr::opts_chunk$set(echo = TRUE, cache = FALSE, comment = "")
## ---- eval = FALSE------------------------------------------------------------
# source("http://neuroconductor.org/neurocLite.R")
# neuro_install("neurohcp", release = "stable")
## ---- eval = FALSE------------------------------------------------------------
# set_aws_api_key(access_key = "ACCESS_KEY", secret_key = "SECRET_KEY")
## ----blist_show, eval = FALSE-------------------------------------------------
# if (have_aws_key()) {
# neurohcp::bucketlist()
# }
## ----blist_go, echo = FALSE---------------------------------------------------
if (have_aws_key()) {
neurohcp::bucketlist(verbose = FALSE)
}
## ---- eval = TRUE-------------------------------------------------------------
ids_with_dwi = hcp_900_scanning_info %>%
filter(scan_type %in% "dMRI") %>%
select(id) %>%
unique
head(ids_with_dwi)
## ---- eval = FALSE, echo = TRUE-----------------------------------------------
# r = download_hcp_dir("HCP/100307/T1w/Diffusion", verbose = FALSE)
# print(basename(r$output_files))
## ---- eval = TRUE, echo = FALSE-----------------------------------------------
r = list(output_files = c("bvals", "bvecs", "data.nii.gz", "grad_dev.nii.gz", "nodif_brain_mask.nii.gz")
)
r$output_files
## ---- eval = FALSE------------------------------------------------------------
# ids_with_dwi = ids_with_dwi %>%
# mutate(id_dir = paste0("HCP/", id, "/T1w/Diffusion"))
## ----dl_file------------------------------------------------------------------
if (have_aws_key()) {
ret = download_hcp_file("HCP/100307/T1w/Diffusion/bvals", verbose = FALSE)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.