trying one most time for Video in R