data(Example_data, package = "Covid19Wastewater")
data(Pop_data, package = "Covid19Wastewater")
Example_data <- Example_data[Example_data$site == 'Janesville',]
createCaseFlag(dplyr::left_join(Example_data, Pop_data))
Run the code above in your browser using DataLab