public IInteractiveWindowVisualComponent Create(int instanceId, IInteractiveEvaluator evaluator, IRSessionProvider sessionProvider) {
var tb = new TextBufferMock(string.Empty, RContentTypeDefinition.ContentType);
var container = new VisualComponentContainerStub<RInteractiveWindowVisualComponent>();
var component = new RInteractiveWindowVisualComponent(new InteractiveWindowMock(new WpfTextViewMock(tb), evaluator), container, sessionProvider, _shell);
container.Component = component;
return component;
}
public ConnectionManager(IStatusBar statusBar, IRSettings settings, IRInteractiveWorkflow interactiveWorkflow) {
_statusBar = statusBar;
_sessionProvider = interactiveWorkflow.RSessions;
_settings = settings;
_interactiveWorkflow = interactiveWorkflow;
_shell = interactiveWorkflow.Shell;
_securityService = _shell.Services.Security;
_statusBarViewModel = new ConnectionStatusBarViewModel(this, interactiveWorkflow.Shell);
_hostLoadIndicatorViewModel = new HostLoadIndicatorViewModel(_sessionProvider, interactiveWorkflow.Shell);
_disposableBag = DisposableBag.Create<ConnectionManager>()
.Add(_statusBarViewModel)
.Add(_hostLoadIndicatorViewModel)
.Add(() => _sessionProvider.BrokerStateChanged -= BrokerStateChanged)
.Add(() => _interactiveWorkflow.ActiveWindowChanged -= ActiveWindowChanged);
_sessionProvider.BrokerStateChanged += BrokerStateChanged;
_interactiveWorkflow.ActiveWindowChanged += ActiveWindowChanged;
// Get initial values
var connections = CreateConnectionList();
_connections = new ConcurrentDictionary<string, IConnection>(connections);
UpdateRecentConnections(save: false);
CompleteInitializationAsync().DoNotWait();
}
public HostLoadIndicatorViewModel(IRSessionProvider sessionProvider, ICoreShell shell) {
_sessionProvider = sessionProvider;
_shell = shell;
_disposableBag = DisposableBag.Create<HostLoadIndicatorViewModel>()
.Add(() => _sessionProvider.HostLoadChanged -= OnHostLoadChanged);
_sessionProvider.HostLoadChanged += OnHostLoadChanged;
}
public VsRInteractiveWorkflowProvider(IRSessionProvider sessionProvider
, IRHistoryProvider historyProvider
, IActiveWpfTextViewTracker activeTextViewTracker
, IDebuggerModeTracker debuggerModeTracker) {
_sessionProvider = sessionProvider;
_historyProvider = historyProvider;
_activeTextViewTracker = activeTextViewTracker;
_debuggerModeTracker = debuggerModeTracker;
}
public CurrentDirectoryTest() {
var connectionsProvider = VsAppShell.Current.ExportProvider.GetExportedValue<IConnectionManagerProvider>();
var historyProvider = VsAppShell.Current.ExportProvider.GetExportedValue<IRHistoryProvider>();
var packagesProvider = VsAppShell.Current.ExportProvider.GetExportedValue<IRPackageManagerProvider>();
var plotsProvider = VsAppShell.Current.ExportProvider.GetExportedValue<IRPlotManagerProvider>();
var activeTextViewTracker = new ActiveTextViewTrackerMock(string.Empty, string.Empty);
var debuggerModeTracker = new TestDebuggerModeTracker();
_interactiveWorkflow = UIThreadHelper.Instance.Invoke(() => new RInteractiveWorkflow(
connectionsProvider, historyProvider, packagesProvider, plotsProvider, activeTextViewTracker,
debuggerModeTracker, VsAppShell.Current, RToolsSettings.Current));
_sessionProvider = _interactiveWorkflow.RSessions;
}
public RHostScript(IRSessionProvider sessionProvider, IRHostClientApp clientApp = null) {
SessionProvider = sessionProvider;
Session = SessionProvider.GetOrCreate(GuidList.InteractiveWindowRSessionGuid, clientApp ?? new RHostClientTestApp());
Session.IsHostRunning.Should().BeFalse();
Session.StartHostAsync(new RHostStartupInfo {
Name = "RHostScript",
RBasePath = RToolsSettings.Current.RBasePath,
RHostCommandLineArguments = RToolsSettings.Current.RCommandLineArguments,
CranMirrorName = RToolsSettings.Current.CranMirror
}, 50000).Wait();
}
public IInteractiveWindowVisualComponent Create(int instanceId, IInteractiveEvaluator evaluator, IRSessionProvider sessionProvider) {
VsAppShell.Current.AssertIsOnMainThread();
var vsWindow = _vsInteractiveWindowFactoryLazy.Value.Create(RGuidList.ReplInteractiveWindowProviderGuid, instanceId, string.Empty, evaluator);
var contentType = _contentTypeRegistryService.GetContentType(RContentTypeDefinition.ContentType);
vsWindow.SetLanguage(RGuidList.RLanguageServiceGuid, contentType);
var toolWindow = (ToolWindowPane)vsWindow;
var componentContainer = new VisualComponentToolWindowAdapter<IInteractiveWindowVisualComponent>(toolWindow);
var component = new RInteractiveWindowVisualComponent(vsWindow.InteractiveWindow, componentContainer, sessionProvider, _shell);
componentContainer.Component = component;
return component;
}
public static IRInteractiveWorkflowProvider Create(IRSessionProvider sessionProvider = null
, IRHistoryProvider historyProvider = null
, IActiveWpfTextViewTracker activeTextViewTracker = null
, IDebuggerModeTracker debuggerModeTracker = null
, ICoreShell shell = null
, IRSettings settings = null) {
sessionProvider = sessionProvider ?? new RSessionProviderMock();
historyProvider = historyProvider ?? RHistoryProviderStubFactory.CreateDefault();
activeTextViewTracker = activeTextViewTracker ?? new ActiveTextViewTrackerMock(string.Empty, RContentTypeDefinition.ContentType);
debuggerModeTracker = debuggerModeTracker ?? new VsDebuggerModeTracker();
return new TestRInteractiveWorkflowProvider(sessionProvider, historyProvider, activeTextViewTracker, debuggerModeTracker, shell ?? VsAppShell.Current, settings ?? RToolsSettings.Current);
}
public TestRInteractiveWorkflowProvider(IRSessionProvider sessionProvider
, IRHistoryProvider historyProvider
, IActiveWpfTextViewTracker activeTextViewTracker
, IDebuggerModeTracker debuggerModeTracker
, ICoreShell shell
, IRSettings settings) {
_sessionProvider = sessionProvider;
_historyProvider = historyProvider;
_activeTextViewTracker = activeTextViewTracker;
_debuggerModeTracker = debuggerModeTracker;
_shell = shell;
_settings = settings;
}
public RInteractiveEvaluator(IRSessionProvider sessionProvider, IRSession session, IRHistory history, IConnectionManager connections, ICoreShell coreShell, IRSettings settings, IConsole console) {
History = history;
Session = session;
Session.Output += SessionOnOutput;
Session.Disconnected += SessionOnDisconnected;
Session.BeforeRequest += SessionOnBeforeRequest;
Session.AfterRequest += SessionOnAfterRequest;
_sessionProvider = sessionProvider;
_connections = connections;
_coreShell = coreShell;
_settings = settings;
_console = console;
_evaluatorRequest = new CountdownDisposable();
}
public RInteractiveWindowVisualComponent(IInteractiveWindow interactiveWindow, IVisualComponentContainer<IInteractiveWindowVisualComponent> container, IRSessionProvider sessionProvider, ICoreShell shell) {
InteractiveWindow = interactiveWindow;
Container = container;
_sessionProvider = sessionProvider;
_shell = shell;
sessionProvider.BrokerStateChanged += OnBrokerChanged;
var textView = interactiveWindow.TextView;
Controller = ServiceManagerBase.GetService<ICommandTarget>(textView);
Control = textView.VisualElement;
interactiveWindow.Properties.AddProperty(typeof(IInteractiveWindowVisualComponent), this);
UpdateWindowTitle(_sessionProvider.IsConnected);
}
public async Task<IEditorScript> StartScript(IExportProvider exportProvider, string text, string filename, string contentType, IRSessionProvider sessionProvider) {
var shell = exportProvider.GetExportedValue<ICoreShell>();
var coreEditor = await InUI(() => new CoreEditor(shell, text, filename, contentType));
var containerDisposable = await AddToHost(coreEditor.Control);
if (sessionProvider != null) {
IntelliSenseRSession.HostStartTimeout = 10000;
HostScript = new RHostScript(sessionProvider);
PackageIndex = exportProvider.GetExportedValue<IPackageIndex>();
await PackageIndex.BuildIndexAsync();
FunctionIndex = exportProvider.GetExportedValue<IFunctionIndex>();
await FunctionIndex.BuildIndexAsync();
}
return new EditorScript(exportProvider, coreEditor, containerDisposable);
}
public static IRInteractiveWorkflowProvider Create(IRSessionProvider sessionProvider = null
, IRHistoryProvider historyProvider = null
, IRPackageManagerProvider packagesProvider = null
, IRPlotManagerProvider plotsProvider = null
, IActiveWpfTextViewTracker activeTextViewTracker = null
, IDebuggerModeTracker debuggerModeTracker = null
, ICoreShell shell = null
, IRSettings settings = null)
{
sessionProvider = sessionProvider ?? new RSessionProviderMock();
historyProvider = historyProvider ?? RHistoryProviderStubFactory.CreateDefault();
packagesProvider = packagesProvider ?? RPackageManagerProviderStubFactory.CreateDefault();
plotsProvider = plotsProvider ?? RPlotManagerProviderStubFactory.CreateDefault();
activeTextViewTracker = activeTextViewTracker ?? new ActiveTextViewTrackerMock(string.Empty, RContentTypeDefinition.ContentType);
debuggerModeTracker = debuggerModeTracker ?? new VsDebuggerModeTracker();
return(new TestRInteractiveWorkflowProvider(sessionProvider, historyProvider, packagesProvider, plotsProvider, activeTextViewTracker, debuggerModeTracker, shell ?? VsAppShell.Current, settings ?? RToolsSettings.Current));
}
private async Task SetMirrorToSession()
{
IRSessionProvider sessionProvider = VsAppShell.Current.ExportProvider.GetExportedValue <IRSessionProvider>();
var sessions = sessionProvider.GetSessions();
string mirrorName = RToolsSettings.Current.CranMirror;
string mirrorUrl = CranMirrorList.UrlFromName(mirrorName);
foreach (var s in sessions.Where(s => s.IsHostRunning))
{
try {
using (var eval = await s.BeginEvaluationAsync()) {
await eval.SetVsCranSelectionAsync(mirrorUrl);
}
} catch (RException) {
} catch (MessageTransportException) {
} catch (OperationCanceledException) {
}
}
}
public VsRInteractiveWorkflowProvider(IRSessionProvider sessionProvider
, IConnectionManagerProvider connectionsProvider
, IRHistoryProvider historyProvider
, IRPackageManagerProvider packagesProvider
, IRPlotManagerProvider plotsProvider
, IActiveWpfTextViewTracker activeTextViewTracker
, IDebuggerModeTracker debuggerModeTracker
, ICoreShell shell
, IWorkspaceServices wss)
{
_sessionProvider = sessionProvider;
_connectionsProvider = connectionsProvider;
_historyProvider = historyProvider;
_packagesProvider = packagesProvider;
_plotsProvider = plotsProvider;
_activeTextViewTracker = activeTextViewTracker;
_debuggerModeTracker = debuggerModeTracker;
_shell = shell;
_wss = wss;
}
public RPackageManager(IRSettings settings, IRInteractiveWorkflow interactiveWorkflow, Action dispose)
{
_sessionProvider = interactiveWorkflow.RSessions;
_settings = settings;
_interactiveWorkflow = interactiveWorkflow;
_loadedPackagesEvent = new DirtyEventSource(this);
_installedPackagesEvent = new DirtyEventSource(this);
_availablePackagesEvent = new DirtyEventSource(this);
_disposableBag = DisposableBag.Create <RPackageManager>(dispose)
.Add(() => _interactiveWorkflow.RSessions.BrokerChanged -= BrokerChanged)
.Add(() => _interactiveWorkflow.RSession.Mutated -= RSessionMutated)
.Add(() => _interactiveWorkflow.RSession.PackagesInstalled -= PackagesInstalled)
.Add(() => _interactiveWorkflow.RSession.PackagesRemoved -= PackagesRemoved);
_interactiveWorkflow.RSessions.BrokerChanged += BrokerChanged;
_interactiveWorkflow.RSession.Mutated += RSessionMutated;
_interactiveWorkflow.RSession.PackagesInstalled += PackagesInstalled;
_interactiveWorkflow.RSession.PackagesRemoved += PackagesRemoved;
}
public ConnectionManager(IStatusBar statusBar, IRSettings settings, IRInteractiveWorkflowVisual interactiveWorkflow)
{
_statusBar = statusBar;
_sessionProvider = interactiveWorkflow.RSessions;
_settings = settings;
_interactiveWorkflow = interactiveWorkflow;
_shell = interactiveWorkflow.Shell;
_securityService = _shell.GetService <ISecurityService>();
_log = _shell.GetService <IActionLog>();
_installationService = _shell.GetService <IRInstallationService>();
_statusBarViewModel = new ConnectionStatusBarViewModel(this, interactiveWorkflow.Shell.Services);
if (settings.ShowHostLoadMeter)
{
_hostLoadIndicatorViewModel =
new HostLoadIndicatorViewModel(_sessionProvider, interactiveWorkflow.Shell.MainThread());
}
_disposableBag = DisposableBag.Create <ConnectionManager>()
.Add(_statusBarViewModel)
.Add(_hostLoadIndicatorViewModel ?? Disposable.Empty)
.Add(() => _sessionProvider.BrokerStateChanged -= BrokerStateChanged)
.Add(() => _interactiveWorkflow.RSession.Connected -= SessionConnected)
.Add(() => _interactiveWorkflow.RSession.Disconnected -= SessionDisconnected)
.Add(() => _interactiveWorkflow.ActiveWindowChanged -= ActiveWindowChanged);
_sessionProvider.BrokerStateChanged += BrokerStateChanged;
_interactiveWorkflow.RSession.Connected += SessionConnected;
_interactiveWorkflow.RSession.Disconnected += SessionDisconnected;
_interactiveWorkflow.ActiveWindowChanged += ActiveWindowChanged;
// Get initial values
var connections = CreateConnectionList();
_connections = new ConcurrentDictionary <string, IConnection>(connections);
UpdateRecentConnections(save: false);
CompleteInitializationAsync().DoNotWait();
}
public RInteractiveWorkflow(IRSessionProvider sessionProvider
, IRHistoryProvider historyProvider
, IActiveWpfTextViewTracker activeTextViewTracker
, IDebuggerModeTracker debuggerModeTracker
, IRHostClientApp hostClientApp
, ICoreShell coreShell
, IRSettings settings
, Action onDispose) {
_activeTextViewTracker = activeTextViewTracker;
_debuggerModeTracker = debuggerModeTracker;
_settings = settings;
_coreShell = coreShell;
_onDispose = onDispose;
RSession = sessionProvider.GetOrCreate(GuidList.InteractiveWindowRSessionGuid, hostClientApp);
History = historyProvider.CreateRHistory(this);
_operations = new RInteractiveWorkflowOperations();
_activeTextViewTracker.LastActiveTextViewChanged += LastActiveTextViewChanged;
RSession.Disconnected += RSessionDisconnected;
}
public RInteractiveWorkflow(IRSessionProvider sessionProvider
, IRHistoryProvider historyProvider
, IActiveWpfTextViewTracker activeTextViewTracker
, IDebuggerModeTracker debuggerModeTracker
, IRHostClientApp hostClientApp
, ICoreShell coreShell
, IRSettings settings
, Action onDispose)
{
_activeTextViewTracker = activeTextViewTracker;
_debuggerModeTracker = debuggerModeTracker;
_settings = settings;
_coreShell = coreShell;
_onDispose = onDispose;
RSession = sessionProvider.GetOrCreate(GuidList.InteractiveWindowRSessionGuid, hostClientApp);
History = historyProvider.CreateRHistory(this);
_operations = new RInteractiveWorkflowOperations();
_activeTextViewTracker.LastActiveTextViewChanged += LastActiveTextViewChanged;
RSession.Disconnected += RSessionDisconnected;
}
public TestRInteractiveWorkflowProvider(IRSessionProvider sessionProvider
, IConnectionManagerProvider connectionManagerProvider
, IRHistoryProvider historyProvider
, IRPackageManagerProvider packagesProvider
, IRPlotManagerProvider plotsProvider
, IActiveWpfTextViewTracker activeTextViewTracker
, IDebuggerModeTracker debuggerModeTracker
// Required for the tests that create TestRInteractiveWorkflowProvider explicitly
, [Import(AllowDefault = true)] IRHostBrokerConnector brokerConnector
, ICoreShell shell
, IRSettings settings)
{
_sessionProvider = sessionProvider;
_connectionManagerProvider = connectionManagerProvider;
_historyProvider = historyProvider;
_packagesProvider = packagesProvider;
_plotsProvider = plotsProvider;
_activeTextViewTracker = activeTextViewTracker;
_debuggerModeTracker = debuggerModeTracker;
_brokerConnector = brokerConnector;
_shell = shell;
_settings = settings;
}
public ConnectionManager(IStatusBar statusBar, IRSettings settings, IRInteractiveWorkflow interactiveWorkflow)
{
_statusBar = statusBar;
_sessionProvider = interactiveWorkflow.RSessions;
_settings = settings;
_shell = interactiveWorkflow.Shell;
_statusBarViewModel = new ConnectionStatusBarViewModel(this, interactiveWorkflow.Shell);
_disposableBag = DisposableBag.Create <ConnectionManager>()
.Add(_statusBarViewModel)
.Add(() => _sessionProvider.BrokerStateChanged -= BrokerStateChanged);
_sessionProvider.BrokerStateChanged += BrokerStateChanged;
// Get initial values
var userConnections = CreateConnectionList();
_userConnections = new ConcurrentDictionary <Uri, IConnection>(userConnections);
UpdateRecentConnections(save: false);
CompleteInitializationAsync().DoNotWait();
}
public RInteractiveWorkflow(IRSessionProvider sessionProvider
, IRHistoryProvider historyProvider
, IRPackageManagerProvider packagesProvider
, IActiveWpfTextViewTracker activeTextViewTracker
, IDebuggerModeTracker debuggerModeTracker
, ICoreShell coreShell
, IRSettings settings
, Action onDispose)
{
_activeTextViewTracker = activeTextViewTracker;
_debuggerModeTracker = debuggerModeTracker;
_settings = settings;
_onDispose = onDispose;
Shell = coreShell;
RSession = sessionProvider.GetOrCreate(GuidList.InteractiveWindowRSessionGuid);
History = historyProvider.CreateRHistory(this);
Packages = packagesProvider.CreateRPackageManager(sessionProvider, settings, this);
_operations = new RInteractiveWorkflowOperations(this, _debuggerModeTracker, Shell);
_activeTextViewTracker.LastActiveTextViewChanged += LastActiveTextViewChanged;
RSession.Disconnected += RSessionDisconnected;
}
public RInteractiveWorkflow(IRSessionProvider sessionProvider
, IConnectionManagerProvider connectionsProvider
, IRHistoryProvider historyProvider
, IRPackageManagerProvider packagesProvider
, IRPlotManagerProvider plotsProvider
, IActiveWpfTextViewTracker activeTextViewTracker
, IDebuggerModeTracker debuggerModeTracker
, IRHostBrokerConnector brokerConnector
, ICoreShell coreShell
, IRSettings settings
, IWorkspaceServices wss
, Action onDispose)
{
_activeTextViewTracker = activeTextViewTracker;
_debuggerModeTracker = debuggerModeTracker;
_settings = settings;
_wss = wss;
_onDispose = onDispose;
Shell = coreShell;
BrokerConnector = brokerConnector;
RSession = sessionProvider.GetOrCreate(GuidList.InteractiveWindowRSessionGuid, brokerConnector);
Connections = connectionsProvider.CreateConnectionManager(this);
History = historyProvider.CreateRHistory(this);
Packages = packagesProvider.CreateRPackageManager(sessionProvider, settings, this);
Plots = plotsProvider.CreatePlotManager(settings, this);
_operations = new RInteractiveWorkflowOperations(this, _debuggerModeTracker, Shell);
_activeTextViewTracker.LastActiveTextViewChanged += LastActiveTextViewChanged;
RSession.Disconnected += RSessionDisconnected;
_debuggerModeTracker.EnterBreakMode += DebuggerEnteredBreakMode;
_debuggerModeTracker.LeaveBreakMode += DebuggerLeftBreakMode;
}
public IntelliSenseRSession(ICoreShell coreShell, IRInteractiveWorkflowProvider workflowProvider) {
_coreShell = coreShell;
_workflow = workflowProvider.GetOrCreate();
_sessionProvider = _workflow.RSessions;
}
private void DisposeInstance(IRSessionProvider sessionProvider)
{
sessionProvider.Dispose();
_instanceLazy = null;
}
public SmartIndentTest(IExportProvider exportProvider, EditorHostMethodFixture editorHost)
{
_exportProvider = exportProvider;
_sessionProvider = UIThreadHelper.Instance.Invoke(() => _exportProvider.GetExportedValue <IRInteractiveWorkflowProvider>().GetOrCreate()).RSessions;
_editorHost = editorHost;
}
public LocalBrokerClient(string name, BrokerConnectionInfo connectionInfo, IServiceContainer services, IConsole console, IRSessionProvider sessionProvider)
: base(name, connectionInfo, _credentials, console, services, sessionProvider)
{
_rHome = connectionInfo.Uri.LocalPath;
_services = services;
IsVerified = true;
}
public ValuesTest(TestMethodFixture testMethod)
{
_testMethod = testMethod.MethodInfo;
_sessionProvider = new RSessionProvider();
_session = _sessionProvider.GetOrCreate(Guid.NewGuid(), new RHostClientTestApp());
}
public ViewersTest() {
_aggregator = VsAppShell.Current.ExportProvider.GetExportedValue<IObjectDetailsViewerAggregator>();
_workflow = VsAppShell.Current.ExportProvider.GetExportedValue<IRInteractiveWorkflowProvider>().GetOrCreate();
_sessionProvider = _workflow.RSessions;
}
public OpenRDataVsUiHierarchyWindowCommandGroupHandler(UnconfiguredProject unconfiguredProject, IRSessionProvider sessionProvider)
: base(unconfiguredProject, sessionProvider, (long)VSConstants.VsUIHierarchyWindowCmdIds.UIHWCMDID_DoubleClick, (long)VSConstants.VsUIHierarchyWindowCmdIds.UIHWCMDID_EnterKey) {}
public Task<IEditorScript> StartScript(IExportProvider exportProvider, string contentType, IRSessionProvider sessionProvider) =>
StartScript(exportProvider, string.Empty, "filename", contentType, sessionProvider);
public VsRHostScript(IRSessionProvider sessionProvider, IRSessionCallback clientApp = null)
: base(sessionProvider, clientApp) { }
public VsRHostScript(IRSessionProvider sessionProvider, bool async, IRSessionCallback clientApp)
: base(sessionProvider, async, clientApp) { }
public MarkdownRCompletionTest(REditorApplicationMefCatalogFixture catalogFixture, EditorHostMethodFixture editorHost) {
_exportProvider = catalogFixture.CreateExportProvider();
_sessionProvider = UIThreadHelper.Instance.Invoke(() => _exportProvider.GetExportedValue<IRInteractiveWorkflowProvider>().GetOrCreate()).RSessions;
_editorHost = editorHost;
}
public RHostScript(IRSessionProvider sessionProvider, bool async, IRSessionCallback clientApp) {
SessionProvider = sessionProvider;
_clientApp = clientApp;
}
public OpenRDataVsStd97CommandGroupHandler(UnconfiguredProject unconfiguredProject, IRSessionProvider sessionProvider)
: base(unconfiguredProject, sessionProvider, (long)VSConstants.VSStd97CmdID.Open) {}
public IRPlotManager CreatePlotManager(IRSessionProvider sessionProvider, IRSettings settings, IRInteractiveWorkflow interactiveWorkflow)
{
return(new RPlotManager(sessionProvider, settings, interactiveWorkflow, () => { }));
}
public PackageIndexTest(RSupportMefCatalogFixture catalogFixture) {
_exportProvider = catalogFixture.CreateExportProvider();
_shell = _exportProvider.GetExportedValue<ICoreShell>();
_workflowProvider = _exportProvider.GetExportedValue<IRInteractiveWorkflowProvider>();
_sessionProvider = UIThreadHelper.Instance.Invoke(() => _workflowProvider.GetOrCreate()).RSessions;
}
public OpenRDataCommandGroupHandler(UnconfiguredProject unconfiguredProject, IRSessionProvider sessionProvider, params long[] commandIds) {
_unconfiguredProject = unconfiguredProject;
_session = sessionProvider.GetInteractiveWindowRSession();
_commandIds = commandIds;
}
public PackageIndexTest(IServiceContainer services)
{
_coreShell = services.GetService <ICoreShell>();
_workflowProvider = services.GetService <IRInteractiveWorkflowProvider>();
_sessionProvider = UIThreadHelper.Instance.Invoke(() => _workflowProvider.GetOrCreate()).RSessions;
}
public InteractiveTest()
{
SessionProvider = VsAppShell.Current.ExportProvider.GetExportedValue <IRSessionProvider>();
}
public IntellisenseTest(REditorApplicationMefCatalogFixture catalog, BrokerFixture broker, EditorHostMethodFixture editorHost) : base(catalog)
{
_editorHost = editorHost;
_broker = broker;
_sessionProvider = _exportProvider.GetExportedValue <IRSessionProvider>();
}
public EvaluationWrapperTest(BrokerFixture broker)
{
_broker = broker;
_sessionProvider = VsAppShell.Current.ExportProvider.GetExportedValue <IRSessionProvider>();
}
public BlobsTest(TestMethodFixture testMethod) {
_testMethod = testMethod.MethodInfo;
_sessionProvider = new RSessionProvider(TestCoreServices.CreateReal());
_session = _sessionProvider.GetOrCreate(Guid.NewGuid());
}
public IInteractiveWindowVisualComponent Create(int instanceId, IInteractiveEvaluator evaluator, IRSessionProvider sessionProvider)
{
VsAppShell.Current.AssertIsOnMainThread();
IVsInteractiveWindow vsWindow;
var vsf2 = _vsInteractiveWindowFactoryLazy.Value as IVsInteractiveWindowFactory2; // Temporary for VS 2017 RC2
vsWindow = vsf2.Create(RGuidList.ReplInteractiveWindowProviderGuid, instanceId, string.Empty, evaluator,
0, RGuidList.RCmdSetGuid, RPackageCommandId.replWindowToolBarId, null);
var contentType = _contentTypeRegistryService.GetContentType(RContentTypeDefinition.ContentType);
vsWindow.SetLanguage(RGuidList.RLanguageServiceGuid, contentType);
var toolWindow = (ToolWindowPane)vsWindow;
var componentContainer = new VisualComponentToolWindowAdapter <IInteractiveWindowVisualComponent>(toolWindow);
var component = new RInteractiveWindowVisualComponent(vsWindow.InteractiveWindow, componentContainer, sessionProvider, _shell);
componentContainer.Component = component;
RegisterFocusPreservingWindow(toolWindow);
return(component);
}
public RHostScript(IRSessionProvider sessionProvider, IRSessionCallback clientApp = null) {
SessionProvider = sessionProvider;
_clientApp = clientApp;
InitializeAsync().Wait();
}
public ValuesTest(IServiceContainer services, IRemoteBroker remoteBroker, TestMethodFixture testMethod)
{
_remoteBroker = remoteBroker;
_sessionProvider = new RSessionProvider(services);
_session = _sessionProvider.GetOrCreate(testMethod.FileSystemSafeName);
}
public CallStackTest(TestMethodFixture testMethod)
{
_testMethod = testMethod.MethodInfo;
_sessionProvider = new RSessionProvider(TestCoreServices.CreateReal());
_session = _sessionProvider.GetOrCreate(Guid.NewGuid());
}
public BreakpointsTest(IServiceContainer services, TestMethodFixture testMethod)
{
_sessionProvider = new RSessionProvider(services);
_session = _sessionProvider.GetOrCreate(testMethod.FileSystemSafeName);
}
public RInteractiveEvaluatorTest() {
_sessionProvider = VsAppShell.Current.ExportProvider.GetExportedValue<IRSessionProvider>();
}
public MarkdownRCompletionTest(IServiceContainer services, EditorHostMethodFixture editorHost)
{
_services = services;
_sessionProvider = UIThreadHelper.Instance.Invoke(() => _services.GetService <IRInteractiveWorkflowProvider>().GetOrCreate()).RSessions;
_editorHost = editorHost;
}
public REnvironmentProviderTest(TestMethodFixture testMethod)
{
_testMethod = testMethod.MethodInfo;
_sessionProvider = new RSessionProvider();
_session = _sessionProvider.GetOrCreate(Guid.NewGuid());
}
public DebugReplTest(TestMethodFixture testMethod) {
_testMethod = testMethod.MethodInfo;
_sessionProvider = new RSessionProvider();
_session = _sessionProvider.GetOrCreate(Guid.NewGuid(), new RHostClientTestApp());
}
public InteractiveTest() {
var workflow = VsAppShell.Current.ExportProvider.GetExportedValue<IRInteractiveWorkflowProvider>().GetOrCreate();
SessionProvider = workflow.RSessions;
}
public DebugReplTest(TestMethodFixture testMethod)
{
_testMethod = testMethod.MethodInfo;
_sessionProvider = new RSessionProvider();
_session = _sessionProvider.GetOrCreate(Guid.NewGuid());
}
public RInteractiveWindowVisualComponent(IInteractiveWindow interactiveWindow, IVisualComponentContainer <IInteractiveWindowVisualComponent> container, IRSessionProvider sessionProvider, ICoreShell shell)
{
InteractiveWindow = interactiveWindow;
Container = container;
_sessionProvider = sessionProvider;
_shell = shell;
sessionProvider.BrokerStateChanged += OnBrokerChanged;
var textView = interactiveWindow.TextView;
Controller = ServiceManagerBase.GetService <ICommandTarget>(textView);
Control = textView.VisualElement;
interactiveWindow.Properties.AddProperty(typeof(IInteractiveWindowVisualComponent), this);
UpdateWindowTitle(_sessionProvider.IsConnected);
}
public IInteractiveWindowVisualComponent Create(int instanceId, IInteractiveEvaluator evaluator, IRSessionProvider sessionProvider)
{
return(GetOrCreate(instanceId, container => {
_window = InteractiveWindowFactory.CreateWindow(evaluator);
var contentType = _contentTypeRegistryService.GetContentType(RHistoryContentTypeDefinition.ContentType);
_window.Properties[typeof(IContentType)] = contentType;
_window.CurrentLanguageBuffer?.ChangeContentType(contentType, null);
_window.TextView.Options.SetOptionValue(DefaultTextViewHostOptions.ChangeTrackingId, false);
return new RInteractiveWindowVisualComponent(_window, container, sessionProvider, _shell);
}).Component);
}
public CodeViewer(IRSessionProvider sessionProvider, IDataObjectEvaluator evaluator) :
base(evaluator) {
_sessionProvider = sessionProvider;
}
public DebugReplTest(CoreServicesFixture coreServices, TestMethodFixture testMethod)
{
_sessionProvider = new RSessionProvider(coreServices);
_session = _sessionProvider.GetOrCreate(testMethod.FileSystemSafeName);
}
public VariableRHostScript(IRSessionProvider sessionProvider)
: base(sessionProvider) { }
