Refine Finna Metadata — refine

The refine_metadata function cleans and standardizes Finna metadata by:

Validating Required Fields: Ensures the presence of specified fields and returns NULL if any are missing.
Selecting Relevant Fields: Allows users to specify which metadata fields to retain.
Handling Missing Values (Optional): If fill_na = TRUE, replaces NA values with placeholders.
Logging Missing Data (Optional): If verbose = TRUE, prints a summary of missing values.

Usage

refine_metadata(
  data,
  fields = c("Title", "Author", "Year", "Language", "Formats", "Subjects", "Library",
    "Series"),
  fill_na = FALSE,
  verbose = FALSE
)

Arguments

data: A tibble containing raw Finna metadata.
fields: A character vector of metadata fields to retain. Defaults to standard fields.
fill_na: Logical. If TRUE, replaces NA values with placeholders. Defaults to FALSE.
verbose: Logical. If TRUE, prints a summary of missing values. Defaults to FALSE.

Value

A tibble with selected metadata fields, or NULL if required fields are missing.

Examples

library(finna)
sibelius_data <- search_finna("sibelius")
#> Warning: Default limit of 100 records is being used. Specify 'limit' argument for more records.
#> Total results found: 45254
#> Data fetching completed in 1.23 seconds.
refine_metadata(sibelius_data, fill_na = TRUE, verbose = TRUE)
#> No missing values found.
#> # 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… Unknown… Lapin … Unkno…
#>  2 Sibelius                Lampi… 1995  fin      Kirja,… Sibeliu… Anders… Unkno…
#>  3 Sibelius                Lampi… 1984  fin      Kirja,… Sibeliu… Anders… Unkno…
#>  4 Sibelius                Lampi… 1984  fin      Kirja,… Sibeliu… Heili-… Unkno…
#>  5 Sibelius                Tawas… 1997  fin      Kirja,… Sibeliu… Rutakk… Unkno…
#>  6 Sibelius                RINGB… 1948  swe      Kirja,… Unknown… Fredri… Unkno…
#>  7 Sibelius                Ringb… 1948  swe      Kirja,… Sibeliu… Lukki-… Unkno…
#>  8 Sibelius                Ringb… 1948  swe      Kirja,… Jean Si… Svensk… Unkno…
#>  9 Sibelius                Barne… 2007  eng      Kirja,… Sibeliu… Helmet… Unkno…
#> 10 Sibelius.               Ottaw… 1968  Unknown… Kirja,… Unknown… Åbo Ak… Unkno…
#> # ℹ 90 more rows