actally fix #110

lageIBUSP · May 16, 2024 · e860c45 · e860c45
1 parent a4e8d1c
commit e860c45
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/docker/R/corretor.R b/docker/R/corretor.R
@@ -37,10 +37,11 @@ corretoR <- function (id.exerc, texto) {
 		if(!no.results(precondi)) eval(parse(text=precondi), envir=corrEnv);
 
 		# Executa o texto da resposta
-		# Evita que o codigo retorne matrizes
-		texto <- paste0(texto,";TRUE;");
+		getError <- try(eval(
+			c(parse(text=texto),"TRUE"), # Evita que o codigo retorne matrizes
+			envir=corrEnv
+		));
 		# try pega erros de sintaxe
-		getError <- try(eval(parse(text=texto), envir=corrEnv));
 		if (class(getError) == "try-error") return (NULL);
 
 		# Executa os testes cadastrados, sequencialmente