# 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")), ]
 

IyBnZW5lcmF0ZSBmYWtlIGRhdGEKZHQgPC0KICBkYXRhLmZyYW1lKAogICAgcyA9IHJlcCgxOjIsIGVhY2ggPSAzKSwKICAgIGQgPSByZXAoYygiMjAyMi8xLzEiLCAiMjAyMi8xLzIiLCAiMjAyMi8xLzMiKSwgMiksCiAgICBhID0gMTM6MTgsCiAgICBiID0gMjM6MjgKICApCiMgY29udmVydCBkdCRkIHRvIERhdGUgb2JqZWN0CmR0JGQgPC0gYXMuRGF0ZShkdCRkLCBmb3JtYXQgPSAiJVkvJW0vJWQiKQoKIyBzb2x1dGlvbnMgb2Ygc2VsZWN0aW5nIGR0JHMgPT0gMSAmIGR0JGQgPj0gMjAyMi0wMS0wMiAmIGR0JGQgPD0gMjAyMi0wMS0wMwpzdWJzZXQoZHQsIHMgPT0gMSAmIGQgPj0gYXMuRGF0ZSgiMjAyMi0wMS0wMiIpLCBkIDw9IGFzLkRhdGUoIjIwMjItMDEtMDMiKSkKZHRbZHQkcyA9PSAxICYgZHQkZCA+PSBhcy5EYXRlKCIyMDIyLTAxLTAyIikgJiBkdCRkIDw9IGFzLkRhdGUoIjIwMjItMDEtMDMiKSwgXQpkdFt3aXRoKGR0LCBzID09IDEgJiBkID49IGFzLkRhdGUoIjIwMjItMDEtMDIiKSwgZCA8PSBhcy5EYXRlKCIyMDIyLTAxLTAzIikpLCBdCg==