style(package): lint model and trajectory functions

Author: amyheather

R/create_asu_trajectory.R

@@ -26,7 +26,7 @@ create_asu_trajectory <- function(env, patient_type, param) {
   # Set up simmer trajectory object...
   trajectory(paste0("ASU_", patient_type, "_path")) |>
 
-    log_("🚶 Arrived at ASU", level = 1) |>
+    log_("🚶 Arrived at ASU", level = 1L) |>
 
     seize("asu_bed", 1L) |>
 
@@ -42,7 +42,7 @@ create_asu_trajectory <- function(env, patient_type, param) {
       dest <- dest_names[dest_index]
       # Create log message
       paste0("🎯 Planned ASU -> ", dest_index, " (", dest, ")")
-    }, level = 1) |>
+    }, level = 1L) |>
 
     set_attribute("asu_los", function() {
       # Retrieve attribute, and use to get post-ASU destination as a string
@@ -75,11 +75,11 @@ create_asu_trajectory <- function(env, patient_type, param) {
     log_(function() {
       paste0("⏳ ASU length of stay: ",
              round(get_attribute(env, "asu_los"), 3L))
-    }, level = 1) |>
+    }, level = 1L) |>
 
     timeout(function() get_attribute(env, "asu_los")) |>
 
-    log_("🏁 ASU stay completed", level = 1) |>
+    log_("🏁 ASU stay completed", level = 1L) |>
 
     release("asu_bed", 1L) |>
 

R/create_rehab_trajectory.R

@@ -26,7 +26,7 @@ create_rehab_trajectory <- function(env, patient_type, param) {
   # Set up simmer trajectory object...
   trajectory(paste0("rehab_", patient_type, "_path")) |>
 
-    log_("🚶 Arrived at rehab", level = 1) |>
+    log_("🚶 Arrived at rehab", level = 1L) |>
 
     seize("rehab_bed", 1L) |>
 
@@ -42,7 +42,7 @@ create_rehab_trajectory <- function(env, patient_type, param) {
       dest <- dest_names[dest_index]
       # Create log message
       paste0("🎯 Planned rehab -> ", dest_index, " (", dest, ")")
-    }, level = 1) |>
+    }, level = 1L) |>
 
     set_attribute("rehab_los", function() {
       # Retrieve attribute, and use to get post-rehab destination as a string
@@ -74,11 +74,11 @@ create_rehab_trajectory <- function(env, patient_type, param) {
     log_(function() {
       paste0("⏳ Rehab length of stay: ",
              round(get_attribute(env, "rehab_los"), 3L))
-    }, level = 1) |>
+    }, level = 1L) |>
 
     timeout(function() get_attribute(env, "rehab_los")) |>
 
-    log_("🏁 Rehab stay completed", level = 1) |>
+    log_("🏁 Rehab stay completed", level = 1L) |>
 
     release("rehab_bed", 1L)
 }

R/model.R

@@ -32,7 +32,7 @@ model <- function(run_number, param, set_seed = TRUE) {
   # Create simmer environment - set verbose to FALSE as using custom logs
   # (but can change to TRUE if want to see default simmer logs as well)
   env <- simmer("simulation", verbose = FALSE,
-                log_level = if (param[["verbose"]]) 1 else 0)
+                log_level = if (param[["verbose"]]) 1L else 0L)
 
   # Add ASU and rehab direct admission patient generators
   for (unit in c("asu", "rehab")) {