Merges Finna metadata with another dataset using a common key (e.g., "Title").
Examples
library(dplyr)
#>
#> Attaching package: ‘dplyr’
#> The following objects are masked from ‘package:stats’:
#>
#> filter, lag
#> The following objects are masked from ‘package:base’:
#>
#> intersect, setdiff, setequal, union
finna_data <- search_finna("sibelius")
# Example other dataset to merge with
other_data <- tibble::tibble(
Title = c("Sibelius Symphony No. 5", "Finlandia", "Valse Triste"),
Rating = c(5, 4, 3)
)
# Integrate the two datasets by "Title"
integrated_data <- integrate_metadata(finna_data, other_data, key = "Title")
print(integrated_data)
#> # A tibble: 103 × 9
#> Title Author Year Language Formats Subjects Library Series Rating
#> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <dbl>
#> 1 Sibelius favour… Sibel… 2001 NA Äänite… orkeste… Lapin … NA NA
#> 2 Sibelius Tappe… 1967 NA Taidet… NA Jyväsk… NA NA
#> 3 Sibelius Favén… NA NA Taidet… kaljuus… Lahden… NA NA
#> 4 Sibelius Tawas… 2003 fin Kirja,… Sibeliu… Anders… NA NA
#> 5 Sibelius Ringb… 1948 fin Kirja,… Sibeliu… Eepos-… NA NA
#> 6 SIBELIUS TÖRNE… 1945 fin Kirja,… SIBELIU… Helle-… NA NA
#> 7 Sibelius Lampi… 1995 fin Kirja,… Sibeliu… Kansal… NA NA
#> 8 Sibelius Lampi… 2005 fin Kirja,… Sibeliu… Kansal… NA NA
#> 9 Sibelius Lampi… 1984 fin Kirja,… Sibeliu… Kansal… NA NA
#> 10 Sibelius Tawas… 1997 fin Kirja,… Sibeliu… Kansal… NA NA
#> # ℹ 93 more rows