## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(collapse = TRUE, comment = "#>")

## ----setup--------------------------------------------------------------------
library(fkr)

## ----eval = FALSE-------------------------------------------------------------
# library(fkr)

## -----------------------------------------------------------------------------
fkr_first_name(1)

## -----------------------------------------------------------------------------
fkr_first_name(5)

## -----------------------------------------------------------------------------
fkr_age(5)
fkr_boolean(5)
fkr_civil_status(5)

## -----------------------------------------------------------------------------
fkr_first_name(3)
fkr_last_name(3)
fkr_full_name(3)
fkr_sex(3)
fkr_civil_status(3)
fkr_age(3)
fkr_birthday(3)

## -----------------------------------------------------------------------------
fkr_email(3)
fkr_mobile_number(3)
fkr_landline_number(3)

## -----------------------------------------------------------------------------
fkr_region(3)
fkr_province(3)
fkr_city(3)
fkr_barangay(3)
fkr_street_address(3)

## -----------------------------------------------------------------------------
fkr_address(3)

## -----------------------------------------------------------------------------
fkr_sss_number(3)
fkr_tin_number(3)
fkr_philhealth_number(3)
fkr_pagibig_number(3)
fkr_philsys_number(3)

## -----------------------------------------------------------------------------
fkr_company(3)
fkr_job_title(3)
fkr_industry(3)
fkr_product(3)
fkr_price(3)

## -----------------------------------------------------------------------------
fkr_num(5, min = 0, max = 100)          # plain numbers, e.g. a score or a rating
fkr_int(5, min = 18, max = 65)          # whole numbers, e.g. an age range
fkr_boolean(5)                          # TRUE / FALSE, e.g. "has a Facebook account?"
fkr_uuid(3)                             # a unique ID for each record

## -----------------------------------------------------------------------------
fkr_multiple_response(5, values = c("Email", "Phone", "SMS"), sep = ", ")

## -----------------------------------------------------------------------------
fkr_factor(5, values = c(1, 2), labels = c("Male", "Female"))

## -----------------------------------------------------------------------------
sex <- fkr_factor(
  5,
  values = c(1, 2), labels = c("Male", "Female"),
  label = "Respondent's biological sex"
)
sex
attr(sex, "label")

## -----------------------------------------------------------------------------
fkr(5, list(
  first_name = fkr_first_name,
  last_name = fkr_last_name,
  sex = fkr_sex,
  age = fkr_age,
  date_of_birth = fkr_birthday,
  mobile_number = fkr_mobile_number
))

## -----------------------------------------------------------------------------
fkr(3, list(
  name = fkr_full_name,
  address = fkr_address
))

## -----------------------------------------------------------------------------
fkr(5, list(
  city_in_cebu = function(n) fkr_city(n, province = "Cebu")
))

## -----------------------------------------------------------------------------
fkr(6, list(
  age = fkr_age,
  stage = function(n, data) ifelse(data$age < 18, "Minor", "Adult")
))

## -----------------------------------------------------------------------------
people <- fkr(5, list(
  age = fkr_age,
  date_of_birth = fkr_birthday
))
people

## -----------------------------------------------------------------------------
fkr_seed(2024)
fkr_first_name(3)

fkr_seed(2024)
fkr_first_name(3) # identical to the line above