disable test creating a .RProfile

datacamp · Oct 2, 2017 · 88788dd · 88788dd
1 parent ae90c3a
commit 88788dd
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 23 deletions.
diff --git a/R/utils.R b/R/utils.R
@@ -60,18 +60,18 @@ get_package_from_URL <- function(url){
 }
 
 get_r_profile <- function(){
-  if (!file.exists(file.path(Sys.getenv("HOME"),".Rprofile"))) {
-    file.create(file.path(Sys.getenv("HOME"), ".Rprofile"), quiet=TRUE)
-  }
   Rprofile <- file.path(Sys.getenv("HOME"), ".Rprofile")
-  return (Rprofile)
+  return (file(Rprofile, "w+"))
 }
 
 concat <- function(x) {
   paste(x, collapse = ",")
 }
 
 is_in_profile <- function(targets) {
+  if (!file.exists(file.path(Sys.getenv("HOME"),".Rprofile"))) {
+    return (FALSE)
+  }
   any(targets %in% readLines(get_r_profile()))
 }
 
@@ -83,6 +83,9 @@ add_to_profile <- function(the_line, old_lines = "") {
 }
 
 remove_from_profile <- function(the_line, old_lines = "") {
+  if (!file.exists(file.path(Sys.getenv("HOME"),".Rprofile"))) {
+    return ()
+  }
   rprofile <- get_r_profile()
   lines <- readLines(rprofile)
   # Keep all non-matching lines

diff --git a/tests/testthat/test-defaults.R b/tests/testthat/test-defaults.R
@@ -1,24 +1,5 @@
 context("defaults")
 
-test_that("autoloads",{
-  disable_autoload()
-  expect_false(autoload_line %in% readLines(get_r_profile()))
-  expect_false(is_autoload())
-  enable_autoload()
-  expect_true(autoload_line %in% readLines(get_r_profile()))
-  expect_true(is_autoload())
-  disable_autoload()
-  expect_false(autoload_line %in% readLines(get_r_profile()))
-  expect_false(is_autoload())
-  enable_autoload()
-  write(autoload_line_old, file = get_r_profile(), append = TRUE)
-  expect_true(is_autoload())
-  disable_autoload()
-  expect_false(autoload_line %in% readLines(get_r_profile()))
-  expect_false(autoload_line_old %in% readLines(get_r_profile()))
-  expect_false(is_autoload())
-})
-
 test_that("overrides", {
   disable_rdocs()
   expect_false(rdocs_active())