diff --git a/R/show_schema_tables.R b/R/show_schema_tables.R index 3ddcfb7..bd99123 100644 --- a/R/show_schema_tables.R +++ b/R/show_schema_tables.R @@ -6,12 +6,13 @@ table_sql <- function(schema) { order by 2;", .con = DBI::ANSI()) } +# type IN ('U', 'V') = user tables, views table_view_sql <- function(schema) { glue::glue_sql("SELECT name AS 'table', \\ type_desc AS 'object_type', \\ create_date AS 'creation_date' \\ FROM sys.objects \\ - WHERE type IN ('U', 'V') -- 'U'ser tables, 'V'iews \\ + WHERE type IN ('U', 'V') \\ AND SCHEMA_NAME(schema_id) = {schema} \\ order by type, name;", .con = DBI::ANSI()) } diff --git a/tests/testthat/test-show_schema_tables.R b/tests/testthat/test-show_schema_tables.R index d7a0f79..f546d4b 100644 --- a/tests/testthat/test-show_schema_tables.R +++ b/tests/testthat/test-show_schema_tables.R @@ -15,7 +15,7 @@ test_that("table and view sql created correctly", { type_desc AS 'object_type', \\ create_date AS 'creation_date' \\ FROM sys.objects \\ - WHERE type IN ('U', 'V') -- 'U'ser tables, 'V'iews \\ + WHERE type IN ('U', 'V') \\ AND SCHEMA_NAME(schema_id) = 'test_schema' \\ order by type, name;")