我
sub通过简单地使用正则表达式来使用函数来做到这一点：
my_date1 <- "08/01/2014"my_date2 <- "08/31/2014"my_query <- 'Select * from dbo.Employee where StartDate between DATE1 and DATE2 order by StartDate'my_query <- sub("DATE1",my_date1,my_query);my_query <- sub("DATE2",my_date2,my_query)# the result of your query is belownoquote(my_query)# if you want the quotes for dates leave them theremy_query <- 'Select * from dbo.Employee where StartDate between "DATE1" and "DATE2" order by StartDate'my_query <- sub("DATE1",my_date1,my_query);my_query <- sub("DATE2",my_date2,my_query)# the result of your query is belownoquote(my_query)# Now sub the inputs into those variables like somy_query <- 'Select * from dbo.Employee where StartDate between DATE1 and DATE2 order by StartDate'my_query <- sub("DATE1",input$daterange[1],my_query);my_query <- sub("DATE2",input$daterange[2],my_query)noquote(my_query)
