Can you request data from the monadic api, and convert it back?

append(unique(dupes_checks$country), c("Mexico", "Brazil")) (`actual`) not equal to unique(dupes_checks_plus_bramex$country) (`expected`).

`actual[147:151]`:   [90m"Slovenia"[39m [90m"Malaysia"[39m [90m"Panama"[39m [33m"Mexico"[39m [33m"Brazil"[39m
`expected[147:149]`: [90m"Slovenia"[39m [90m"Malaysia"[39m [90m"Panama"[39m [90m[39m         [90m[39m

#Proper functioning of the function ----
## There are no duplicates in the returned dataset ----
test_that("There are no duplicates in the returned data",{
## Additional additional_countries are properly added to the dataset
test_that("Additional additional_countries are properly included",{
## When disabling deleted events, users get a different result ----
test_that("acled_update without deletions actually returns events that should be deleted",{
key = "M3PWwg3DIdhHMuDiilp5", deleted = FALSE,
## An warning appears when requesting an update of data for dates earlier/later to the min of my dataset ----
test_that("Warning for earlier dates requested", {
start_date = (min(acledR::acled_old_dummy$event_date) + 10),
test_that("Warning for start dates that are later than the earliest in the dataset", {
start_date = (min(acledR::acled_old_dummy$event_date) - 10),
## A warning appears when requesting an update of data for dates older/earlier to the max of my dataset ----
test_that("Warning for later end dates than requested", {
end_date = (max(acledR::acled_old_dummy$event_date) + 10),
test_that("Warning for ealier end dates than the max requested", {
end_date = (max(acledR::acled_old_dummy$event_date) - 10),
## Errors when additional_countries provided are not in acled_countries----
test_that("Error if `additional_countries` or `regions` are not in the dataset", {
expect_error(acled_update(acledR::acled_old_dummy, additional_countries = "Unknown Country"),
"Error: The following additional_countries are not present in acledR::acled_countries: Unknown Country")
expect_error(acled_update(acledR::acled_old_dummy, regions = "Unknown Region"),
"Error: The following regions are not present in acledR::acled_regions: Unknown Region")
## Errors if acled_access is used incorrectly ----
test_that("An error appears if acled_access is false but no keys are provided",{
acled_access = F, prompts = F), regexp = "Error: If acled_access is FALSE")
## Errors when the dataset does not have the acled structure ----
test_that("If you have a dataset that does not match acled's structure you get an error",{
acled_access = F, prompts = F), regexp = "The data frame provided does not have ACLED's structure")
## Errors when requesting event types that are not part of ACLED's event types ----
test_that("Users get an error when requesting a non existent event type",{
acled_access = F, prompts = F), regexp = "Error: Invalid event_type provided")
## Does not generate duplicates when fed a non-unique list of values. - But it takes a long time ----
test_that("No duplicates when the function is given a non-uniques list of values in the additional_countries argument.", {