fixed: frame deletion, documentations edits

R/image_scores.R

@@ -10,9 +10,6 @@
 #' @param face_selection The method to select the face in the image. Can be "largest" or "left" or "right". Default is "largest" and will select the largest face in the image. "left" and "right" will select the face on the far left or the far right side of the image. Face_selection method is irrelevant if there is only one face in the image.
 #' @return A data frame containing the scores for each class.
 #'
-#' @examples
-#' \donttest{boris_image = "inst/extdata/boris-1.png"
-#' image_scores(boris_image, c("anger", "disgust", "fear", "happiness", "sadness", "surprise", "neutral"))}
 #' 
 #' @importFrom reticulate source_python
 #' @export

R/video_scores.R

@@ -22,11 +22,6 @@
 #'
 #' @export
 #'
-#' @examples
-#' # Not run: 
-#' result <- video_scores("https://www.youtube.com/watch?v=dQw4w9WgXcQ", c("happy", "sad"), nframes = 200, face_selection = "left", cut = TRUE, start = 30, end = 90, uniform = TRUE, ffreq = 10, save_video = TRUE, save_frames = TRUE, save_dir = "output/", video_name = "analysis")
-#'
-
 video_scores <- function(video, classes, nframes=100,
                          face_selection = "largest", cut = FALSE, start = 0, end = 60, uniform = FALSE, ffreq = 15, save_video = FALSE, save_frames = FALSE, save_dir = "temp/", video_name = "temp"){
     ################################################################
@@ -76,7 +71,7 @@ video_scores <- function(video, classes, nframes=100,
     file.remove(paste0(save_dir, video_name, ".mp4"))
   }
   if(!save_frames){
-     file.remove(list.files(save_dir, pattern = ".jpg"))
+     file.remove(paste0(save_dir, list.files(save_dir, pattern = ".jpg")))
   }
   return(result)
 }