如何用R测试PostGIS数据库查询

Question

我一直在玩R中的数据库查询，这些查询是在带有PostGIS扩展的Postgres数据库上执行的。这意味着我使用了一些没有R等价物的PostGIS函数。如果不是因为这个，我可能只是在本地测试数据帧上执行相同的函数，而不是在数据库连接上执行相同的函数，但是由于PostGIS函数，这是不可能的。

是否有一种简单的方法可以在测试数据库中创建测试数据并对其运行查询并评估结果？我有一个R不直接支持的WKB列，因此我甚至不确定简单的copy_to是否可以将字符向量插入到几何体列中，更不用说解决潜在的关键点约束了。本地sqlite数据库无法工作，因为它不提供这些功能。

有人找到了解决这个问题的可行办法吗？

Answer 1

听起来您无法将表从postgresql收集回R，因此必须在sql中进行比较。

我会这样做：

1. 定义文本字符串以生成sql表

为了在sql中比较两个表是否相同，我将遵循本问题或本问题中的方法。

这看起来像这样：

# Define text strings
create_string = 'CREATE TABLE test1 (code VARCHAR(4), size INTEGER);'
insert_string = 'INSERT INTO test1 (code, size) VALUES ('AAA', 123);'

# Execute strings
db_con = create_connection()
dbExecute(db_con, create_string)
dbExecute(db_con, insert_string)

# optional validate new table with contents now exists in datbase

# run code
test1 = tbl(db_con, "test1")
test2 = my_function_to_test_that_does_nothing(test1)

# comparison
num_records_not_in_both = test1 %>%
    full_join(test2, by = colnames(test2), suffix = c("_1","_2") %>%
    filter(is.na(id_1) | is.na(id_2)) %>%
    ungroup() %>%
    summarise(num = n()) %>%
    collect()
require(num_records_not_in_both == 0)

# optional delete test functions