tests/testthat/test-uifunctions.R

In etc5523-2020/r-package-assessment-aarathybabu97: Overview of COVID-19 on a global scale with focus on United States of America

x <- as.tibble(c(1:3))
y <- as.tibble(c(1:5))

shinyApp(
  ui = fluidPage(fluidRow(
    sinput("testname", "name label", x$value),
    
    selectInput("testname", "name label", x$value)
  )),
  
  server = function(input, output, session) {
    
  }
)



test_that("ui_check()", {
  expect_equal(
    sinput("testname", "name label", x$value),
    selectInput("testname", "name label", x$value)
  )
  #expect_equal(sinput("testname","name label",x$value),selectInput("testname","name label",y$value))
  
})