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
d8291404
Commit
d8291404
authored
Feb 01, 2019
by
Nicolau Manubens
Browse files
Small fix.
parent
a421b8b5
Changes
1
Hide whitespace changes
Inline
Side-by-side
R/Utils.R
View file @
d8291404
...
@@ -139,7 +139,6 @@
...
@@ -139,7 +139,6 @@
.MergeArrayDims
<-
function
(
dims1
,
dims2
)
{
.MergeArrayDims
<-
function
(
dims1
,
dims2
)
{
new_dims1
<-
c
()
new_dims1
<-
c
()
new_dims2
<-
c
()
new_dims2
<-
c
()
new_dims3
<-
c
()
while
(
length
(
dims1
)
>
0
)
{
while
(
length
(
dims1
)
>
0
)
{
if
(
names
(
dims1
)[
1
]
%in%
names
(
dims2
))
{
if
(
names
(
dims1
)[
1
]
%in%
names
(
dims2
))
{
pos
<-
which
(
names
(
dims2
)
==
names
(
dims1
)[
1
])
pos
<-
which
(
names
(
dims2
)
==
names
(
dims1
)[
1
])
...
@@ -149,13 +148,11 @@
...
@@ -149,13 +148,11 @@
}
}
new_dims1
<-
c
(
new_dims1
,
dims_to_add
,
dims1
[
1
])
new_dims1
<-
c
(
new_dims1
,
dims_to_add
,
dims1
[
1
])
new_dims2
<-
c
(
new_dims2
,
dims2
[
1
:
pos
])
new_dims2
<-
c
(
new_dims2
,
dims2
[
1
:
pos
])
new_dims3
<-
c
(
new_dims3
,
dims2
[
1
:
pos
])
dims1
<-
dims1
[
-1
]
dims1
<-
dims1
[
-1
]
dims2
<-
dims2
[
-
c
(
1
:
pos
)]
dims2
<-
dims2
[
-
c
(
1
:
pos
)]
}
else
{
}
else
{
new_dims1
<-
c
(
new_dims1
,
dims1
[
1
])
new_dims1
<-
c
(
new_dims1
,
dims1
[
1
])
new_dims2
<-
c
(
new_dims2
,
1
)
new_dims2
<-
c
(
new_dims2
,
1
)
new_dims3
<-
c
(
new_dims3
,
dims1
[
1
])
names
(
new_dims2
)[
length
(
new_dims2
)]
<-
names
(
dims1
)[
1
]
names
(
new_dims2
)[
length
(
new_dims2
)]
<-
names
(
dims1
)[
1
]
dims1
<-
dims1
[
-1
]
dims1
<-
dims1
[
-1
]
}
}
...
@@ -165,7 +162,6 @@
...
@@ -165,7 +162,6 @@
names
(
dims_to_add
)
<-
names
(
dims2
)
names
(
dims_to_add
)
<-
names
(
dims2
)
new_dims1
<-
c
(
new_dims1
,
dims_to_add
)
new_dims1
<-
c
(
new_dims1
,
dims_to_add
)
new_dims2
<-
c
(
new_dims2
,
dims2
)
new_dims2
<-
c
(
new_dims2
,
dims2
)
new_dims3
<-
c
(
new_dims3
,
dims2
)
}
}
list
(
new_dims1
,
new_dims2
,
pmax
(
new_dims1
,
new_dims2
))
list
(
new_dims1
,
new_dims2
,
pmax
(
new_dims1
,
new_dims2
))
}
}
...
...
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