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
3966b6b1
Commit
3966b6b1
authored
May 17, 2017
by
Nicolau Manubens
Browse files
Bumped version to 0.0.4.
parent
498f21fb
Changes
3
Hide whitespace changes
Inline
Side-by-side
DESCRIPTION
View file @
3966b6b1
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 @
3966b6b1
...
...
@@ -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 @
3966b6b1
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