fixed bug in uninstall_all_courses

jahannusrat · Nov 15, 2014 · e1796bc · e1796bc
1 parent a8e64f1
commit e1796bc
Showing 1 changed file with 8 additions and 3 deletions.
diff --git a/R/install_course.R b/R/install_course.R
@@ -212,7 +212,8 @@ uninstall_course <- function(course_name){
 #' @family InstallCourses
 uninstall_all_courses <- function(){
   path <- file.path(system.file(package = "swirl"), "Courses")
-  if(file.exists(file.path(path, "suggested_courses.yaml"))){
+  yaml_exists <- file.exists(file.path(path, "suggested_courses.yaml"))
+  if(yaml_exists){
     temp_file <- tempfile()
     file.copy(file.path(path, "suggested_courses.yaml"), temp_file)
   }
@@ -225,8 +226,12 @@ uninstall_all_courses <- function(){
   }
 
   dir.create(path, showWarnings = FALSE)
-  file.copy(temp_file, path)
-  file.rename(list.files(path, full.names = TRUE), file.path(path, "suggested_courses.yaml"))
+
+  if(yaml_exists){
+    file.copy(temp_file, path)
+    file.rename(list.files(path, full.names = TRUE), file.path(path, "suggested_courses.yaml"))
+  }
+
   invisible()
 }