Binds vertical profiles (vp) into a vertical profile time series (vpts), sorted on datetime. Can also bind multiple vpts of a single radar into one vpts.

bind_into_vpts(x, ...)

# S3 method for class 'vp'
bind_into_vpts(...)

# S3 method for class 'list'
bind_into_vpts(x, ...)

# S3 method for class 'vpts'
bind_into_vpts(..., attributes_from = 1)

Arguments

x

A vp, vpts object or a vector of these.

...

A vp, vpts object or a vector of these.

attributes_from

Integer. Which vpts to copy attributes from (default: first).

Value

A vpts for a single radar or a list of vpts for multiple radars. Input vp are sorted on datetime in the output vpts.

Details

bind_into_vpts() currently requires profiles to have aligning altitude layers that are of equal width. Profiles are allowed to differ in the number of altitude layers, i.e. the maximum altitude.

Methods (by class)

  • bind_into_vpts(vp): Bind multiple vp into a vpts. If vp for multiple radars are provided, a list is returned containing a vpts for each radar.

  • bind_into_vpts(list): Bind multiple vp objects into a vpts. If data for multiple radars is provided, a list is returned containing a vpts for each radar.

  • bind_into_vpts(vpts): Bind multiple vpts into a single vpts. Requires the input vpts to be from the same radar.

Examples

# Split the example vpts into two separate time series, one containing
# profile 1-10 and a second containing profile 11-20
vpts1 <- example_vpts[1:10]
vpts2 <- example_vpts[11:20]

# Bind the two vpts together
vpts1_and_2 <- bind_into_vpts(vpts1, vpts2)

# Verify that the binded vpts now has 20 profiles, 10 from vpts1 and 10 from
# vpts2
summary(vpts1_and_2)
#>                    Regular time series of vertical profiles (class vpts)
#> 
#>            radar:  KBGM 
#>       # profiles:  20 
#> time range (UTC):  2016-09-01 00:02:00 - 2016-09-01 01:18:00 
#>    time step (s):  240 

# Extract two profiles
vp1 <- example_vpts[1]
vp1
#>                Vertical profile (class vp)
#> 
#>        radar:  KBGM 
#>       source:  
#> nominal time:  2016-09-01 00:02:00 
#> generated by:   
vp2 <- example_vpts[2]
vp2
#>                Vertical profile (class vp)
#> 
#>        radar:  KBGM 
#>       source:  
#> nominal time:  2016-09-01 00:06:00 
#> generated by:   

# Bind the two profiles back into a vpts:
bind_into_vpts(vp1, vp2)
#>                    Regular time series of vertical profiles (class vpts)
#> 
#>            radar:  KBGM 
#>       # profiles:  2 
#> time range (UTC):  2016-09-01 00:02:00 - 2016-09-01 00:06:00 
#>    time step (s):  240