fix test after fct edit, export links

sebastien-plutniak · Oct 30, 2023 · 16f2780 · 16f2780
1 parent a808791
commit 16f2780
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 3 deletions.
diff --git a/R/app_server.R b/R/app_server.R
@@ -1532,11 +1532,11 @@ app_server <- function(input, output, session) {
     tagList(
       "> ", .term_switcher("export.to"),
       actionLink("run.amado",
-                 label = "Amado (Seriation)",
+                 label = "AMADO online",
                  onclick = paste("window.open('",
                                  amado.url(), "', '_blank')")),
       "(", .term_switcher("download"),
-      downloadLink("download.amado", " CSV"),  ")"
+      downloadLink("download.amado", " CSV"),  ") for seriation and classification"
     )
   })
 
@@ -1585,7 +1585,7 @@ app_server <- function(input, output, session) {
                  onclick = paste("window.open('",
                                  seriograph.url(), "', '_blank')")),
       "(", .term_switcher("download"),
-      downloadLink("download.seriograph", " CSV"),  ")"
+      downloadLink("download.seriograph", " CSV"),  ") for seriation."
     )
   })
 

diff --git a/tests/testthat/test.do_section_plot.R b/tests/testthat/test.do_section_plot.R
@@ -48,6 +48,7 @@ test_that(".do_section_plot", {
                    refitting.df = refits.res,
                    show.refits = FALSE,
                    colors = as.character(unique(df$data$layer_color)),
+                   grid.legend = "test",
                    grid.coord = grid.coords.res,
                    coords = coords,
                    axis.labels = axis.labels.res,