//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]); }