```r
query1<-"select * from nat_earth_countries_hi where name ilike '%roatia%'"
query2<-"select * from fires"


query<-sprintf("select f.* from (%s) c, (%s) f where st_intersects(f.geom,c.geometry)",query1,query2)

st_read(conn,query=query) -> croatia_fires
st_read(conn,query=query1) -> croatia
```

```
## type is 51
```

```r
croatia_fires$area<-56594
```