# 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)
# Save and cover original "movie.srt" file
srt.write(srt, filename = file.path(tempdir(), "movie.srt"))
# }
Run the code above in your browser using DataLab