aRkivet: Census records and maps from Norway

#' List of 20 counties in the 1801 census
#'
#' @format A tibble with 20 rows and 5 variables:
#' \describe{
#'   \item{code}{ISO code }
#'   \item{county}{County name (fylke) }
#'   \item{region}{Region name}
#'   \item{region}{Number of parishes}
#'   \item{population}{Number of hits in search results }
#' }
#' @source Norway Digital Archives \url{https://www.digitalarkivet.no/en/census/search/1801}
#' @examples
#' county_1801
"county_1801"

#' List of 321 parishes in the 1801 census
#'
#' @format A tibble with 321 rows and 3 variables:
#' \describe{
#'   \item{code}{Municipal code, first two digits are county code}
#'   \item{parish }{Parish name}
#'   \item{pid}{Parish id, needed for census district summary at
#'    \url{https://digitalarkivet.no/en/census/district_list/<pid>} }
#' }
#' @source Norway Digital Archives
#' @examples
#' parish_1801
#' # duplicate parishes
#' dplyr::count(parish_1801, parish) %>% filter(n >1)
"parish_1801"

#' List of 915 districts in the 1801 census
#'
#' @format A tibble with 915 rows and 6 variables:
#' \describe{
#'   \item{code}{ Municipal code }
#'   \item{parish }{ Parish name }
#'   \item{district }{ District number }
#'   \item{name}{ District name }
#'   \item{url}{ District id for farm page }
#'   \item{resid}{ Urban or rural residence for XHR request }
#' }
#' @source Norway Digital Archives
#' @examples
#' district_1801
#'  filter(district_1801, parish=="Moss")
"district_1801"

#' List of 57,363 farms and urban areas in the 1801 census
#'
#' @format A tibble with 57,363 rows and 6 variables:
#' \describe{
#'   \item{code}{ Municipal code }
#'   \item{parish}{ Parish name }
#'   \item{district}{ District number }
#'   \item{fid}{ Farm id in district }
#'   \item{farm }{ Farm name }
#'   \item{url}{ Farm id for census page, starts with bf for rural and gf for urban }
#' }
#' @source Norway Digital Archives
#' @examples
#' farms_1801
#' filter(farms_1801, parish=="Moss", district==6)
#' group_by(farms_1801, code, parish) %>%
#'  summarize(districts= n_distinct(districts), farms=n() )
#' # duplicate farm names
#'   dups <- group_by(farms_1801, code, parish, district, farm) %>%
#'     summarize( n =n() ) %>% filter(n >1) %>% ungroup()
#'  filter(dups, parish=="Orkdal")
"farms_1801"

#' Persons in the 1801 census in Orkdal, Sør-Trøndelag, Norway
#'
#' List of 3422 individuals from 675 houses and 174 farms in Orkdal district 1
#'
#' First name and patronym parsed from the name field.  Gender added using name and
#' family position.
#'
#' @format A tibble with 3422 rows and 14 variables:
#' \describe{
#'   \item{fid}{ Farm id in district }
#'   \item{farm }{ Farm name }
#'   \item{pid}{ Person ID }
#'   \item{name}{ Name }
#'   \item{house}{ House ID }
#'   \item{age}{ Age }
#'   \item{family}{ Family position }
#'   \item{status}{ Marital status  }
#'   \item{occupation}{ Occupation }
#'   \item{first}{ First name }
#'   \item{patronym}{ Patronymic }
#'   \item{sex}{ Male or female }
#' }
#' @source Norway Digital Archives
#' @examples
#' orkdal_1801
#' # two spaces before last name
#' filter(orkdal_1801[, 1:4], grepl("  ", name))
#' group_by(orkdal_1801, name, sex)  %>% summarize(n = n() )  %>% arrange(desc(n))
"orkdal_1801"

#' Persons in marriage records from 1776 to 1799 in Orkdal, Sør-Trøndelag, Norway
#'
#' List of 4,430 individuals from 1,478 different marriages
#'
#' @format A tibble with 4,430 rows and 10 variables:
#' \describe{
#'   \item{id }{ Marriage id }
#'   \item{role }{ Role at baptism, child (barn), father (far), mother (mor) and sponsor (fadder) }
#'   \item{name}{ Name }
#'   \item{residence }{ Residence }
#'   \item{position}{ Position  }
#'   \item{year}{ Year of baptism }
#'   \item{date}{ Baptism date }
#'   \item{place}{ Local parish}
#'   \item{pid}{ groom's page id for url, add pv0000000 to string }
#' }
#' @source Norway Digital Archives
#' @examples
#' orkdal_marriages
"orkdal_marriages"

#' Persons in baptism records from 1715 to 1825 in Orkdal, Sør-Trøndelag, Norway
#'
#' List of 55,359 individuals from 9,338 different baptisms
#'
#' @format A tibble with 55,359 rows and 10 variables:
#' \describe{
#'   \item{book}{ Start year of church book }
#'   \item{id }{ Baptism id, unique to church book }
#'   \item{role }{ Role at baptism, child (barn), father (far), mother (mor) and sponsor (fadder) }
#'   \item{name}{ Name }
#'   \item{residence }{ Residence }
#'   \item{position}{ Position  }
#'   \item{page}{ Page in church book }
#'   \item{year}{ Year of baptism }
#'   \item{date}{ Baptism date }
#'   \item{pid}{ father's baptism page id for url, add pd0000000 to string }
#' }
#' @source Norway Digital Archives
#' @examples
#'orkdal_baptisms
"orkdal_baptisms"

#' Place names in the 1801 census in Orkdal, Sør-Trøndelag, Norway
#'
#' List of 174 farms and residences in the 1801 census in Orkdal district 1
#'
#' @format A tibble with 174 rows and 7 variables:
#' \describe{
#'   \item{rid}{ Residence ID }
#'   \item{name}{ Farm or place name }
#'   \item{residents }{ Total counted in census }
#'   \item{houses}{ Total houses }
#'   \item{lng}{ Longitude }
#'   \item{lat}{ Latitude  }
#'   \item{notes }{ Notes }
#' }
#' @source Norway Digital Archives
#' @examples
#' data(orkdal_farms)
#' orkdal_farms
#' \dontrun{
#' norway_map %>% addMarkers( data=orkdal_farms, label= paste(orkdal_farms$rid, orkdal_farms$name))
#' }
"orkdal_farms"