import R's ahead Pt.31

Techtonique · Jan 9, 2024 · fc01b5b · fc01b5b
1 parent c6364f5
commit fc01b5b
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 4 deletions.
diff --git a/Ahead/Manifest.toml b/Ahead/Manifest.toml
@@ -6,7 +6,7 @@ project_hash = "7a2d2dd43dcf5281bf3e0bad350fc711c20e25cf"
 
 [[deps.Ahead]]
 deps = ["Pkg", "RCall"]
-git-tree-sha1 = "0a3b3d26d65a7d442d2d28e778cd888ea7249898"
+git-tree-sha1 = "5cebb59c31c9497274c24726660ca155f091a502"
 repo-rev = "main"
 repo-url = "https://github.com/Techtonique/Ahead.jl"
 uuid = "e561dd4c-0aa7-4ba4-aacb-df50ed0db7d4"

diff --git a/src/Ahead.jl b/src/Ahead.jl
@@ -28,13 +28,17 @@ module Ahead
 	R"options(repos = c(techtonique = 'https://techtonique.r-universe.dev',
     CRAN = 'https://cloud.r-project.org'))"
 	R"install_ahead <- try(utils::install.packages('ahead', dependencies=TRUE), silent = TRUE)"
-	R"if(inherits(install_ahead, 'try-error'))"	
+	R"if(inherits(install_ahead, 'try-error')) {}"	
 
 	function foo(x)
 		# https://juliainterop.github.io/RCall.jl/stable/custom/#Nested-conversion
 		print("in function 'foo'")
-		R"library(ahead)"
-		return rcopy(R"ahead::dynrmf(c(1, 2, 3, 4, 5))")
+		R"try(library(ahead), silent = TRUE)"
+		try
+			res = rcopy(R"ahead::dynrmf(c(1, 2, 3, 4, 5))")		
+		catch
+			res = 0
+		return res
 	end 
 
 	# exports