@@ -19,10 +19,6 @@ import DimensionalData: name
1919
2020export concatenatecubes, caxes, subsetcube, readcubedata, renameaxis!, YAXArray, setchunks, cache
2121
22- """
23- This function calculates a subset of a cube's data
24- """
25- function subsetcube end
2622
2723" Returns the axes of a Cube"
2824function caxes end
@@ -353,53 +349,12 @@ _iscompressed(c::DiskArrays.PermutedDiskArray) = _iscompressed(c.a.parent)
353349_iscompressed (c:: DiskArrays.SubDiskArray ) = _iscompressed (c. v. parent)
354350_iscompressed (c) = YAXArrayBase. iscompressed (c)
355351
356- # lift renameaxis functionality from Axes.jl to YAXArrays
352+ # lift renameaxis functionality from DimensionalData to YAXArrays
357353renameaxis! (c:: YAXArray , p:: Pair ) = DD. set (c, Symbol (first (p)) => last (p))
358354
359- function _subsetcube end
360-
361- function subsetcube (z:: YAXArray{T} ; kwargs... ) where {T}
362- newaxes, substuple = _subsetcube (z, collect (Any, map (Base. OneTo, size (z))); kwargs... )
363- newdata = view (getdata (z), substuple... )
364- YAXArray (newaxes, newdata, z. properties, cleaner= z. cleaner)
365- end
366-
367355sorted (x, y) = x < y ? (x, y) : (y, x)
368356
369357
370- function _subsetcube (z, subs; kwargs... )
371- kwargs = Dict {Any,Any} (kwargs)
372- for f in YAXDefaults. subsetextensions
373- f (kwargs)
374- end
375- newaxes = deepcopy (collect (DD. Dimension, caxes (z)))
376- foreach (kwargs) do kw
377- axdes, subexpr = kw
378- axdes = string (axdes)
379- iax = findAxis (axdes, caxes (z))
380- if isa (iax, Nothing)
381- throw (ArgumentError (" Axis $axdes not found in cube" ))
382- else
383- oldax = newaxes[iax]
384- subinds = interpretsubset (subexpr, oldax)
385- subs2 = subs[iax][subinds]
386- subs[iax] = subs2
387- if ! isa (subinds, AbstractVector) && ! isa (subinds, AbstractRange)
388- newaxes[iax] = axcopy (oldax, oldax. values[subinds: subinds])
389- else
390- newaxes[iax] = axcopy (oldax, oldax. values[subinds])
391- end
392- end
393- end
394- substuple = ntuple (i -> subs[i], length (subs))
395- inewaxes = findall (i -> isa (i, AbstractVector), substuple)
396- newaxes = newaxes[inewaxes]
397- @assert length .(newaxes) ==
398- map (length, filter (i -> isa (i, AbstractVector), collect (substuple)))
399- newaxes, substuple
400- end
401-
402-
403358function Base. getindex (a:: YAXArray , args:: DD.Dimension... ; kwargs... )
404359 kwargsdict = Dict {Any,Any} (kwargs... )
405360 for ext in YAXDefaults. subsetextensions
0 commit comments