Extract landmark coordinates

From a mom_tbl with coordinates (eg outlines or curves) and a landmark column (a list of row ids being landmarks for each shape).

get_ldk(x, from_col = coo, ldk_col = ldk)

Arguments

x	mom_tbl
from_col	column name (coo by default)
ldk_col	column name (ldk by default)

Examples

h <- hearts %>% get_ldk()
h$coo_ldk %>% head()
#> <list_of<
#>   coo_single<
#>     x: double
#>     y: double
#>   >
#> >[6]>
#> $ced1
#> # A tibble: 4 x 2
#>         x      y
#>     <dbl>  <dbl>
#> 1 -0.179   0.390
#> 2  0.108   0.245
#> 3  0.312   0.317
#> 4 -0.0118 -0.508
#> ❯coo_single with 4 coordinates
#> 
#> $ced2
#> # A tibble: 4 x 2
#>         x      y
#>     <dbl>  <dbl>
#> 1 -0.239   0.342
#> 2  0.0547  0.230
#> 3  0.321   0.346
#> 4 -0.0062 -0.486
#> ❯coo_single with 4 coordinates
#> 
#> $ced3
#> # A tibble: 4 x 2
#>         x      y
#>     <dbl>  <dbl>
#> 1 -0.178   0.399
#> 2  0.0814  0.250
#> 3  0.388   0.390
#> 4 -0.0036 -0.591
#> ❯coo_single with 4 coordinates
#> 
#> $ced4
#> # A tibble: 4 x 2
#>        x      y
#>    <dbl>  <dbl>
#> 1 -0.199  0.415
#> 2  0.116  0.273
#> 3  0.311  0.348
#> 4  0.016 -0.573
#> ❯coo_single with 4 coordinates
#> 
#> $ced5
#> # A tibble: 4 x 2
#>         x      y
#>     <dbl>  <dbl>
#> 1 -0.257   0.277
#> 2  0.0488  0.261
#> 3  0.268   0.325
#> 4 -0.0553 -0.360
#> ❯coo_single with 4 coordinates
#> 
#> $ced6
#> # A tibble: 4 x 2
#>        x      y
#>    <dbl>  <dbl>
#> 1 -0.237  0.384
#> 2  0.101  0.171
#> 3  0.441  0.33 
#> 4 -0.104 -0.547
#> ❯coo_single with 4 coordinates
#>