From d93b0392ab2d830bd1a0bba868ab50267b1fc770 Mon Sep 17 00:00:00 2001
From: Daniel Turek <danielturek@gmail.com>
Date: Sun, 2 Jun 2024 07:41:34 -0400
Subject: [PATCH] removed unnecessary deparse

---
 nimbleHMC/R/HMC_samplers.R | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/nimbleHMC/R/HMC_samplers.R b/nimbleHMC/R/HMC_samplers.R
index 8ebef3c..5a16f90 100644
--- a/nimbleHMC/R/HMC_samplers.R
+++ b/nimbleHMC/R/HMC_samplers.R
@@ -182,8 +182,7 @@ hmc_checkTarget <- function(model, targetNodes, hmcType) {
     dists <- targetDists_unique
     ADok <- rep(TRUE, length(dists))
     for(i in seq_along(dists)) {
-        dist_deparsed <- deparse(dists[i])
-        ADoak[i] <- model$getModelDef()$checkADsupportForDistribution(dist_deparsed)
+        ADoak[i] <- model$getModelDef()$checkADsupportForDistribution(dists[i])
     }
     if(!all(ADok))
         stop(paste0(hmcType, ' sampler cannot operate on user-defined distributions which do not support AD calculations.  Try using buildDerivs = TRUE in the definition the distributions: ', paste0(dists[!ADok], collapse = ', ')))