From 73fcb64ed439b978a89d7c0c97af13f9c2bf5a01 Mon Sep 17 00:00:00 2001
From: Dillon Hammill <Dillon.Hammill@anu.edu.au>
Date: Wed, 19 May 2021 15:33:24 +1000
Subject: [PATCH] Make sure to search for read in files in correct environment.

---
 NEWS.md              | 2 +-
 R/dataInput.R        | 1 +
 docs/news/index.html | 2 +-
 3 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/NEWS.md b/NEWS.md
index 7f2e161..9d76862 100644
--- a/NEWS.md
+++ b/NEWS.md
@@ -2,7 +2,7 @@
 
 * `data_edit()` can now export the code required to generate the final edited version of the data to an R script.
 * Update vignette and website to demonstrate usage of `code` argument.
-* Make sure to search the correct environment when creating templates.
+* Make sure to search the correct environment when creating templates or reading files.
 
 # DataEditR 0.1.1
 
diff --git a/R/dataInput.R b/R/dataInput.R
index 5e63ff9..dee41f6 100644
--- a/R/dataInput.R
+++ b/R/dataInput.R
@@ -121,6 +121,7 @@ dataInputServer <- function(id,
           read_fun,
           c(list(data), read_args)
         )
+        envir <- environment()
         updateTextInput(
           session,
           "data",
diff --git a/docs/news/index.html b/docs/news/index.html
index 2609d9b..d06b608 100644
--- a/docs/news/index.html
+++ b/docs/news/index.html
@@ -133,7 +133,7 @@ <h1 class="page-header" data-toc-text="0.1.2">
 <li>
 <code><a href="../reference/data_edit.html">data_edit()</a></code> can now export the code required to generate the final edited version of the data to an R script.</li>
 <li>Update vignette and website to demonstrate usage of <code>code</code> argument.</li>
-<li>Make sure to search the correct environment when creating templates.</li>
+<li>Make sure to search the correct environment when creating templates or reading files.</li>
 </ul>
 </div>
     <div id="dataeditr-011" class="section level1">