monday <- phinterval(as.Date("2025-11-10"), as.Date("2025-11-11"))
friday <- phinterval(as.Date("2025-11-14"), as.Date("2025-11-15"))
# Get the default setting
getOption("phinterval.print_max_width")
phint_squash(c(monday, friday))
# Change the setting for the session duration
opts <- options(phinterval.print_max_width = 25)
phint_squash(c(monday, friday))
# Reset to the previous settings
options(opts)
Run the code above in your browser using DataLab