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

## ----eval=FALSE---------------------------------------------------------------
# eppoTaxons <- eppoFindeR::taxons()
# # and/or
# distillerToken <- distilleR::getAuthenticationToken()

## ----eval=FALSE---------------------------------------------------------------
# install.packages("EFSATools")

## ----eval=FALSE---------------------------------------------------------------
# # install.packages("devtools")
# devtools::install_github("openefsa/EFSATools")

## ----loadLibrary, eval=FALSE--------------------------------------------------
# library(EFSATools)

## ----eval=FALSE---------------------------------------------------------------
# help("<function_name>")

## ----eval=FALSE---------------------------------------------------------------
# help("SCD2")

## ----dropEmpty, eval=FALSE----------------------------------------------------
# irisDropped <- dropEmpty(dataframe = iris)
# 
# print(head(irisDropped))

## ----enrich, eval=FALSE-------------------------------------------------------
# enrichedDataFrame <- enrich(
#   dataframe = dataframe_,
#   catalogue = CV_MTX_,
#   joinBy = "CODE",
#   enrichedColumnName = "enrichedColumn"
# )
# 
# print(head(enrichedDataFrame))

## ----removeReplicatedColumns, eval=FALSE--------------------------------------
# iris$Species_1 <- iris$Species
# iris$Species_2 <- iris$Species
# iris$Species <- NULL
# 
# irisDeduplicated <- removeReplicatedColumns(
#   dataframe = iris,
#   prefix = "Species_"
# )
# 
# print(head(irisDeduplicated))

## ----SSCD2, eval=FALSE--------------------------------------------------------
# sscd2Dataframe <- SSCD2(newData = newDataframe, currentData = oldDataframe)
# 
# print(head(sscd2Dataframe))

## ----SCD2, eval=FALSE---------------------------------------------------------
# scd2Dataframe <- SCD2(newData = newDataframe, currentData = oldDataframe)
# 
# print(head(scd2Dataframe))