# NOT RUN {
srt_path <- system.file("extdata", "movie.srt", package="SRTtools")
srt <- srt.read(srt_path, encoding = 'utf-8')
# Postpone subtitles 3 seconds later
srt <- srt.shift(srt, time_shifted = 3)
# Expedite subtitles 5 seconds earlier
srt <- srt.shift(srt, time_shifted = -5)
# }
Run the code above in your browser using DataLab