silence some warning

yuw444 · yuw444 · commit 98af715e9856 · 2025-11-26T11:57:02.000-06:00
diff --git a/src/rapi.c b/src/rapi.c
@@ -319,7 +319,7 @@ SEXP R_PrintTree(
         Rf_error("Invalid tree index.");
     }
 
-    char *filename0 = CHAR(STRING_ELT(filename, 0));
+    char *filename0 = (char *) CHAR(STRING_ELT(filename, 0));
     WriteTreeDotFile(forest->forest[treeIndex0], filename0);
     
     return R_NilValue;

Original file line number	Diff line number	Diff line change
`@@ -319,7 +319,7 @@ SEXP R_PrintTree(`
`319`	`319`	`Rf_error("Invalid tree index.");`
`320`	`320`	`}`
`321`	`321`
`322`		`- char *filename0 = CHAR(STRING_ELT(filename, 0));`
	`322`	`+ char filename0 = (char ) CHAR(STRING_ELT(filename, 0));`
`323`	`323`	`WriteTreeDotFile(forest->forest[treeIndex0], filename0);`
`324`	`324`
`325`	`325`	`return R_NilValue;`