From 0b8316e3cd9032e1d3085435f9df5bca96dc205f Mon Sep 17 00:00:00 2001
From: Rich FitzJohn <r.fitzjohn@imperial.ac.uk>
Date: Thu, 13 Jul 2023 19:02:43 +0100
Subject: [PATCH] Fix implementation

---
 R/run.R | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/R/run.R b/R/run.R
index 3ccf4e2d..16affb7f 100644
--- a/R/run.R
+++ b/R/run.R
@@ -109,6 +109,7 @@ orderly_run <- function(name, parameters = NULL, envir = NULL,
   envir <- envir %||% .GlobalEnv
   assert_is(envir, "environment")
 
+  src <- file.path(root$path, "src", name)
   dat <- orderly_read(src)
 
   parameters <- check_parameters(parameters, dat$parameters,
@@ -419,7 +420,7 @@ orderly_packet_cleanup_failure <- function(p) {
 
 validate_orderly_directory <- function(name, root) {
   assert_scalar_character(name)
-  if (!file_exists(file.path(root$path, "src", name, "ordery.R"))) {
+  if (!file_exists(file.path(root$path, "src", name, "orderly.R"))) {
     src <- file.path(root$path, "src", name)
     err <- sprintf("Did not find orderly report '%s'", name)
     if (file_exists(src)) {