tests/testthat/test-golem_utils_ui.R

In ReseauBiodiversiteQuebec/tableaudelta: Tableau-delta

test_that("Test with_red_star works", {
    expect_s3_class(with_red_star("golem"), "shiny.tag")
    expect_equal(
        as.character(with_red_star("Enter your name here")),
        '<span>Enter your name here<span style="color:red">*</span></span>'
    )
})

test_that("Test list_to_li works", {
    expect_s3_class(list_to_li(c("a", "b")), "shiny.tag.list")
    expect_equal(
        as.character(list_to_li(c("a", "b"))),
        "<li>a</li>\n<li>b</li>"
    )
    expect_equal(
        as.character(list_to_li(c("a", "b"), class = "my_li")),
        '<li class="my_li">a</li>\n<li class="my_li">b</li>'
    )
})

test_that("Test list_to_p works", {
    expect_s3_class(
        list_to_p(c(
            "This is the first paragraph",
            "this is the second paragraph"
        )),
        "shiny.tag.list"
    )
    expect_equal(
        as.character(
            list_to_p(c(
                "This is the first paragraph",
                "this is the second paragraph"
            ))
        ),
        "<p>This is the first paragraph</p>\n<p>this is the second paragraph</p>"
    )
    expect_equal(
        as.character(
            list_to_p(c(
                "This is the first paragraph",
                "this is the second paragraph"
            ), class = "my_li")
        ),
        '<p class="my_li">This is the first paragraph</p>\n<p class="my_li">this is the second paragraph</p>'
    )
})

test_that("Test named_to_li works", {
    expect_s3_class(named_to_li(list(a = "a", b = "b")), "shiny.tag.list")
    expect_equal(
        as.character(named_to_li(list(a = "a", b = "b"))),
        "<li><b>a:</b> a</li>\n<li><b>b:</b> b</li>"
    )
    expect_equal(
        as.character(named_to_li(list(a = "a", b = "b"), class = "mylist")),
        '<li class="mylist"><b>a:</b> a</li>\n<li class="mylist"><b>b:</b> b</li>'
    )
})

test_that("Test tagRemoveAttributes works", {
    a_with_tag <- shiny::tags$p(src = "plop", "pouet")
    expect_s3_class(a_with_tag, "shiny.tag")
    expect_equal(
        as.character(a_with_tag),
        '<p src="plop">pouet</p>'
    )

    a_without_tag <- tagRemoveAttributes(a_with_tag, "src")
    expect_s3_class(a_without_tag, "shiny.tag")
    expect_equal(
        as.character(a_without_tag),
        "<p>pouet</p>"
    )
})

test_that("Test undisplay works", {
    a <- shiny::tags$p(src = "plop", "pouet")
    expect_s3_class(a, "shiny.tag")
    expect_equal(
        as.character(a),
        '<p src="plop">pouet</p>'
    )
    a_undisplay <- undisplay(a)
    expect_s3_class(a_undisplay, "shiny.tag")
    expect_equal(
        as.character(a_undisplay),
        '<p src="plop" style="display: none;">pouet</p>'
    )

    b <- shiny::actionButton("go_filter", "go")
    expect_s3_class(b, "shiny.tag")
    expect_equal(
        as.character(b),
        '<button id="go_filter" type="button" class="btn btn-default action-button">go</button>'
    )
    b_undisplay <- undisplay(b)
    expect_s3_class(b, "shiny.tag")
    expect_equal(
        as.character(b_undisplay),
        '<button id="go_filter" type="button" class="btn btn-default action-button" style="display: none;">go</button>'
    )
})

test_that("Test display works", {
    a_undisplay <- shiny::tags$p(src = "plop", "pouet", style = "display: none;")
    expect_s3_class(a_undisplay, "shiny.tag")
    expect_equal(
        as.character(a_undisplay),
        '<p src="plop" style="display: none;">pouet</p>'
    )
    a_display <- display(a_undisplay)
    expect_s3_class(a_display, "shiny.tag")
    expect_equal(
        as.character(a_display),
        '<p src="plop" style="">pouet</p>'
    )
})

test_that("Test jq_hide works", {
    expect_s3_class(jq_hide("golem"), "shiny.tag")
    expect_equal(
        as.character(jq_hide("golem")),
        "<script>$('#golem').hide()</script>"
    )
})

test_that("Test rep_br works", {
    expect_s3_class(rep_br(5), "html")
    expect_equal(
        as.character(rep_br(5)),
        "<br/> <br/> <br/> <br/> <br/>"
    )
})

test_that("Test enurl works", {
    expect_s3_class(enurl("https://www.thinkr.fr", "ThinkR"), "shiny.tag")
    expect_equal(
        as.character(enurl("https://www.thinkr.fr", "ThinkR")),
        '<a href="https://www.thinkr.fr">ThinkR</a>'
    )
})

test_that("Test columns wrappers works", {
    expect_s3_class(col_12(), "shiny.tag")
    expect_s3_class(col_10(), "shiny.tag")
    expect_s3_class(col_8(), "shiny.tag")
    expect_s3_class(col_6(), "shiny.tag")
    expect_s3_class(col_4(), "shiny.tag")
    expect_s3_class(col_3(), "shiny.tag")
    expect_s3_class(col_2(), "shiny.tag")
    expect_s3_class(col_1(), "shiny.tag")

    expect_equal(as.character(col_12()), '<div class="col-sm-12"></div>')
    expect_equal(as.character(col_10()), '<div class="col-sm-10"></div>')
    expect_equal(as.character(col_8()), '<div class="col-sm-8"></div>')
    expect_equal(as.character(col_6()), '<div class="col-sm-6"></div>')
    expect_equal(as.character(col_4()), '<div class="col-sm-4"></div>')
    expect_equal(as.character(col_3()), '<div class="col-sm-3"></div>')
    expect_equal(as.character(col_2()), '<div class="col-sm-2"></div>')
    expect_equal(as.character(col_1()), '<div class="col-sm-1"></div>')
})

test_that("Test make_action_button works", {
    button <- make_action_button(
        a(href = "#", "My super link", style = "color: lightblue;"),
        inputId = "mylink"
    )
    expect_s3_class(button, "shiny.tag")
    expect_equal(
        as.character(button),
        '<a href="#" style="color: lightblue;" id="mylink" class="action-button">My super link</a>'
    )
})