# Introduction to finto

# Introduction

Finto is a Finnish thesaurus and ontology service that provides a centralized platform for managing and utilizing controlled vocabularies in various applications, including libraries, archives, and research institutions. It enables seamless integration with linked data. Maintained by the National Library of Finland, Finto enhances interoperability and accessibility of structured metadata across different domains.

To make a simple search Search Concepts by Query Term we use the following.

    library(finto)
    concepts <- search_concepts("sibelius")
    head(concepts)

To get available vocabularies from the Finto Skosmos API we use

    library(finto)
    vocabularies <- get_vocabularies(lang = "en")
    head(vocabularies)

To retrieve top concepts in a vocabulary

    library(finto)
    top_concepts <- get_top_concepts(vocid = "yso", lang = "fi")
    head(top_concepts)

## Retrieving author information

To retrieve author information we need unique identifier of the author which is called asterID

    library(finto)
    author_info <- fetch_kanto_info(asteriID = "000094320")
    knitr::kable(author_info,caption = "author info")

## Retrieval of profession information

    library(finto)
    profession_info <- fetch_profession_info("http://urn.fi/URN:NBN:fi:au:mts:m3357")
    knitr::kable(profession_info,caption = "author info")

## Retriveal of both author and profession informations

For this we need a tibble

    library(finto)
    library(tidyverse)
    input_data <- tibble(author_ID = c("000069536", "000041234", "000057891"))
    full_author_info <- finto::get_kanto(input_data)
    knitr::kable(full_author_info, caption = "Full author Data Frame from kanto")