Adding app for various tabpanel improvements with shinytest

apps/213-tab-panels/app.R

@@ -0,0 +1,52 @@
+#App to test insert tab and insert tab in dropdown Menu.
+#Related to https://github.com/rstudio/shiny/pull/3315
+
+library(shiny)
+library(bslib)
+
+ui <- fluidPage(
+  theme = bs_theme(),
+  sidebarLayout(
+    sidebarPanel(
+      actionButton("add", "Add 'Dynamic' tab"),
+      actionButton("remove", "Remove 'Foo' tab"),
+      actionButton("addFoo", "Add New 'Foo' tab")
+    ),
+    mainPanel(
+      tabsetPanel(
+        id = "tabs",
+        tabPanel("Hello", "This is the hello tab"),
+        tabPanel("Foo", "This is the foo tab"),
+        navbarMenu(menuName = "Menu",
+          "Static",
+          tabPanel("Static 1", "Static 1", value = "s1"),
+          tabPanel("Static 2", "Static 2", value = "s2")
+        ),
+        tabPanel("Footest", "This is the footest tab",value = "f")
+      )
+    )
+  )
+)
+server <- function(input, output, session) {
+  observeEvent(input$add, {
+    insertTab(
+      inputId = "tabs",
+      tabPanel("Dynamic", "Dynamic"),
+      target = "s2"
+    )
+  })
+  observeEvent(input$remove, {
+    removeTab(inputId = "tabs", target = "Foo")
+  })
+  observeEvent(input$addFoo, {
+    insertTab(
+      inputId = "tabs",
+      tabPanel("Foo", "This is the new foo tab"),
+      target = "Menu",
+      position = "before",
+      select = TRUE)
+  })
+
+}
+
+shinyApp(ui, server)

apps/213-tab-panels/tests/shinytest.R

@@ -0,0 +1,3 @@
+shinycoreci::test_shinytest_app()
+
+

apps/213-tab-panels/tests/shinytest/mytest-expected-linux-3.4/001.json

@@ -0,0 +1,14 @@
+{
+  "input": {
+    "add": 0,
+    "addFoo": 0,
+    "remove": 0,
+    "tabs": "Hello"
+  },
+  "output": {
+
+  },
+  "export": {
+
+  }
+}

apps/213-tab-panels/tests/shinytest/mytest-expected-linux-3.4/002.json

@@ -0,0 +1,14 @@
+{
+  "input": {
+    "add": 0,
+    "addFoo": 0,
+    "remove": 0,
+    "tabs": "Hello"
+  },
+  "output": {
+
+  },
+  "export": {
+
+  }
+}

apps/213-tab-panels/tests/shinytest/mytest-expected-linux-3.4/003.json

@@ -0,0 +1,14 @@
+{
+  "input": {
+    "add": 1,
+    "addFoo": 0,
+    "remove": 0,
+    "tabs": "Hello"
+  },
+  "output": {
+
+  },
+  "export": {
+
+  }
+}

apps/213-tab-panels/tests/shinytest/mytest-expected-linux-3.4/004.json

@@ -0,0 +1,14 @@
+{
+  "input": {
+    "add": 1,
+    "addFoo": 0,
+    "remove": 0,
+    "tabs": "Dynamic"
+  },
+  "output": {
+
+  },
+  "export": {
+
+  }
+}

apps/213-tab-panels/tests/shinytest/mytest-expected-linux-3.4/005.json

@@ -0,0 +1,14 @@
+{
+  "input": {
+    "add": 1,
+    "addFoo": 0,
+    "remove": 1,
+    "tabs": "Dynamic"
+  },
+  "output": {
+
+  },
+  "export": {
+
+  }
+}

apps/213-tab-panels/tests/shinytest/mytest-expected-linux-3.4/006.json

@@ -0,0 +1,14 @@
+{
+  "input": {
+    "add": 1,
+    "addFoo": 1,
+    "remove": 1,
+    "tabs": "Foo"
+  },
+  "output": {
+
+  },
+  "export": {
+
+  }
+}

apps/213-tab-panels/tests/shinytest/mytest-expected-linux-3.4/007.json

@@ -0,0 +1,14 @@
+{
+  "input": {
+    "add": 1,
+    "addFoo": 1,
+    "remove": 1,
+    "tabs": "f"
+  },
+  "output": {
+
+  },
+  "export": {
+
+  }
+}

apps/213-tab-panels/tests/shinytest/mytest-expected-linux-3.4/008.json

@@ -0,0 +1,14 @@
+{
+  "input": {
+    "add": 2,
+    "addFoo": 1,
+    "remove": 1,
+    "tabs": "f"
+  },
+  "output": {
+
+  },
+  "export": {
+
+  }
+}

apps/213-tab-panels/tests/shinytest/mytest-expected-linux-3.4/009.json

@@ -0,0 +1,14 @@
+{
+  "input": {
+    "add": 2,
+    "addFoo": 2,
+    "remove": 1,
+    "tabs": "Foo"
+  },
+  "output": {
+
+  },
+  "export": {
+
+  }
+}

apps/213-tab-panels/tests/shinytest/mytest-expected-linux-3.4/010.json

@@ -0,0 +1,14 @@
+{
+  "input": {
+    "add": 2,
+    "addFoo": 2,
+    "remove": 2,
+    "tabs": "Hello"
+  },
+  "output": {
+
+  },
+  "export": {
+
+  }
+}

apps/213-tab-panels/tests/shinytest/mytest-expected-linux-3.5/001.json

@@ -0,0 +1,14 @@
+{
+  "input": {
+    "add": 0,
+    "addFoo": 0,
+    "remove": 0,
+    "tabs": "Hello"
+  },
+  "output": {
+
+  },
+  "export": {
+
+  }
+}

apps/213-tab-panels/tests/shinytest/mytest-expected-linux-3.5/002.json

@@ -0,0 +1,14 @@
+{
+  "input": {
+    "add": 0,
+    "addFoo": 0,
+    "remove": 0,
+    "tabs": "Hello"
+  },
+  "output": {
+
+  },
+  "export": {
+
+  }
+}

apps/213-tab-panels/tests/shinytest/mytest-expected-linux-3.5/003.json

@@ -0,0 +1,14 @@
+{
+  "input": {
+    "add": 1,
+    "addFoo": 0,
+    "remove": 0,
+    "tabs": "Hello"
+  },
+  "output": {
+
+  },
+  "export": {
+
+  }
+}

apps/213-tab-panels/tests/shinytest/mytest-expected-linux-3.5/004.json

@@ -0,0 +1,14 @@
+{
+  "input": {
+    "add": 1,
+    "addFoo": 0,
+    "remove": 0,
+    "tabs": "Dynamic"
+  },
+  "output": {
+
+  },
+  "export": {
+
+  }
+}

apps/213-tab-panels/tests/shinytest/mytest-expected-linux-3.5/005.json

@@ -0,0 +1,14 @@
+{
+  "input": {
+    "add": 1,
+    "addFoo": 0,
+    "remove": 1,
+    "tabs": "Dynamic"
+  },
+  "output": {
+
+  },
+  "export": {
+
+  }
+}

apps/213-tab-panels/tests/shinytest/mytest-expected-linux-3.5/006.json

@@ -0,0 +1,14 @@
+{
+  "input": {
+    "add": 1,
+    "addFoo": 1,
+    "remove": 1,
+    "tabs": "Foo"
+  },
+  "output": {
+
+  },
+  "export": {
+
+  }
+}

apps/213-tab-panels/tests/shinytest/mytest-expected-linux-3.5/007.json

@@ -0,0 +1,14 @@
+{
+  "input": {
+    "add": 1,
+    "addFoo": 1,
+    "remove": 1,
+    "tabs": "f"
+  },
+  "output": {
+
+  },
+  "export": {
+
+  }
+}

apps/213-tab-panels/tests/shinytest/mytest-expected-linux-3.5/008.json

@@ -0,0 +1,14 @@
+{
+  "input": {
+    "add": 2,
+    "addFoo": 1,
+    "remove": 1,
+    "tabs": "f"
+  },
+  "output": {
+
+  },
+  "export": {
+
+  }
+}

apps/213-tab-panels/tests/shinytest/mytest-expected-linux-3.5/009.json

@@ -0,0 +1,14 @@
+{
+  "input": {
+    "add": 2,
+    "addFoo": 2,
+    "remove": 1,
+    "tabs": "Foo"
+  },
+  "output": {
+
+  },
+  "export": {
+
+  }
+}

apps/213-tab-panels/tests/shinytest/mytest-expected-linux-3.5/010.json

@@ -0,0 +1,14 @@
+{
+  "input": {
+    "add": 2,
+    "addFoo": 2,
+    "remove": 2,
+    "tabs": "Hello"
+  },
+  "output": {
+
+  },
+  "export": {
+
+  }
+}

apps/213-tab-panels/tests/shinytest/mytest-expected-linux-3.6/001.json

@@ -0,0 +1,14 @@
+{
+  "input": {
+    "add": 0,
+    "addFoo": 0,
+    "remove": 0,
+    "tabs": "Hello"
+  },
+  "output": {
+
+  },
+  "export": {
+
+  }
+}

apps/213-tab-panels/tests/shinytest/mytest-expected-linux-3.6/002.json

@@ -0,0 +1,14 @@
+{
+  "input": {
+    "add": 0,
+    "addFoo": 0,
+    "remove": 0,
+    "tabs": "Hello"
+  },
+  "output": {
+
+  },
+  "export": {
+
+  }
+}