data-raw/code/utilities/base_data.R

In jfjelstul/euip: The European Union Infringement Procedure (EUIP) Dataset

################################################################################
# Joshua C. Fjelstul, Ph.D.
# euip R package
################################################################################

# read in data
load("data/cases.RData")
load("data/decisions.RData")

# rename variables
cases <- dplyr::rename(cases, year = case_year)
decisions <- dplyr::rename(decisions, year = decision_year)

# select variables
member_states <- dplyr::select(cases, member_state_id, member_state, member_state_code)
departments <- dplyr::select(cases, department_id, department, department_code)

# drop duplicates
member_states <- dplyr::filter(member_states, !duplicated(member_states))
departments <- dplyr::filter(departments, !duplicated(departments))

# case types
case_types <- dplyr::tibble(
  case_type_id = c(1, 2),
  case_type = c("Noncommunication", "Nonconformity")
)

# decision_stages
decision_stages <- dplyr::tibble(
  decision_stage_id = c(1, 2, 3, 4, 5, 6),
  decision_stage = c(
    "Letter of formal notice (Article 258)",
    "Reasoned opinion (Article 258)",
    "Referral to the Court (Article 258)",
    "Letter of formal notice (Article 260)",
    "Reasoned opinion (Article 260)",
    "Referral to the Court (Article 260)"
  )
)

################################################################################
# end R script
################################################################################