E2e tests

.gitignore

@@ -55,3 +55,8 @@ inst/doc
 data/
 
 *.DS_Store
+
+# Cypress
+tests/yarn-error.log
+tests/cypress/downloads
+tests/cypress/videos

inst/examples/areaChart/app.R

@@ -112,4 +112,4 @@ server <- function(input, output, session) {
   })
 }
 
-shinyApp(ui, server)
+shinyApp(ui, server, options = list(port = 8888))

inst/examples/barChart/app.R

@@ -1,5 +1,4 @@
 # Based in https://gosling.js.org/?example=doc_bar
-
 library(shiny)
 library(shiny.gosling)
 
@@ -118,4 +117,4 @@ server <- function(input, output, session) {
   })
 }
 
-shinyApp(ui, server)
+shinyApp(ui, server, options = list(port = 8888))

inst/examples/circularVisualEncoding/app.R

@@ -1,94 +1,91 @@
-if (interactive()) {
-  library(shiny)
-  library(shiny.gosling)
+library(shiny)
+library(shiny.gosling)
 
-  cistrome_data <-
-    "https://server.gosling-lang.org/api/v1/tileset_info/?d=cistrome-multivec"
+cistrome_data <-
+"https://server.gosling-lang.org/api/v1/tileset_info/?d=cistrome-multivec"
 
-  single_track <- add_single_track(
-    id = "track1",
-    data = track_data(
-      url = cistrome_data,
-      type = "multivec",
-      row = "sample",
-      column = "position",
-      value = "peak",
-      categories = c("sample 1", "sample 2", "sample 3", "sample 4"),
-      binSize = 4,
-    ),
-    mark = "rect",
-    x = visual_channel_x(field = "start", type = "genomic", axis = "top"),
-    xe = visual_channel_x(field = "end", type = "genomic"),
-    row = visual_channel_row(
-      field = "sample",
-      type = "nominal",
-      legend = TRUE
-    ),
-    color = visual_channel_color(
-      field = "peak",
-      type = "quantitative",
-      legend = TRUE
-    ),
-    tooltip = visual_channel_tooltips(
-      visual_channel_tooltip(field = "start", type = "genomic",
-                             alt = "Start Position"),
-      visual_channel_tooltip(field = "end", type = "genomic",
-                             alt = "End Position"),
-      visual_channel_tooltip(
-        field = "peak",
-        type = "quantitative",
-        alt = "Value",
-        format = "0.2"
-      )
-    ),
-    width = 600,
-    height = 130
-  )
-
-  single_composed_track <- compose_view(
-    tracks = single_track
-  )
-
-  single_composed_views <- arrange_views(
-    title = "Single Track",
-    subtitle = "This is the simplest single track visualization with a linear layout",
-    layout = "circular", #"linear"
-    views = single_composed_track,
-    xDomain = list(
-      chromosome = "chr1",
-      interval = c(1, 3000500)
+single_track <- add_single_track(
+id = "track1",
+data = track_data(
+    url = cistrome_data,
+    type = "multivec",
+    row = "sample",
+    column = "position",
+    value = "peak",
+    categories = c("sample 1", "sample 2", "sample 3", "sample 4"),
+    binSize = 4,
+),
+mark = "rect",
+x = visual_channel_x(field = "start", type = "genomic", axis = "top"),
+xe = visual_channel_x(field = "end", type = "genomic"),
+row = visual_channel_row(
+    field = "sample",
+    type = "nominal",
+    legend = TRUE
+),
+color = visual_channel_color(
+    field = "peak",
+    type = "quantitative",
+    legend = TRUE
+),
+tooltip = visual_channel_tooltips(
+    visual_channel_tooltip(field = "start", type = "genomic",
+                            alt = "Start Position"),
+    visual_channel_tooltip(field = "end", type = "genomic",
+                            alt = "End Position"),
+    visual_channel_tooltip(
+    field = "peak",
+    type = "quantitative",
+    alt = "Value",
+    format = "0.2"
     )
-  )
+),
+width = 600,
+height = 130
+)
 
-  ui <- fluidPage(
-    use_gosling(),
-    fluidRow(
-      column(6, goslingOutput("gosling_plot")),
-      column(
-        1, br(), actionButton(
-          "download_pdf",
-          "PDF",
-          icon = icon("cloud-arrow-down")
-        )
-      )
-    )
-  )
+single_composed_track <- compose_view(
+tracks = single_track
+)
 
+single_composed_views <- arrange_views(
+title = "Single Track",
+subtitle = "This is the simplest single track visualization with a linear layout",
+layout = "circular", #"linear"
+views = single_composed_track,
+xDomain = list(
+    chromosome = "chr1",
+    interval = c(1, 3000500)
+)
+)
 
-  server <- function(input, output, session) {
-    output$gosling_plot <- renderGosling({
-      gosling(
-        component_id = "component_1",
-        single_composed_views,
-        clean_braces = TRUE
-      )
-    })
+ui <- fluidPage(
+use_gosling(),
+fluidRow(
+    column(6, goslingOutput("gosling_plot")),
+    column(
+    1, br(), actionButton(
+        "download_pdf",
+        "PDF",
+        icon = icon("cloud-arrow-down")
+    )
+    )
+)
+)
 
-    observeEvent(input$download_pdf, {
-      export_pdf(component_id = "component_1")
-    })
-  }
 
-  shinyApp(ui, server)
+server <- function(input, output, session) {
+output$gosling_plot <- renderGosling({
+    gosling(
+    component_id = "component_1",
+    single_composed_views,
+    clean_braces = TRUE
+    )
+})
 
+observeEvent(input$download_pdf, {
+    export_pdf(component_id = "component_1")
+})
 }
+
+shinyApp(ui, server, options = list(port = 8888))

inst/examples/ideograms/app.R

@@ -131,4 +131,4 @@ server <- function(input, output, session) {
   })
 }
 
-shinyApp(ui, server)
+shinyApp(ui, server, options = list(port = 8888))

inst/examples/lineChart/app.R

@@ -112,4 +112,4 @@ server <- function(input, output, session) {
   })
 }
 
-shinyApp(ui, server)
+shinyApp(ui, server, options = list(port = 8888))

inst/examples/pointPlot/app.R

@@ -112,4 +112,4 @@ server <- function(input, output, session) {
   })
 }
 
-shinyApp(ui, server)
+shinyApp(ui, server, options = list(port = 8888))

inst/examples/ruleMarks/app.R

@@ -176,4 +176,4 @@ server <- function(input, output, session) {
   })
 }
 
-shinyApp(ui, server)
+shinyApp(ui, server, options = list(port = 8888))