First session_diff() implementation

DESCRIPTION

@@ -44,6 +44,8 @@ Suggests:
     rmarkdown,
     testthat,
     withr
+Remotes:
+    r-lib/cli
 Encoding: UTF-8
 Roxygen: list(markdown = TRUE)
 RoxygenNote: 7.1.2

NAMESPACE

@@ -10,17 +10,20 @@ S3method(format,external_info)
 S3method(format,packages_info)
 S3method(format,platform_info)
 S3method(format,python_info)
+S3method(format,session_diff)
 S3method(format,session_info)
 S3method(print,external_info)
 S3method(print,packages_info)
 S3method(print,platform_info)
 S3method(print,python_info)
+S3method(print,session_diff)
 S3method(print,session_info)
 export(external_info)
 export(os_name)
 export(package_info)
 export(platform_info)
 export(python_info)
+export(session_diff)
 export(session_info)
 importFrom(cli,symbol)
 importFrom(utils,packageVersion)

R/clipboard.R

@@ -0,0 +1,33 @@
+
+get_os <- function() {
+  if (.Platform$OS.type == "windows") {
+    "win"
+  } else if (Sys.info()["sysname"] == "Darwin") {
+    "mac"
+  } else {
+    "unix"
+  }
+}
+
+clipboard_read <- function() {
+  os <- get_os()
+
+  switch(
+    os,
+    win = utils::readClipboard(),
+    mac = clipboard_read_mac(),
+    clipboard_read_x11()
+  )
+}
+
+clipboard_read_mac <- function() {
+  on.exit(try(close(con), silent = TRUE), add = TRUE)
+  con <- pipe("pbpaste")
+  scan(con, what = "", sep = "\n", blank.lines.skip = FALSE, quiet = TRUE)
+}
+
+clipboard_read_x11 <- function() {
+  on.exit(try(close(con), silent = TRUE), add = TRUE)
+  con <- file("clipboard")
+  scan(con, what = "", sep = "\n", blank.lines.skip = FALSE, quiet = TRUE)
+}