{"action":"closed","issue":{"url":"https://api.github.com/repos/AustralianAntarcticDivision/raadtools/issues/60","repository_url":"https://api.github.com/repos/AustralianAntarcticDivision/raadtools","labels_url":"https://api.github.com/repos/AustralianAntarcticDivision/raadtools/issues/60/labels{/name}","comments_url":"https://api.github.com/repos/AustralianAntarcticDivision/raadtools/issues/60/comments","events_url":"https://api.github.com/repos/AustralianAntarcticDivision/raadtools/issues/60/events","html_url":"https://github.com/AustralianAntarcticDivision/raadtools/issues/60","id":253222152,"node_id":"MDU6SXNzdWUyNTMyMjIxNTI=","number":60,"title":"no HDF4 handling for Windows users","user":{"login":"mdsumner","id":4107631,"node_id":"MDQ6VXNlcjQxMDc2MzE=","avatar_url":"https://avatars2.githubusercontent.com/u/4107631?v=4","gravatar_id":"","url":"https://api.github.com/users/mdsumner","html_url":"https://github.com/mdsumner","followers_url":"https://api.github.com/users/mdsumner/followers","following_url":"https://api.github.com/users/mdsumner/following{/other_user}","gists_url":"https://api.github.com/users/mdsumner/gists{/gist_id}","starred_url":"https://api.github.com/users/mdsumner/starred{/owner}{/repo}","subscriptions_url":"https://api.github.com/users/mdsumner/subscriptions","organizations_url":"https://api.github.com/users/mdsumner/orgs","repos_url":"https://api.github.com/users/mdsumner/repos","events_url":"https://api.github.com/users/mdsumner/events{/privacy}","received_events_url":"https://api.github.com/users/mdsumner/received_events","type":"User","site_admin":false},"labels":[],"state":"closed","locked":false,"assignee":null,"assignees":[],"milestone":null,"comments":3,"created_at":"2017-08-28T04:12:39Z","updated_at":"2018-10-03T01:45:49Z","closed_at":"2018-10-03T01:45:49Z","author_association":"MEMBER","body":"Give an informative error, or apply this as a workaround? \r\n\r\n```R\r\n\r\nfiles <- raadfiles::amsr_daily_files()\r\n\r\n\r\nfiles$outname <- gsub(\"hdf$\", \"tif\", gsub(\"/data/\", \"/data_local/\", files$fullname))\r\ndirs <- unique(dirname(files$outname))\r\n#dir.create(dirs[1], recursive = TRUE)\r\nfor (i in seq_along(dirs)) dir.create(dirs[i], recursive = TRUE)\r\n\r\n\r\nfor (i in seq_len(nrow(files))) {\r\nsystem(sprintf(\"gdal_translate %s %s -a_ullr -3950000 4350000 3950000 -3950000 -a_srs  '+proj=stere +lat_0=-90 +lat_ts=-70 +lon_0=0 +k=1 +x_0=0 +y_0=0 +a=6378273 +b=6356889.449 +units=m +no_defs' \", files$fullname[i], files$outname[i]))\r\n if (i %% 100 == 0) print(i)\r\n}\r\n\r\n\r\n```"}}
{"actor":{"display_login":"mdsumner"}}