> library("TCGAbiolinks")
> path <- "."
> query.met <- TCGAquery(tumor = c("LGG","GBM"),"HumanMethylation450", level = 3)
> TCGAdownload(query.met, path = path )
-=-=-=-=
| Downloading:28 folders
| Path:.
-=-=-=-=
  |                                                                             |   0%
Downloading:jhu-usc.edu_GBM.HumanMethylation450.Level_3.8.6.0.tar.gz
  % Total    % Received % Xferd  Average Speed   Time    Time     Time  Current
                                 Dload  Upload   Total   Spent    Left  Speed
  0     0    0     0    0     0      0      0 --:--:-- --:--:-- --:--:--     0  0     0    0     0    0     0      0      0 --:--:-- --:--:-- --:--:--     0  0     0    0     0    0     0      0      0 --:--:--  0:00:01 --:--:--     0100   231  100   231    0     0    117      0  0:00:01  0:00:01 --:--:--   117
100   231  100   231    0     0    100      0  0:00:02  0:00:02 --:--:--   100
100   231  10100   231  100   231    0     0     88      0  0:00:02  0:00:02 --:--:--     0
100   231  100   231    0     0     78      0  0:00:02  0:00:02 --:--:--    78
100   231  100   231    0     0     70      0  0:00:03  0:00:03 --:--:--    70
100   231  100 100   231  100   231    0     0     64      0  0:00:03  0:00:03 --:--:--     0
100   231  100   231    0     0     58      0  0:00:03  0:00:03 --:--:--    58
100   231  100   231    0     0     54      0  0:00:04  0:00:04 --:--:--    54
100   100   231  100   231    0     0     50      0  0:00:04  4 --:--:--    500:00:04 --:--:--     0
100   231  100   231    0     0     47      0  0:00:04  0:00:04 --:--:--    47
100   231  100   231    0     0     44      0  0:00:05  0:00:05 --:--:--    44
Error in curl::curl_download(input, tt, mode = "wb", quiet = !showProgress) : Number of redirects hit maximum amount