Filter Timeseries Data Using Sunrise and Sunset Times

Question

I\'m trying to subset data that falls between sunset and sunrise. The data:

library(tidyverse)
library(lubridate)
library(suncalc)

dat <- tibble(datetime