Skip lockfile test on CRAN

[Copilot]

Pull Request

The lockfile creation test writes to the filesystem, which fails on CRAN due to restricted /tmp access.

Added testthat::skip_on_cran() to the first test in test-module_session_info.R that creates and verifies the teal_app.lock file. The second test (verifies file non-creation) remains unchanged as it doesn't require write access.

Warning

Firewall rules blocked me from connecting to one or more addresses (expand for details)

I tried to connect to the following addresses, but was blocked by firewall rules:

• cloud.r-project.org
  • Triggering command: /opt/R/4.5.2/lib/R/bin/exec/R /opt/R/4.5.2/lib/R/bin/exec/R --vanilla --quiet -e install.packages('devtools',~+~repos='REDACTED',~+~quiet=TRUE) (dns block)

If you need me to access, download, or install something from one of these locations, you can either:

• Configure Actions setup steps to set up my environment, which run before the firewall is enabled
• Add the appropriate URLs or hosts to the custom allowlist in this repository's Copilot coding agent settings (admins only)

Original prompt

---

This section details on the original issue you should resolve

<issue_title>Skip test on CRAN</issue_title>
<issue_description>### Feature description

autovalidate team suggested that we skip this test because the pipeline doesn't have access to /tmp folder.

teal/tests/testthat/test-module_session_info.R

Lines 1 to 27 in 7da101d

	testthat::describe("srv_session_info lockfile", {
	testthat::it(paste0(
	"creation process is invoked for teal.lockfile.mode = \"enabled\" ",
	"and snapshot is copied to teal_app.lock and removed after session ended"
	), {
	testthat::skip_if_not_installed("mirai")
	testthat::skip_if_not_installed("renv")
	withr::with_options(
	list(teal.lockfile.mode = "enabled"),
	{
	renv_filename <- "teal_app.lock"
	shiny::testServer(
	app = srv_session_info,
	args = list(id = "test"),
	expr = {
	iter <- 1
	while (!file.exists(renv_filename) && iter <= 1000) {
	Sys.sleep(0.5)
	iter <- iter + 1 # max wait time is 500 seconds
	}
	testthat::expect_true(file.exists(renv_filename))
	}
	)
	testthat::expect_false(file.exists(renv_filename))
	}
	)
	})

Code of Conduct

• I agree to follow this project's Code of Conduct.

Contribution Guidelines

• I agree to follow this project's Contribution Guidelines.

Security Policy

• I agree to follow this project's Security Policy.</issue_description>

Comments on the Issue (you are @copilot in this section)

• Fixes Skip test on CRAN #1681

---

✨ Let Copilot coding agent set things up for you — coding agent works faster and does higher quality work when set up for your repo.