context("canvasXpress resizable")
test_that("scatterplot resizable", {
tryCatch({
y <- read.table("https://www.canvasxpress.org/data/cX-mtcars-dat.txt", header = TRUE, sep = "\t", quote = "", row.names = 1, fill = TRUE, check.names = FALSE, stringsAsFactors = FALSE)
},
error = function(e) {
skip('Unable to read data files')
})
result <- canvasXpress(data = y,
asSampleFactors = list("cyl"),
colorBy = "cyl",
graphType = "Scatter2D",
stringVariableFactors = list("cyl"),
title = "Scatterplot - resizable",
resizable = TRUE)
check_ui_test(result)
})
test_that("scatterplot resizable width", {
tryCatch({
y <- read.table("https://www.canvasxpress.org/data/cX-mtcars-dat.txt", header = TRUE, sep = "\t", quote = "", row.names = 1, fill = TRUE, check.names = FALSE, stringsAsFactors = FALSE)
},
error = function(e) {
skip('Unable to read data files')
})
result <- canvasXpress(data = y,
asSampleFactors = list("cyl"),
colorBy = "cyl",
graphType = "Scatter2D",
stringVariableFactors = list("cyl"),
title = "Scatterplot - resizable width",
resizableX = TRUE,
resizableY = FALSE)
check_ui_test(result)
warning("the plot is shifted to top-left, when clicking on Minimize/Maximize menu button")
})
test_that("scatterplot resizable height", {
tryCatch({
y <- read.table("https://www.canvasxpress.org/data/cX-mtcars-dat.txt", header = TRUE, sep = "\t", quote = "", row.names = 1, fill = TRUE, check.names = FALSE, stringsAsFactors = FALSE)
},
error = function(e) {
skip('Unable to read data files')
})
result <- canvasXpress(data = y,
asSampleFactors = list("cyl"),
colorBy = "cyl",
graphType = "Scatter2D",
stringVariableFactors = list("cyl"),
title = "Scatterplot - resizable height",
resizableY = TRUE,
resizableX = FALSE)
check_ui_test(result)
warning("the plot is shifted to top-left, when clicking on Minimize/Maximize menu button")
})
test_that("scatterplot not resizable", {
tryCatch({
y <- read.table("https://www.canvasxpress.org/data/cX-mtcars-dat.txt", header = TRUE, sep = "\t", quote = "", row.names = 1, fill = TRUE, check.names = FALSE, stringsAsFactors = FALSE)
},
error = function(e) {
skip('Unable to read data files')
})
result <- canvasXpress(data = y,
asSampleFactors = list("cyl"),
colorBy = "cyl",
graphType = "Scatter2D",
stringVariableFactors = list("cyl"),
title = "Scatterplot - not resizable",
resizable = FALSE)
check_ui_test(result)
warning("the plot is shifted to top-left, when clicking on Minimize/Maximize menu button")
})
test_that("bar chart not resizable", {
tryCatch({
y2 <- read.table("https://www.canvasxpress.org/data/cX-basic-dat.txt", header = TRUE, sep = "\t", quote = "", row.names = 1, fill = TRUE, check.names = FALSE, stringsAsFactors = FALSE)
},
error = function(e) {
skip('Unable to read data files')
})
result <- canvasXpress(data = y2,
graphOrientation = "vertical",
graphType = "Bar",
title = "Barplot - not resizable",
resizable = FALSE)
check_ui_test(result)
warning("the plot is shifted to top-left, when clicking on Minimize/Maximize menu button")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.