public async Task GridViewerExcludeTest(string expr) { await HostScript.InitializeAsync(); var e = Substitute.For <IDataObjectEvaluator>(); var viewer = new GridViewer(Services.GetService <ICoreShell>(), e); viewer.CanView(null).Should().BeFalse(); var session = HostScript.Session; await session.ExecuteAsync($"x <- {expr}"); var value = await session.EvaluateAndDescribeAsync("x", AllFields, null); viewer.CanView(value).Should().BeFalse(); }
public async Task GridViewerExcludeTest(string expr) { var e = Substitute.For <IDataObjectEvaluator>(); var viewer = new GridViewer(_aggregator, e); viewer.CanView(null).Should().BeFalse(); using (var hostScript = new RHostScript(_sessionProvider)) { var session = hostScript.Session; await session.ExecuteAsync($"x <- {expr}"); var value = await session.EvaluateAndDescribeAsync("x", AllFields, null); viewer.CanView(value).Should().BeFalse(); } }
public async Task GridViewerDimLengthTest(string cast) { var e = Substitute.For <IDataObjectEvaluator>(); var viewer = new GridViewer(_aggregator, e); viewer.CanView(null).Should().BeFalse(); using (var hostScript = new RHostScript(_sessionProvider)) { var session = hostScript.Session; await session.ExecuteAsync($"x <- {cast}(c())"); var value = await session.EvaluateAndDescribeAsync("x", AllFields, null); viewer.CanView(value).Should().BeFalse(); await session.ExecuteAsync($"x <- {cast}(1)"); value = await session.EvaluateAndDescribeAsync("x", AllFields, null); viewer.CanView(value).Should().BeFalse(); value = await session.EvaluateAndDescribeAsync("dim(x) <- 1", AllFields, null); value = await session.EvaluateAndDescribeAsync("x", AllFields, null); viewer.CanView(value).Should().BeFalse(); value = await session.EvaluateAndDescribeAsync("dim(x) <- c(1, 1)", AllFields, null); value = await session.EvaluateAndDescribeAsync("x", AllFields, null); viewer.CanView(value).Should().BeTrue(); value = await session.EvaluateAndDescribeAsync("dim(x) <- c(1, 1, 1)", AllFields, null); value = await session.EvaluateAndDescribeAsync("x", AllFields, null); viewer.CanView(value).Should().BeFalse(); await session.ExecuteAsync($"x <- {cast}(1:100)"); value = await session.EvaluateAndDescribeAsync("x", AllFields, null); viewer.CanView(value).Should().BeTrue(); await session.ExecuteAsync($"dim(x) <- 100"); value = await session.EvaluateAndDescribeAsync("x", AllFields, null); viewer.CanView(value).Should().BeTrue(); await session.ExecuteAsync($"dim(x) <- c(10, 10)"); value = await session.EvaluateAndDescribeAsync("x", AllFields, null); viewer.CanView(value).Should().BeTrue(); await session.ExecuteAsync($"dim(x) <- c(10, 5, 2)"); value = await session.EvaluateAndDescribeAsync("x", AllFields, null); viewer.CanView(value).Should().BeFalse(); } }
public async Task GridViewerDimLengthTest(string cast) { var e = Substitute.For <IDataObjectEvaluator>(); var viewer = new GridViewer(Services.GetService <ICoreShell>(), e); viewer.CanView(null).Should().BeFalse(); await HostScript.InitializeAsync(); var session = HostScript.Session; await session.ExecuteAsync($"x <- {cast}(c())"); var value = await session.EvaluateAndDescribeAsync("x", AllFields, null); viewer.CanView(value).Should().BeFalse(); await session.ExecuteAsync($"x <- {cast}(1)"); value = await session.EvaluateAndDescribeAsync("x", AllFields, null); viewer.CanView(value).Should().BeFalse(); value = await session.EvaluateAndDescribeAsync("dim(x) <- 1", AllFields, null); value = await session.EvaluateAndDescribeAsync("x", AllFields, null); viewer.CanView(value).Should().BeFalse(); value = await session.EvaluateAndDescribeAsync("dim(x) <- c(1, 1)", AllFields, null); value = await session.EvaluateAndDescribeAsync("x", AllFields, null); viewer.CanView(value).Should().BeTrue(); value = await session.EvaluateAndDescribeAsync("dim(x) <- c(1, 1, 1)", AllFields, null); value = await session.EvaluateAndDescribeAsync("x", AllFields, null); viewer.CanView(value).Should().BeFalse(); await session.ExecuteAsync($"x <- {cast}(1:100)"); value = await session.EvaluateAndDescribeAsync("x", AllFields, null); viewer.CanView(value).Should().BeTrue(); await session.ExecuteAsync($"dim(x) <- 100"); value = await session.EvaluateAndDescribeAsync("x", AllFields, null); viewer.CanView(value).Should().BeTrue(); await session.ExecuteAsync($"dim(x) <- c(10, 10)"); value = await session.EvaluateAndDescribeAsync("x", AllFields, null); viewer.CanView(value).Should().BeTrue(); await session.ExecuteAsync($"dim(x) <- c(10, 5, 2)"); value = await session.EvaluateAndDescribeAsync("x", AllFields, null); viewer.CanView(value).Should().BeFalse(); }