feat: Specific starting apps for the editor only view

examples/index.json

@@ -58,6 +58,10 @@
   {
     "engine": "r",
     "examples": [
+      {
+        "category": "Editor",
+        "apps": ["editor"]
+      },
       {
         "category": "R examples",
         "apps": [

examples/r/editor/about.txt

@@ -0,0 +1 @@
+Editor

examples/r/editor/app.R

@@ -0,0 +1,15 @@
+library(shiny)
+library(bslib)
+
+ui <- page_fluid(
+  sliderInput("n", "N", 100, min = 0, max = 200),
+  verbatimTextOutput("result")
+)
+
+server <- function(input, output, session) {
+  output$result <- renderPrint({
+    cat("n * 2 =", input$n * 2)
+  })
+}
+
+shinyApp(ui, server)

src/Components/App.tsx

@@ -698,14 +698,18 @@ export function runApp(
         if (pos) {
           opts.selectedExample = exampleName;
         } else {
-          // If we didn't find an example name from the URL hash, we'll just use
-          // the first available example.
-          pos = { categoryIndex: 0, index: 0 };
-          opts.selectedExample = sanitizeTitleForUrl(
-            exampleCategories[pos.categoryIndex].apps[pos.index].title,
+          // We didn't find an example name from the URL hash. If we have an
+          // example in the "Editor" category, use that, otherwise use the first
+          // available example in the list.
+          const editorCategory = (await getExampleCategories(appEngine)).filter(
+            (cat) => cat.category == "Editor",
           );
+          const categories =
+            editorCategory.length > 0 ? editorCategory : exampleCategories;
+          const { title, files } = categories[0].apps[0];
+          opts.selectedExample = sanitizeTitleForUrl(title);
+          startFiles = files;
         }
-        startFiles = exampleCategories[pos.categoryIndex].apps[pos.index].files;
       }
       // If we get here, we're either not looking for a URL hash that points to
       // code, or we didn't find such a hash.

src/Components/ExampleSelector.tsx

@@ -35,7 +35,11 @@ export function ExampleSelector({
   React.useEffect(() => {
     // eslint-disable-next-line @typescript-eslint/no-floating-promises
     (async () => {
-      setExampleCategories(await getExampleCategories(appEngine));
+      const categories = (await getExampleCategories(appEngine)).filter(
+        // Exclude the "Editor" category from the general examples list
+        (cat) => cat.category !== "Editor",
+      );
+      setExampleCategories(categories);
     })();
   }, [appEngine]);