if (FALSE) {
database_id <- c("test_1", "test_2", "test_3", "test_4", "test_5")
.missing_names <- c(TRUE, TRUE, TRUE, FALSE, FALSE)
.missing_coordinates <- c(TRUE, FALSE, FALSE, TRUE, FALSE)
.basisOfRecords_notStandard <- c(TRUE, TRUE, FALSE, TRUE, TRUE)
.summary <- c(TRUE, FALSE, FALSE, FALSE, FALSE)
x <- data.frame(
database_id,
.missing_names,
.missing_coordinates,
.basisOfRecords_notStandard,
.summary
)
report <-
bdc_create_report(
data = x,
database_id = "database_id",
workflow_step = "prefilter",
save_report = FALSE
)
}
Run the code above in your browser using DataLab