WIP: Add problemMatching to task

package.json

@@ -1670,6 +1670,27 @@
       {
         "type": "R"
       }
+    ],
+    "problemMatchers": [
+      {
+        "name": "testthat",
+        "owner": "R",
+        "severity": "error",
+        "fileLocation": ["relative", "${workspaceFolder}/tests/testthat"],
+        "pattern": [
+          {
+              "regexp": "^(Failure|Error)\\s\\((.*\\.[Rr]):(\\d+):(\\d+)\\):\\s(.*)",
+              "file": 2,
+              "line": 3,
+              "column": 4,
+              "message": 5
+          },
+          {
+              "regexp": "^(.*)$",
+              "message": 1
+          }
+        ]
+      }
     ]
   },
   "scripts": {

src/extension.ts

@@ -21,6 +21,7 @@ import * as completions from './completions';
 import * as rShare from './liveShare';
 import * as httpgdViewer from './plotViewer';
 import * as languageService from './languageService';
+import { RTaskProvider } from './tasks';
 
 
 // global objects used in other files
@@ -203,28 +204,8 @@ export async function activate(context: vscode.ExtensionContext): Promise<apiImp
     await rShare.initLiveShare(context);
 
     // register task provider
-    const type = 'R';
-    vscode.tasks.registerTaskProvider(type, {
-        provideTasks() {
-            // `vscode.ShellQuoting.Strong` will treat the "value" as pure string and quote them based on the shell used
-            // this can ensure it works for different shells, e.g., zsh, PowerShell or cmd
-            return [
-                new vscode.Task({ type: type }, vscode.TaskScope.Workspace, 'Build', 'R',
-                    new vscode.ShellExecution('Rscript', ['-e', {value: 'devtools::build()', quoting: vscode.ShellQuoting.Strong}])),
-                new vscode.Task({ type: type }, vscode.TaskScope.Workspace, 'Check', 'R',
-                    new vscode.ShellExecution('Rscript', ['-e', {value: 'devtools::check()', quoting: vscode.ShellQuoting.Strong}])),
-                new vscode.Task({ type: type }, vscode.TaskScope.Workspace, 'Document', 'R',
-                    new vscode.ShellExecution('Rscript', ['-e', {value: 'devtools::document()', quoting: vscode.ShellQuoting.Strong}])),
-                new vscode.Task({ type: type }, vscode.TaskScope.Workspace, 'Install', 'R',
-                    new vscode.ShellExecution('Rscript', ['-e', {value: 'devtools::install()', quoting: vscode.ShellQuoting.Strong}])),
-                new vscode.Task({ type: type }, vscode.TaskScope.Workspace, 'Test', 'R',
-                    new vscode.ShellExecution('Rscript', ['-e', {value: 'devtools::test()', quoting: vscode.ShellQuoting.Strong}]))
-            ];
-        },
-        resolveTask(task: vscode.Task) {
-            return task;
-        }
-    });
+    const taskProvider = new RTaskProvider();
+    vscode.tasks.registerTaskProvider(taskProvider.type, taskProvider);
 
     // deploy session watcher (if configured by user)
     if (enableSessionWatcher) {

src/tasks.ts

@@ -0,0 +1,107 @@
+'use strict';
+
+import * as vscode from 'vscode';
+
+export class RTaskProvider implements vscode.TaskProvider {
+    public readonly type = 'R';
+
+    // `vscode.ShellQuoting.Strong` will treat the "value" as pure string
+    // and quote them based on the shell used this can ensure it works for
+    // different shells, e.g., zsh, PowerShell or cmd
+    private readonly tasks = [
+
+        new vscode.Task(
+            { type: this.type },
+            vscode.TaskScope.Workspace,
+            'Build',
+            'R',
+            new vscode.ShellExecution(
+                'Rscript',
+                [
+                    '-e',
+                    {
+                        value: 'devtools::build()',
+                        quoting: vscode.ShellQuoting.Strong
+                    }
+                ]
+            )
+        ),
+
+        new vscode.Task(
+            { type: this.type },
+            vscode.TaskScope.Workspace,
+            'Check',
+            'R',
+            new vscode.ShellExecution(
+                'Rscript',
+                [
+                    '-e',
+                    {
+                        value: 'devtools::check()',
+                        quoting: vscode.ShellQuoting.Strong
+                    }
+                ]
+            )
+        ),
+
+        new vscode.Task(
+            { type: this.type },
+            vscode.TaskScope.Workspace,
+            'Document',
+            'R',
+            new vscode.ShellExecution(
+                'Rscript',
+                [
+                    '-e',
+                    {
+                        value: 'devtools::document()',
+                        quoting: vscode.ShellQuoting.Strong
+                    }
+                ]
+            )
+        ),
+
+        new vscode.Task(
+            { type: this.type },
+            vscode.TaskScope.Workspace,
+            'Install',
+            'R',
+            new vscode.ShellExecution(
+                'Rscript',
+                [
+                    '-e',
+                    {
+                        value: 'devtools::install()',
+                        quoting: vscode.ShellQuoting.Strong
+                    }
+                ]
+            )
+        ),
+
+        new vscode.Task(
+            { type: this.type },
+            vscode.TaskScope.Workspace,
+            'Test',
+            'R',
+            new vscode.ShellExecution(
+                'Rscript',
+                [
+                    '-e',
+                    {
+                        value: 'devtools::test()',
+                        quoting: vscode.ShellQuoting.Strong
+                    }
+                ]
+            ),
+            '$testthat'
+        )
+    ];
+
+    public provideTasks(): vscode.Task[] {
+        return this.tasks;
+    }
+
+    public resolveTask(task: vscode.Task): vscode.Task {
+        return task;
+    }
+}