Передача SQl запросов в R блестящем диапазоне дат

Question

У меня есть SQL функция запроса. Когда я запускаю код ниже SQL, я получаю вывод.

select * FROM [DB].[dbo].[Customer] ('Num', '2008-01-01', '2009-01-01') order by [Date] desc

Но мне нужно, чтобы он работал R блестящий, согласно дате, которую я выбираю из dateInput. Таким образом, код выглядит следующим образом

data1 <- sqlQuery(dbhandle, "select * from [DB].[dbo].[Customer] ('Num', FirstDate = input$Date[1] AND SecondDate = input$Date[2]) order by [Date]  desc")

Здесь Num, FirstDate и SecondDate - это параметры, записанные в SQL, поэтому я их вызываю. Но я не могу выполнить вышеуказанный запрос в R. Может кто-нибудь, пожалуйста, помогите мне

Answer 1

Поскольку запрос должен быть в кавычках, вы можете полагаться на paste или paste0.

sql<-paste0("select * FROM [DB].[dbo].[Customer] ('Num', ",input$Date1," ,", input$Date2,") order by [Date] desc")

data1 <- sqlQuery(dbhandle, query)