diff --git a/R/dbSource.R b/R/dbSource.R index f976b43b..fef0e082 100644 --- a/R/dbSource.R +++ b/R/dbSource.R @@ -28,15 +28,18 @@ dbSource <- function(con, writeSchema) { checkmate::assert_character(writeSchema, min.len = 1, max.len = 3) if (length(writeSchema) != 3 & !"schema" %in% names(writeSchema)) { - cli::cli_inform(c( - "!" = "No prefix was supplied.", - "Please consider using a prefix for good practices as it prevents:", - "*" = "Working in your own subschema", - "*" = "Dropping others tables", - "*" = "Easily clean it at the end of the analysis", + + rlang::inform(c( + "No prefix was supplied. Consider adding a prefix in your write_schema.", + "A prefix", + "*" = "Allows you to work in your own subschema", + "*" = "Helps Prevent accidentally dropping tables of others using the same database schema", + "*" = "Allows you to easily clean up intermediate tables at the end of the analysis", "To use a prefix you have to specify it when you create the cdm_reference:", - "v" = "writeSchema = c(schema = \"main\", prefix = \"my_prefix_\")" - )) + "`write_schema = c(schema = \"main\", prefix = \"my_prefix_\")`" + ), + .frequency = "once", + .frequency_id = "write_prefix_message") } source <- structure(