Refines the Finna metadata tibble by keeping relevant fields and cleaning up missing values.
Examples
library(finna)
sibelius_data <- search_finna("sibelius")
refine_metadata(sibelius_data)
#> # A tibble: 100 × 8
#> Title Author Year Language Formats Subjects Library Series
#> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr>
#> 1 Sibelius favourites : … Sibel… 2001 Unknown… Äänite… orkeste… Lapin … Unkno…
#> 2 Sibelius Tappe… 1967 Unknown… Taidet… Unknown… Jyväsk… Unkno…
#> 3 Sibelius Favén… Unkn… Unknown… Taidet… kaljuus… Lahden… Unkno…
#> 4 Sibelius Tawas… 2003 fin Kirja,… Sibeliu… Anders… Unkno…
#> 5 Sibelius Ringb… 1948 fin Kirja,… Sibeliu… Eepos-… Unkno…
#> 6 SIBELIUS TÖRNE… 1945 fin Kirja,… SIBELIU… Helle-… Unkno…
#> 7 Sibelius Lampi… 1995 fin Kirja,… Sibeliu… Kansal… Unkno…
#> 8 Sibelius Lampi… 2005 fin Kirja,… Sibeliu… Kansal… Unkno…
#> 9 Sibelius Lampi… 1984 fin Kirja,… Sibeliu… Kansal… Unkno…
#> 10 Sibelius Tawas… 1997 fin Kirja,… Sibeliu… Kansal… Unkno…
#> # ℹ 90 more rows