Format fix

R/interactive.R

@@ -23,8 +23,7 @@ rstudio_get_current_active_editor_path <- function() {
 ## draft directory too.
 detect_orderly_interactive_path <- function(
   path = getwd(),
-  editor_path = rstudio_get_current_active_editor_path())
-{
+  editor_path = rstudio_get_current_active_editor_path()) {
   is_valid <- is_plausible_orderly_report(path)
   suggested_wd <- NULL
   if (!is.null(editor_path)) {
@@ -54,7 +53,7 @@ detect_orderly_interactive_path <- function(
       cli::format_inline(paste(
         "Working directory {.path {path}} does not match the report currently",
         "open in RStudio.")),
-      i=cli::format_inline(paste(
+      i = cli::format_inline(paste(
         "Use {.code setwd({.str {suggested_wd}})}",
         "to switch working directories.")))
     rlang::warn(msg, use_cli_format = TRUE)

R/util.R

@@ -641,6 +641,6 @@ paths_are_identical <- function(x, y) {
 
 is_testing <- function() {
   # Copied from testthat, to avoid having the package as a run-time dependency.
-  # https://github.com/r-lib/testthat/blob/fe50a222c62cc8733b397690caf3b2a95856f902/R/test-env.R#L20
+  # https://github.com/r-lib/testthat/blob/fe50a22/R/test-env.R#L20
   identical(Sys.getenv("TESTTHAT"), "true")
 }