Вам нужно привести строку к дате в вашей функции R, используя 2018-04-25 05:45:00
, например:
input <- function (Date1,Date2){
Date1 <- as.POSIXct(Date1)
Date2 <- as.POSIXct(Date2)
test <- data[data$ShiftStartTime >= Date1 & data$ShiftEndTime <= Date2,]
...
И затем просто передать дату в виде строки в запросе http.
Также не используйте library()
в функции, а вместо этого объявляйте эти пакеты как зависимости в файле DESCRIPTION вашего пакета.