Strings from Zorro to R

#ifndef <r.h>
	#include <r.h>
#endif

int maxstr2int = 0; //

//works just like stridx() but pushes the strings to the R session as well:
int str2int(string mystring)
{
	mystring = strx(mystring,"/",""); //I think getting rid of "/" is always a good idea
	int index = stridx(mystring)+1; //+1 because the first element in a vector in R has index 1, while in C it has index 0
	
	if(maxstr2int == 0) Rx("Zstrings <- c()"); //create Zstrings Vector in R (it doesn't exist yet if maxstr2int == 0)
	
	if(index > maxstr2int)
	{
		maxstr2int = index;
		string Rstring = strf("Zstrings[%d] <- '%s'", index, mystring);
		Rx(Rstring);
	}
	return index-1; //By subtracting 1, we get the same return value as with stridx() 
}


function run() 
{
	if(!Rstart("", 3))
	{
		print(TO_ANY, "\nError - could not start R session!");
		quit();
	}
	
	while(asset(loop("AUD/JPY","EUR/GBP","GBP/CHF","USD/CHF"))) //just some assets as strings. This will work with any sting (up to 1000 characters)
	{
		int index = str2int(Asset);
		//Access the Strings in R:
		string Rstring = strf("print(paste('String in R:', Zstrings[%d]))", str2int(Asset)+1); //Error when directly passed to Rx()
		printf("\nString in C: %s - Below should be the same:", strxid(str2int(Asset)));
		Rx(Rstring, 3);
		wait(5000); //Output way out of sync, if we continue too fast. You should really use DebugView when you code hybrid scripts with R
	}
}

TmpC[256];

sprintf(TmpC, "PredictionsLong <- predict(ModelLong%i%s", PairID, ", ModelCase[1:1,])")
Rx(TmpC, 0);

#include <r.h>

typedef struct {
	string Asset1;
	string Asset2;
} Pairs;


function run() 
{
	set(PLOTNOW);
	
	StartDate = 2015;
	EndDate = 20190101;
	BarPeriod = 5 * 1440;
	
	static Pairs Pair1;
	
// ---------------------------------------
// Startup and data loading
// ---------------------------------------  
	if(is(INITRUN)) 
	{
		printf("Script is running!\n");
		// start R
		if(!Rstart("Test.R", 2)) 
		{
			print("Error - can't start R session!");
			quit();
		}
	}
	
	Rx("testnames <- testfunction()", 2);

	Pair1.Asset1 = Rd("testnamen[[1]]"); // Doens't work due to Pointer Error - Can't figure it out
        Rv("testnamen", Pair1.Asset1, 2); // No Error but no value in Pair.Asset1

	printf("Test Wert 1: %s\n", Pair1.Asset1);

	watch("!----\n");
}

R Code:

testfunction <- function() {
  return(c("Asset", "Name"))
}