style(lint): linting unittest and package-level docs

Author: amyheather

R/simulation-package.R

@@ -10,8 +10,11 @@
 #' @importFrom jsonlite fromJSON
 #' @importFrom R6 R6Class
 #' @importFrom rlang .data
-#' @importFrom simmer add_generator add_resource branch get_attribute get_mon_arrivals get_mon_resources log_ release seize set_attribute simmer timeout trajectory wrap
-#' @importFrom stats rbeta rbinom rchisq rexp rgeom rgamma rlnorm rnorm rpois rt runif setNames
+#' @importFrom simmer add_generator add_resource branch get_attribute
+#' @importFrom simmer get_mon_arrivals get_mon_resources log_ release seize
+#' @importFrom simmer set_attribute simmer timeout trajectory wrap
+#' @importFrom stats rbeta rbinom rchisq rexp rgeom rgamma rlnorm rnorm rpois
+#' @importFrom stats rt runif setNames
 #' @importFrom utils capture.output
 ## usethis namespace: end
 NULL

tests/testthat/test-unittest.R

@@ -98,9 +98,9 @@ test_that("warm-up filtering works as expected", {
 test_that("initialize creates common distributions", {
   reg <- create_distribution_registry()
 
-  expect_silent(reg$create("normal", mean = 0, sd = 1))
-  expect_silent(reg$create("uniform", min = 0, max = 1))
-  expect_silent(reg$create("binomial", size_param = 1, prob = 0.5))
+  expect_silent(reg$create("normal", mean = 0L, sd = 1L))
+  expect_silent(reg$create("uniform", min = 0L, max = 1L))
+  expect_silent(reg$create("binomial", size_param = 1L, prob = 0.5))
 })
 
 test_that("get retrieves a distribution generator", {