From e9b089fb130c40859f75f95c60bf92404218425f Mon Sep 17 00:00:00 2001 From: Michael Chirico Date: Thu, 31 Oct 2024 15:01:46 -0700 Subject: [PATCH 1/2] .Call() with symbols, not strings --- rstan/rstan/R/get_rng.R | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) diff --git a/rstan/rstan/R/get_rng.R b/rstan/rstan/R/get_rng.R index 2aa09bb1b..113475bbc 100644 --- a/rstan/rstan/R/get_rng.R +++ b/rstan/rstan/R/get_rng.R @@ -3,8 +3,5 @@ get_rng <- function(seed=0L) { if (length(seed) != 1) stop("Seed must be a length-1 integer vector.") } - return(.Call('get_rng_', seed)) + return(.Call(get_rng_, seed)) } - - - From 5647cf5913a091790f3c00b5a8ea71988ef21e04 Mon Sep 17 00:00:00 2001 From: Michael Chirico Date: Thu, 31 Oct 2024 15:04:42 -0700 Subject: [PATCH 2/2] One other place --- rstan/rstan/R/get_stream.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/rstan/rstan/R/get_stream.R b/rstan/rstan/R/get_stream.R index 9a98cbd46..c1dfb04dc 100644 --- a/rstan/rstan/R/get_stream.R +++ b/rstan/rstan/R/get_stream.R @@ -1,5 +1,5 @@ get_stream <- function() { - return(.Call('get_stream_')) + return(.Call(get_stream_)) }