Add video_scores function and update image_scores function

NAMESPACE

@@ -8,12 +8,21 @@ export(setup_miniconda)
 export(setup_modules)
 export(simulate_video)
 export(transformer_scores)
+export(video_scores)
+import(reticulate)
 importFrom(Matrix,bdiag)
+importFrom(base,file.remove)
+importFrom(base,paste0)
 importFrom(dplyr,left_join)
+importFrom(reticulate,py_module_available)
 importFrom(reticulate,source_python)
+importFrom(reticulate,use_condaenv)
 importFrom(stats,aggregate)
+importFrom(stats,grep)
 importFrom(stats,na.omit)
 importFrom(utils,data)
+importFrom(utils,dir.create)
+importFrom(utils,dir.exists)
 importFrom(utils,install.packages)
 importFrom(utils,installed.packages)
 importFrom(utils,packageDescription)

R/video_scores.R

@@ -49,10 +49,8 @@ video_scores <- function(video, classes, nframes=100,
     setup_modules()
   }
   ################################################################
-  # source_python(system.file("python", "image.py", package = "transforEmotion"))
-  # source_python(system.file("python", "image.py", package = "transforEmotion"))
-  reticulate::source_python("inst/python/image.py")
-  reticulate::source_python("inst/python/video.py")
+  source_python(system.file("python", "image.py", package = "transforEmotion"))
+  source_python(system.file("python", "image.py", package = "transforEmotion"))
   if (!grepl("youtu", video)){
     stop("You need to provide a YouTube video URL.")
   }
@@ -84,4 +82,4 @@ video_scores <- function(video, classes, nframes=100,
      file.remove(list.files(save_dir, pattern = ".jpg"))
   }
   return(result)
-}
+}