public ReplCommandTest() {
_debuggerModeTracker = new VsDebuggerModeTracker();
_componentContainerFactory = new InteractiveWindowComponentContainerFactoryMock();
_workflowProvider = TestRInteractiveWorkflowProviderFactory.Create(debuggerModeTracker: _debuggerModeTracker);
_workflow = _workflowProvider.GetOrCreate();
}
public RProjectLoadHooks(UnconfiguredProject unconfiguredProject
, [ImportMany("Microsoft.VisualStudio.ProjectSystem.Microsoft.VisualStudio.Shell.Interop.IVsProject")] IEnumerable <Lazy <IVsProject> > cpsIVsProjects
, IProjectLockService projectLockService
, IRInteractiveWorkflowProvider workflowProvider
, IInteractiveWindowComponentContainerFactory componentContainerFactory
, IRToolsSettings toolsSettings
, IThreadHandling threadHandling
, ISurveyNewsService surveyNews
, [Import(AllowDefault = true)] IProjectItemDependencyProvider dependencyProvider
, ICoreShell coreShell)
{
_unconfiguredProject = unconfiguredProject;
_cpsIVsProjects = cpsIVsProjects;
_projectLockService = projectLockService;
_workflowProvider = workflowProvider;
_toolsSettings = toolsSettings;
_threadHandling = threadHandling;
_surveyNews = surveyNews;
_dependencyProvider = dependencyProvider;
_coreShell = coreShell;
_projectDirectory = unconfiguredProject.GetProjectDirectory();
unconfiguredProject.ProjectRenamedOnWriter += ProjectRenamedOnWriter;
unconfiguredProject.ProjectUnloading += ProjectUnloading;
_fileWatcher = new MsBuildFileSystemWatcher(_projectDirectory, "*", 25, 1000, _coreShell.Services.FileSystem, new RMsBuildFileSystemFilter(), coreShell.Services.Log);
_fileWatcher.Error += FileWatcherError;
Project = new FileSystemMirroringProject(unconfiguredProject, projectLockService, _fileWatcher, _dependencyProvider, coreShell.Services.Log);
}
public RProjectLoadHooks(UnconfiguredProject unconfiguredProject
, [ImportMany("Microsoft.VisualStudio.ProjectSystem.Microsoft.VisualStudio.Shell.Interop.IVsProject")] IEnumerable <Lazy <IVsProject> > cpsIVsProjects
, IProjectLockService projectLockService
, IRInteractiveWorkflowProvider workflowProvider
, IInteractiveWindowComponentContainerFactory componentContainerFactory
, IRToolsSettings toolsSettings
, IFileSystem fileSystem
, IThreadHandling threadHandling
, ISurveyNewsService surveyNews)
{
_unconfiguredProject = unconfiguredProject;
_cpsIVsProjects = cpsIVsProjects;
_workflowProvider = workflowProvider;
_componentContainerFactory = componentContainerFactory;
_toolsSettings = toolsSettings;
_fileSystem = fileSystem;
_threadHandling = threadHandling;
_surveyNews = surveyNews;
_projectDirectory = unconfiguredProject.GetProjectDirectory();
unconfiguredProject.ProjectUnloading += ProjectUnloading;
_fileWatcher = new MsBuildFileSystemWatcher(_projectDirectory, "*", 25, 1000, fileSystem, new RMsBuildFileSystemFilter());
_fileWatcher.Error += FileWatcherError;
Project = new FileSystemMirroringProject(unconfiguredProject, projectLockService, _fileWatcher);
}
public RInteractiveWorkflowCommandTest(RComponentsMefCatalogFixture catalog, TestMethodFixture testMethod)
{
_testMethod = testMethod.MethodInfo;
_exportProvider = catalog.CreateExportProvider();
_workflow = _exportProvider.GetExportedValue <IRInteractiveWorkflowProvider>().GetOrCreate();
_componentContainerFactory = _exportProvider.GetExportedValue <IInteractiveWindowComponentContainerFactory>();
}
public RProjectLoadHooks(UnconfiguredProject unconfiguredProject
, [ImportMany("Microsoft.VisualStudio.ProjectSystem.Microsoft.VisualStudio.Shell.Interop.IVsProject")] IEnumerable<Lazy<IVsProject>> cpsIVsProjects
, IProjectLockService projectLockService
, IRInteractiveWorkflowProvider workflowProvider
, IInteractiveWindowComponentContainerFactory componentContainerFactory
, IRToolsSettings toolsSettings
, IThreadHandling threadHandling
, ISurveyNewsService surveyNews
, [Import(AllowDefault = true)] IProjectItemDependencyProvider dependencyProvider
, ICoreShell coreShell) {
_unconfiguredProject = unconfiguredProject;
_cpsIVsProjects = cpsIVsProjects;
_projectLockService = projectLockService;
_workflowProvider = workflowProvider;
_toolsSettings = toolsSettings;
_threadHandling = threadHandling;
_surveyNews = surveyNews;
_dependencyProvider = dependencyProvider;
_coreShell = coreShell;
_projectDirectory = unconfiguredProject.GetProjectDirectory();
unconfiguredProject.ProjectRenamedOnWriter += ProjectRenamedOnWriter;
unconfiguredProject.ProjectUnloading += ProjectUnloading;
_fileWatcher = new MsBuildFileSystemWatcher(_projectDirectory, "*", 25, 1000, _coreShell.Services.FileSystem, new RMsBuildFileSystemFilter(), coreShell.Services.Log);
_fileWatcher.Error += FileWatcherError;
Project = new FileSystemMirroringProject(unconfiguredProject, projectLockService, _fileWatcher, _dependencyProvider, coreShell.Services.Log);
}
public ReplCommandTest()
{
_debuggerModeTracker = new VsDebuggerModeTracker();
_componentContainerFactory = new InteractiveWindowComponentContainerFactoryMock();
_workflowProvider = TestRInteractiveWorkflowProviderFactory.Create(debuggerModeTracker: _debuggerModeTracker);
_workflow = _workflowProvider.GetOrCreate();
}
public PlotIntegrationTest(RComponentsMefCatalogFixture catalog, TestMethodFixture testMethod, TestFilesFixture testFiles)
{
_exportProvider = catalog.CreateExportProvider();
_workflowProvider = _exportProvider.GetExportedValue <TestRInteractiveWorkflowProvider>();
_workflow = _exportProvider.GetExportedValue <IRInteractiveWorkflowProvider>().GetOrCreate();
_componentContainerFactory = _exportProvider.GetExportedValue <IInteractiveWindowComponentContainerFactory>();
_testMethod = testMethod.MethodInfo;
_testFiles = testFiles;
}
public RHistoryIntegrationTest(RComponentsMefCatalogFixture catalog) {
_exportProvider = catalog.CreateExportProvider();
_textBufferFactory = _exportProvider.GetExportedValue<ITextBufferFactoryService>();
_textEditorFactory = _exportProvider.GetExportedValue<ITextEditorFactoryService>();
_workflowProvider = _exportProvider.GetExportedValue<IRInteractiveWorkflowProvider>();
_contentTypeRegistryService = _exportProvider.GetExportedValue<IContentTypeRegistryService>();
_interactiveWindowComponentContainerFactory = _exportProvider.GetExportedValue<IInteractiveWindowComponentContainerFactory>();
_historyVisualComponentContainerFactory = _exportProvider.GetExportedValue<IRHistoryVisualComponentContainerFactory>();
}
public VsMdCommandFactory(
IRInteractiveWorkflowProvider workflowProvider,
IInteractiveWindowComponentContainerFactory componentContainerFactory,
IWebBrowserServices wbs)
{
_workflowProvider = workflowProvider;
_componentContainerFactory = componentContainerFactory;
_wbs = wbs;
}
public RHistoryIntegrationTest(RComponentsMefCatalogFixture catalog)
{
_exportProvider = catalog.CreateExportProvider();
_textBufferFactory = _exportProvider.GetExportedValue <ITextBufferFactoryService>();
_textEditorFactory = _exportProvider.GetExportedValue <ITextEditorFactoryService>();
_workflowProvider = _exportProvider.GetExportedValue <IRInteractiveWorkflowProvider>();
_contentTypeRegistryService = _exportProvider.GetExportedValue <IContentTypeRegistryService>();
_interactiveWindowComponentContainerFactory = _exportProvider.GetExportedValue <IInteractiveWindowComponentContainerFactory>();
_historyVisualComponentContainerFactory = _exportProvider.GetExportedValue <IRHistoryVisualComponentContainerFactory>();
}
public RInteractiveEvaluatorTest(RComponentsMefCatalogFixture catalog)
{
_exportProvider = catalog.CreateExportProvider();
var settings = _exportProvider.GetExportedValue <IRSettings>();
settings.RCodePage = 1252;
_workflowProvider = _exportProvider.GetExportedValue <IRInteractiveWorkflowProvider>();
_interactiveWindowComponentContainerFactory = _exportProvider.GetExportedValue <IInteractiveWindowComponentContainerFactory>();
}
public RProjectLoadHooks(UnconfiguredProject unconfiguredProject, IProjectLockService projectLockService, IRInteractiveWorkflowProvider workflowProvider, IInteractiveWindowComponentContainerFactory componentContainerFactory, IRToolsSettings toolsSettings, IFileSystem fileSystem, IThreadHandling threadHandling) {
_unconfiguredProject = unconfiguredProject;
_workflowProvider = workflowProvider;
_componentContainerFactory = componentContainerFactory;
_toolsSettings = toolsSettings;
_fileSystem = fileSystem;
_threadHandling = threadHandling;
_projectDirectory = unconfiguredProject.GetProjectDirectory();
unconfiguredProject.ProjectUnloading += ProjectUnloading;
_fileWatcher = new MsBuildFileSystemWatcher(_projectDirectory, "*", 25, fileSystem, new RMsBuildFileSystemFilter());
Project = new FileSystemMirroringProject(unconfiguredProject, projectLockService, _fileWatcher);
}
public RPlotIntegrationUITest(RComponentsMefCatalogFixture catalog, ContainerHostMethodFixture containerHost, TestMethodFixture testMethod, TestFilesFixture testFiles)
{
_containerHost = containerHost;
_exportProvider = catalog.CreateExportProvider();
_workflowProvider = _exportProvider.GetExportedValue <TestRInteractiveWorkflowProvider>();
_workflowProvider.BrokerName = nameof(RPlotIntegrationTest);
_plotDeviceVisualComponentContainerFactory = _exportProvider.GetExportedValue <TestRPlotDeviceVisualComponentContainerFactory>();
// Don't override the standard behavior of using the control size
_plotDeviceVisualComponentContainerFactory.DeviceProperties = null;
_plotHistoryVisualComponentContainerFactory = _exportProvider.GetExportedValue <IRPlotHistoryVisualComponentContainerFactory>();
_workflow = _exportProvider.GetExportedValue <IRInteractiveWorkflowProvider>().GetOrCreate();
_componentContainerFactory = _exportProvider.GetExportedValue <IInteractiveWindowComponentContainerFactory>();
_testMethod = testMethod.MethodInfo;
_testFiles = testFiles;
_plotVisualComponent = UIThreadHelper.Instance.Invoke(() => _workflow.Plots.GetOrCreateVisualComponent(_plotDeviceVisualComponentContainerFactory, PlotWindowInstanceId));
UIThreadHelper.Instance.Invoke(() => _workflow.Plots.RegisterVisualComponent(_plotVisualComponent));
}
public ShowRInteractiveWindowsCommand(IRInteractiveWorkflowProvider interactiveWorkflowProvider, IInteractiveWindowComponentContainerFactory componentContainerFactory) :
base(RGuidList.RCmdSetGuid, RPackageCommandId.icmdShowReplWindow) {
_interactiveWorkflowProvider = interactiveWorkflowProvider;
_componentContainerFactory = componentContainerFactory;
}
public VsRPlotManagerVisualComponentContainerFactory(IRInteractiveWorkflowProvider workflowProvider, IInteractiveWindowComponentContainerFactory componentContainerFactory)
{
_workflowProvider = workflowProvider;
_componentContainerFactory = componentContainerFactory;
}
public ShowRInteractiveWindowsCommand(IRInteractiveWorkflowProvider interactiveWorkflowProvider, IInteractiveWindowComponentContainerFactory componentContainerFactory) :
base(RGuidList.RCmdSetGuid, RPackageCommandId.icmdShowReplWindow)
{
_interactiveWorkflowProvider = interactiveWorkflowProvider;
_componentContainerFactory = componentContainerFactory;
}
public VsRCommandFactory(IRInteractiveWorkflowProvider workflowProvider, IInteractiveWindowComponentContainerFactory componentContainerFactory) {
_workflowProvider = workflowProvider;
_componentContainerFactory = componentContainerFactory;
}
public VsRCommandFactory(IRInteractiveWorkflowProvider workflowProvider, IInteractiveWindowComponentContainerFactory componentContainerFactory)
{
_workflowProvider = workflowProvider;
_componentContainerFactory = componentContainerFactory;
}
public async Task <IInteractiveWindowVisualComponent> GetOrCreateVisualComponent(IInteractiveWindowComponentContainerFactory componentContainerFactory, int instanceId = 0)
{
Shell.AssertIsOnMainThread();
if (ActiveWindow != null)
{
// Right now only one instance of interactive window is allowed
if (instanceId != 0)
{
throw new InvalidOperationException("Right now only one instance of interactive window is allowed");
}
return(ActiveWindow);
}
var evaluator = RInstallationHelper.VerifyRIsInstalled(Shell, _settings.RBasePath)
? new RInteractiveEvaluator(RSession, History, Shell, _settings)
: (IInteractiveEvaluator) new NullInteractiveEvaluator();
ActiveWindow = componentContainerFactory.Create(instanceId, evaluator);
var interactiveWindow = ActiveWindow.InteractiveWindow;
interactiveWindow.TextView.Closed += (_, __) => evaluator.Dispose();
_operations.InteractiveWindow = interactiveWindow;
await interactiveWindow.InitializeAsync();
ActiveWindow.Container.UpdateCommandStatus(true);
return(ActiveWindow);
}
public VsRPackageManagerVisualComponentContainerFactory(ISearchControlProvider searchControlProvider, IRInteractiveWorkflowProvider workflowProvider, IInteractiveWindowComponentContainerFactory componentContainerFactory)
{
_searchControlProvider = searchControlProvider;
_workflowProvider = workflowProvider;
_componentContainerFactory = componentContainerFactory;
}
public async Task<IInteractiveWindowVisualComponent> GetOrCreateVisualComponent(IInteractiveWindowComponentContainerFactory componentContainerFactory, int instanceId = 0) {
// Right now only one instance of interactive window is allowed
if (ActiveWindow != null) {
throw new InvalidOperationException("Right now only one instance of interactive window is allowed");
}
_coreShell.AssertIsOnMainThread();
var evaluator = RInstallationHelper.VerifyRIsInstalled(_coreShell, _settings.RBasePath)
? new RInteractiveEvaluator(RSession, History, _coreShell, _settings)
: (IInteractiveEvaluator) new NullInteractiveEvaluator();
ActiveWindow = componentContainerFactory.Create(instanceId, evaluator);
var interactiveWindow = ActiveWindow.InteractiveWindow;
interactiveWindow.TextView.Closed += (_, __) => evaluator.Dispose();
_operations.InteractiveWindow = interactiveWindow;
await interactiveWindow.InitializeAsync();
ActiveWindow.Container.UpdateCommandStatus(true);
return ActiveWindow;
}
