st_write не может добавить в непубличную схему

Question

Я пытаюсь записать данные в непубличную схему, используя функцию st_write из пакета sf

Я не могу изменить следующий способ подключения к БД, так как это нарушит все остальные функции -

create_db_connection <- function(host, dbuser, dbpassword){
  drv = RPostgreSQL::PostgreSQL()
  DBuser = dbuser
  DBhost = host
  DBport = "5432"
  DBpassword = dbpassword
  db = RPostgreSQL::dbConnect(drv, dbname = "DIFM", user = DBuser, host = DBhost, port = DBport, password = DBpassword)

  return(db)
}

Используя вышеупомянутое соединение, я попробовал следующее -

1. sf::st_write(obj = obj_geom, dsn = db, layer = c(schema_name, "temp_geometrytable"), row.names = FALSE, append = TRUE)

2. sf::st_write(obj = obj_geom, dsn = db, DBI::Id(schema=schema_name, table = "temp_geometrytable"), row.names = FALSE, append = TRUE)

Но все они продолжают добавляться в публичную схему, но я хочу динамически предоставить имя схемы и затем добавить объектв базу данных в непубличную схему