sql - rでリモートtblをサブセット化する方法は?

Question

dplyrを使用してSQLテーブルをtblにロードしました（rrは私のdb接続です）：

s_log=rr%>%tbl("s_log")

次に、3 つの列を抽出し、それらを新しい tbl に配置します。

id_date_amount=s_log%>%select(id,created_at,amount)

head (id_date_amount) を実行すると、正しく動作します:

      id              created_at                amount
1   34101           2016-07-20 10:41:23          19750
2   11426           2016-07-20 10:38:15          19750
3   26694           2016-07-20 10:38:18          49750
4   25656           2016-07-20 10:42:05          49750
5   23987           2016-07-20 10:40:31          19750
6   24564           2016-07-20 10:38:35          19750

ここで、過去 21 日間のみが含まれるように id_date_amount をフィルター処理する必要があります。

filtered_ADP=subset(id_date_payment,as.Date('2016-08-22')- as.Date(created_at) > 0 & as.Date('2016-08-22')- as.Date(created_at)<=21)

次のエラーが表示されます。

Error in as.Date(created_at) : object 'created_at' not found

ローカルに id_date_payment がないためだと思いますが、そのサブセットを id_date_payment に送信して結果を返すにはどうすればよいですか?

deployer::filter を使用してみました:

id_date_amount=id_date_amount %>% filter( as.Date('2016-08-22') - as.Date(created_at) > 0 & as.Date('2016-08-22')- as.Date(created_at)<=21 )  

しかし、私はこのエラーが発生します:

   Error in postgresqlExecStatement(conn, statement, ...) : 
  RS-DBI driver: (could not Retrieve the result : ERROR:  syntax      error at or near "AS"
LINE 3: WHERE "status" = 'success' AND AS.DATE('2016-08-22') - AS.DA...
                                   ^
)