if (FALSE) {
# 1) Load the data
data <- read.csv("tests/testthat/test-data/churn_data.csv")
# 2) Create the agent
data_cleaner_agent <- build_data_cleaning_agent(
model = my_llm_wrapper,
human_validation = FALSE,
bypass_recommended_steps = FALSE,
bypass_explain_code = FALSE,
verbose = FALSE
)
# 3) Define the initial state
initial_state <- list(
data_raw = data,
user_instructions = "Don't remove outliers when cleaning the data.",
max_retries = 3,
retry_count = 0
)
# 4) Run the agent
final_state <- data_cleaner_agent(initial_state)
}
Run the code above in your browser using DataLab