# generate fake data
dt <-
  data.frame(
    s = rep(1:2, each = 3),
    d = rep(c("2022/1/1", "2022/1/2", "2022/1/3"), 2),
    a = 13:18,
    b = 23:28
  )
# convert dt$d to Date object
dt$d <- as.Date(dt$d, format = "%Y/%m/%d")

# solutions of selecting dt$s == 1 & dt$d >= 2022-01-02 & dt$d <= 2022-01-03
subset(dt, s == 1 & d >= as.Date("2022-01-02"), d <= as.Date("2022-01-03"))
dt[dt$s == 1 & dt$d >= as.Date("2022-01-02") & dt$d <= as.Date("2022-01-03"), ]
dt[with(dt, s == 1 & d >= as.Date("2022-01-02"), d <= as.Date("2022-01-03")), ]