Skip to content

Commit

Permalink
version update
Browse files Browse the repository at this point in the history
  • Loading branch information
Schuch666 committed Sep 16, 2024
1 parent 9e1d915 commit eff760b
Show file tree
Hide file tree
Showing 3 changed files with 13 additions and 14 deletions.
4 changes: 2 additions & 2 deletions DESCRIPTION
Original file line number Diff line number Diff line change
@@ -1,7 +1,7 @@
Package: EmissV
Title: Tools for Create Emissions for Air Quality Models
Date: 2023-07-04
Version: 0.665.6.7
Date: 2023-09-16
Version: 0.665.8.0
Authors@R: c(
person(given = "Daniel",
family = "Schuch",
Expand Down
3 changes: 3 additions & 0 deletions NEWS.md
Original file line number Diff line number Diff line change
@@ -1,3 +1,6 @@
## Version: 0.665.8.0 (2023-09-16)
- added support for Edgar v8.1 monthly on read() function

## Version: 0.665.6.6 (2023-03-24)
- removed remain dependencies of sp package
- removed suggest packages: osmar,RCurl,rgdal
Expand Down
20 changes: 8 additions & 12 deletions README.md
Original file line number Diff line number Diff line change
Expand Up @@ -94,21 +94,17 @@ To generate a simple emission it's a straightforward process in 4 steps:

```r
library(EmissV)
### 1. download the EDGAR Netcdf using the function get_edgar from the eixport R-package
### or from the http://jeodpp.jrc.ec.europa.eu/ftp/jrc-opendata/EDGAR/datasets/v50_AP/
### EDGAR 5.0 website and unzip inside a temporary directory
### 1. download the EDGAR Netcdf using R or from
### http://jeodpp.jrc.ec.europa.eu/ftp/jrc-opendata/EDGAR/datasets/v50_AP/
# create the temporary directory to download the data
dir.create(file.path(tempdir(), "EDGAR"))
dir.create(file.path(tempdir(), "EDGARv432"))
folder <- setwd(file.path(tempdir(), "EDGARv432"))
# download the total emissions of NOx from EDGAR v50_AP for 2015
eixport::get_edgar(dataset = "v50_AP",
pol = 'NOx',
sector = "TOTALS",
year = 2015,
type = 'nc', ask = FALSE, copyright = FALSE,
destpath = file.path(tempdir(), "EDGAR"))
url <- "http://jeodpp.jrc.ec.europa.eu/ftp/jrc-opendata/EDGAR/datasets/v432_AP/NOx"
file <- 'v432_NOx_2012.0.1x0.1.zip'
download.file(paste0(url,'/TOTALS/',file), file)
# unzip the file
unzip(zipfile = paste0(file.path(tempdir(), "EDGAR"),'/v50_NOx_2015.0.1x0.1.zip'),
exdir = paste0(file.path(tempdir(), "EDGAR")))
unzip('v432_NOx_2012.0.1x0.1.zip')

### 2. read the emissions (using the spec argument to split NOx into NO and NO2)
NOx <- read(paste0(file.path(tempdir(), "EDGAR"),'/v50_NOx_2015.0.1x0.1.nc'),
Expand Down

0 comments on commit eff760b

Please sign in to comment.