Fix lints

Author: shikokuchuo

R/preview.R

@@ -34,7 +34,7 @@ preview_site <- function(pkg = ".", path = ".", preview = TRUE) {
     url <- if (rel_path == ".") {
       the$server$url
     } else {
-      file.path(the$server$url, rel_path)
+      paste0(the$server$url, "/", rel_path)
     }
     utils::browseURL(url)
   }

tests/testthat/test-preview.R

@@ -56,7 +56,7 @@ test_that("preview reuses server for same root", {
 
   expect_identical(the$server, server1)
   expect_length(urls, 2)
-  expect_equal(urls[[2]], file.path(server1$url, "test.html"))
+  expect_equal(urls[[2]], paste0(server1$url, "/test.html"))
 })
 
 test_that("preview starts new server for different root", {
@@ -88,8 +88,8 @@ test_that("preview constructs correct URLs for sub-paths", {
   base_url <- the$server$url
 
   preview_site(pkg, path = "reference", preview = TRUE)
-  expect_equal(urls[[2]], file.path(base_url, "reference"))
+  expect_equal(urls[[2]], paste0(base_url, "/reference"))
 
   preview_site(pkg, path = "reference/foo.html", preview = TRUE)
-  expect_equal(urls[[3]], file.path(base_url, "reference/foo.html"))
+  expect_equal(urls[[3]], paste0(base_url, "/reference/foo.html"))
 })