tests/testthat/test_ui_function.R

In etc5523-2020/r-package-assessment-priya51096: prikage(Priya + Package), Embeds my Shiny Application & Launches its via a Function

library(shiny)

df <- tibble(
  value = 1:2,
  country = "India")


test_that("test for ui functions",{
expect_s3_class(object = select_input_world_countries(selected_country_label = "input",
                                                        covid_data = df),
  class = "shiny.tag")
                             })