//private void txtboxResults_TextChanged(object sender, EventArgs e)
//{
// if (String.IsNullOrEmpty(txtboxResults.Text))
// {
// btnClearResults.Enabled = false;
// }
// else
// {
// btnClearResults.Enabled = true;
// }
//}
private void btnSubmit_Click(object sender, EventArgs e)
{
try
{
SymbolicExpression expression = MyFunctions._engine.Evaluate(txtboxRCommands.Text.Trim());
if (expression == null)
{
return;
}
CharacterVector vector = expression.AsCharacter();
foreach (var sSubmitThis in vector)
{
//if (sSubmitThis is string)
{
Console.WriteLine(sSubmitThis);
}
}
}
catch
{
}
//catch (Exception ex)
//{
// MessageBox.Show(ex.StackTrace);
//}
}
private void btnSubmit_Click(object sender, EventArgs e)
{
tabControl1.SelectedIndex = 1; // Sets focus to the log tab
try
{
SymbolicExpression expression = MyFunctions._engine.Evaluate(tbCode.Text.Trim());
if (expression == null)
{
return;
}
CharacterVector vector = expression.AsCharacter();
foreach (var sSubmitThis in vector)
{
{
Console.WriteLine(sSubmitThis);
tabControl1.SelectedIndex = 1;
}
}
}
catch (Exception ex)
{
Console.WriteLine("Problem running your R program: " + ex.Message);
}
}
private static object[]? VectorToArray(SymbolicExpression sexp)
{
RequireTrue(sexp.IsVector());
return(sexp.Type switch
{
SymbolicExpressionType.CharacterVector => sexp.AsCharacter().ToArray(),
SymbolicExpressionType.IntegerVector => sexp.AsInteger().ToArray().Cast <object>().ToArray(),
SymbolicExpressionType.LogicalVector => sexp.AsLogical().ToArray().Cast <object>().ToArray(),
SymbolicExpressionType.NumericVector => sexp.AsNumeric().ToArray().Cast <object>().ToArray(),
_ => default,
protected override void Execute(CodeActivityContext context)
{
try
{
SymbolicExpression input = this.Input.Get(context);
this.Output.Set(context, input.AsCharacter());
}
catch (Exception e)
{
throw e;
}
}
static void PrintResult(SymbolicExpression result)
{
var numericResult = result.AsNumeric();
Console.WriteLine("Size of numeric vector: {0}", numericResult.Length);
Console.WriteLine("First vector result as numeric: {0}", numericResult.FirstOrDefault());
var characterResult = result.AsCharacter();
Console.WriteLine("Size of result as character vector: {0}", characterResult.Length);
Console.WriteLine("First vector result as character: {0}", characterResult.FirstOrDefault());
Console.WriteLine("");
}
//logical, integer, real, complex, character, list?, raw?
private static IEnumerable <string> MapCharacterVector(SymbolicExpression sexp)
{
var mapped = sexp.AsCharacter().Select(s => s.ToString());
return(mapped);
}
private static IConverter ConvertFromCharacterVector(SymbolicExpression sexp)
{
return(sexp.IsMatrix()
? (IConverter) new MatrixConverter <string>(sexp.AsCharacterMatrix())
: new VectorConverter <string>(sexp.AsCharacter()));
}
//logical, integer, real, complex, character, list?, raw?
private static IEnumerable<string> MapCharacterVector(SymbolicExpression sexp)
{
var mapped = sexp.AsCharacter().Select(s => s.ToString());
return mapped;
}
private void checkInvoke(SymbolicExpression result, string expected)
{
Assert.AreEqual(expected, result.AsCharacter().ToArray()[0]);
}