Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Menu
Open sidebar
Earth Sciences
easyNCDF
Commits
24920257
Commit
24920257
authored
May 17, 2017
by
Nicolau Manubens Gil
Browse files
Merge branch 'develop-upgrade-to-0.0.4' into 'master'
Bumped version to 0.0.4. See merge request
!9
parents
498f21fb
3966b6b1
Changes
3
Show whitespace changes
Inline
Side-by-side
DESCRIPTION
View file @
24920257
Package: easyNCDF
Title: Tools to Easily Read/Write NetCDF Files into/from Multidimensional R Arrays
Version: 0.0.
3
Version: 0.0.
4
Authors@R: c(
person("BSC-CNS", role = c("aut", "cph")),
person("Nicolau", "Manubens", , "nicolau.manubens@bsc.es", role = c("aut", "cre")))
...
...
R/NcToArray.R
View file @
24920257
...
...
@@ -206,7 +206,7 @@ NcToArray <- function(file_to_read, dim_indices = NULL, vars_to_read = NULL,
## original_ncvar_get_inner <- ncdf4:::ncvar_get_inner
## assignInNamespace('ncvar_get_inner', .ncvar_get_inner, 'ncdf4')
}
var_result
<-
do.call
(
'['
,
c
(
list
(
.
ncvar_get
(
file_object
,
var_name
,
start
,
count
,
collapse_degen
=
FALSE
)),
var_result
<-
do.call
(
'['
,
c
(
list
(
ncvar_get
(
file_object
,
var_name
,
start
,
count
,
collapse_degen
=
FALSE
)),
lapply
(
indices_to_take
,
function
(
x
)
if
(
is_single_na
(
x
))
TRUE
else
x
-
min
(
x
)
+
1
),
list
(
drop
=
FALSE
)))
### Support for character strings
##if ((file_object[['var']][[var_name]][['prec']] == 'char') &&
...
...
easyNCDF-manual.pdf
View file @
24920257
No preview for this file type
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment