Skip to contents

Favour datasets in a datacube

Usage

favour(datacube, dataset)

favor(datacube, dataset)

Arguments

datacube

A many datacube

dataset

The name of one, or more, datasets within the datacube to be favoured over others.

Value

The datacube with datasets re-ordered accordingly

Details

The dataset declared becomes the reference for the first non NA value. If more than one dataset is declared, please list datasets in increasing order of importance (.i.e. last dataset should be favoured over previous).

Examples

# \donttest{
favour(emperors, "UNRV")
#> $UNRV
#> # A tibble: 99 × 7
#>    ID               Begin   End     Birth Death FullName                 Dynasty
#>    <chr>            <mdate> <mdate> <chr> <chr> <chr>                    <chr>  
#>  1 Augustus         -0027   -0014   63 BC 14    Gaius Julius Caesar Oct… Julio-…
#>  2 Tiberius         -0014   0037    42 BC 37    Tiberius Claudius Nero … Julio-…
#>  3 Gaius (Caligula) 0037    0041    12    14    Gaius Caesar Germanicus… Julio-…
#>  4 Claudius         0041    0054    10 BC 41    Tiberius Claudius Nero … Julio-…
#>  5 Nero             0054    0068    37    68    Claudius Nero Caesar (b… Julio-…
#>  6 Galba            0068    0069    3 BC  69    Servius Sulpicius Galba… Year o…
#>  7 Otho             0069    0069    32    69    Marcus Salvius Otho / I… Year o…
#>  8 Vitellius        0069    0069    15    69    Aulus Vitellius / Aulus… Year o…
#>  9 Vespasian        0069    0079    9     79    Titus Flavius Vespasian… Year o…
#> 10 Titus            0079    0081    39    79    Titus Flavius Vespasian… Flavian
#> # ℹ 89 more rows
#> 
#> $wikipedia
#> # A tibble: 68 × 15
#>    ID       Begin End   FullName Birth Death CityBirth ProvinceBirth Rise  Cause
#>    <chr>    <mda> <mda> <chr>    <chr> <chr> <chr>     <chr>         <chr> <chr>
#>  1 Augustus -26-… 14-0… IMPERAT… 62-0… 14-0… Rome      Italia        Birt… Assa…
#>  2 Tiberius 14-0… 37-0… TIBERIV… 41-1… 37-0… Rome      Italia        Birt… Assa…
#>  3 Caligula 37-0… 41-0… GAIVS I… 12-0… 41-0… Antitum   Italia        Birt… Assa…
#>  4 Claudius 41-0… 54-1… TIBERIV… 9-08… 54-1… Lugdunum  Gallia Lugdu… Birt… Assa…
#>  5 Nero     54-1… 68-0… NERO CL… 37-1… 68-0… Antitum   Italia        Birt… Suic…
#>  6 Galba    68-0… 69-0… SERVIVS… 2-12… 69-0… Terracina Italia        Seiz… Assa…
#>  7 Otho     69-0… 69-0… MARCVS … 32-0… 69-0… Terentin… Italia        Appo… Suic…
#>  8 Vitelli… 69-0… 69-1… AVLVS V… 15-0… 69-1… Rome      Italia        Seiz… Assa…
#>  9 Vespasi… 69-1… 79-0… TITVS F… 9-11… 79-0… Falacrine Italia        Seiz… Natu…
#> 10 Titus    79-0… 81-0… TITVS F… 39-1… 81-0… Rome      Italia        Birt… Natu…
#> # ℹ 58 more rows
#> # ℹ 5 more variables: Killer <chr>, Dynasty <chr>, Era <chr>, Notes <chr>,
#> #   Verif <chr>
#> 
#> $britannica
#> # A tibble: 87 × 3
#>    ID              Begin   End    
#>    <chr>           <mdate> <mdate>
#>  1 Augustus        -0031   0014   
#>  2 Tiberius        0014    0037   
#>  3 Caligula        0037    0041   
#>  4 Claudius        0041    0054   
#>  5 Nero            0054    0068   
#>  6 Galba           0068    0069   
#>  7 Otho            0069-01 0069-04
#>  8 Aulus Vitellius 0069-07 0069-12
#>  9 Vespasian       0069    0079   
#> 10 Titus           0079    0081   
#> # ℹ 77 more rows
#> 
favour(emperors, c("wikipedia", "UNRV", "britannica"))
#> $britannica
#> # A tibble: 87 × 3
#>    ID              Begin   End    
#>    <chr>           <mdate> <mdate>
#>  1 Augustus        -0031   0014   
#>  2 Tiberius        0014    0037   
#>  3 Caligula        0037    0041   
#>  4 Claudius        0041    0054   
#>  5 Nero            0054    0068   
#>  6 Galba           0068    0069   
#>  7 Otho            0069-01 0069-04
#>  8 Aulus Vitellius 0069-07 0069-12
#>  9 Vespasian       0069    0079   
#> 10 Titus           0079    0081   
#> # ℹ 77 more rows
#> 
#> $UNRV
#> # A tibble: 99 × 7
#>    ID               Begin   End     Birth Death FullName                 Dynasty
#>    <chr>            <mdate> <mdate> <chr> <chr> <chr>                    <chr>  
#>  1 Augustus         -0027   -0014   63 BC 14    Gaius Julius Caesar Oct… Julio-…
#>  2 Tiberius         -0014   0037    42 BC 37    Tiberius Claudius Nero … Julio-…
#>  3 Gaius (Caligula) 0037    0041    12    14    Gaius Caesar Germanicus… Julio-…
#>  4 Claudius         0041    0054    10 BC 41    Tiberius Claudius Nero … Julio-…
#>  5 Nero             0054    0068    37    68    Claudius Nero Caesar (b… Julio-…
#>  6 Galba            0068    0069    3 BC  69    Servius Sulpicius Galba… Year o…
#>  7 Otho             0069    0069    32    69    Marcus Salvius Otho / I… Year o…
#>  8 Vitellius        0069    0069    15    69    Aulus Vitellius / Aulus… Year o…
#>  9 Vespasian        0069    0079    9     79    Titus Flavius Vespasian… Year o…
#> 10 Titus            0079    0081    39    79    Titus Flavius Vespasian… Flavian
#> # ℹ 89 more rows
#> 
#> $wikipedia
#> # A tibble: 68 × 15
#>    ID       Begin End   FullName Birth Death CityBirth ProvinceBirth Rise  Cause
#>    <chr>    <mda> <mda> <chr>    <chr> <chr> <chr>     <chr>         <chr> <chr>
#>  1 Augustus -26-… 14-0… IMPERAT… 62-0… 14-0… Rome      Italia        Birt… Assa…
#>  2 Tiberius 14-0… 37-0… TIBERIV… 41-1… 37-0… Rome      Italia        Birt… Assa…
#>  3 Caligula 37-0… 41-0… GAIVS I… 12-0… 41-0… Antitum   Italia        Birt… Assa…
#>  4 Claudius 41-0… 54-1… TIBERIV… 9-08… 54-1… Lugdunum  Gallia Lugdu… Birt… Assa…
#>  5 Nero     54-1… 68-0… NERO CL… 37-1… 68-0… Antitum   Italia        Birt… Suic…
#>  6 Galba    68-0… 69-0… SERVIVS… 2-12… 69-0… Terracina Italia        Seiz… Assa…
#>  7 Otho     69-0… 69-0… MARCVS … 32-0… 69-0… Terentin… Italia        Appo… Suic…
#>  8 Vitelli… 69-0… 69-1… AVLVS V… 15-0… 69-1… Rome      Italia        Seiz… Assa…
#>  9 Vespasi… 69-1… 79-0… TITVS F… 9-11… 79-0… Falacrine Italia        Seiz… Natu…
#> 10 Titus    79-0… 81-0… TITVS F… 39-1… 81-0… Rome      Italia        Birt… Natu…
#> # ℹ 58 more rows
#> # ℹ 5 more variables: Killer <chr>, Dynasty <chr>, Era <chr>, Notes <chr>,
#> #   Verif <chr>
#> 
# }