Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Jump to bottom

add as_curve_params test #215

Merged
merged 10 commits into from
Jul 30, 2024
Merged

add as_curve_params test #215

Show file tree
Hide file tree
Changes from 4 commits
Commits
Show all changes
10 commits
Select commit Hold shift + click to select a range
709aeb0
add as_curve_params test
chrisorwa Jul 18, 2024
b6a9161
Merge branch 'main' into create-test-for-as_curve_params
chrisorwa Jul 19, 2024
0eec796
make corrections to tests
chrisorwa Jul 19, 2024
016bbbf
Merge branch 'create-test-for-as_curve_params' of https://github.com/…
chrisorwa Jul 19, 2024
2162fa8
reduce file size for test
chrisorwa Jul 22, 2024
8bf800f
add slice_head
chrisorwa Jul 22, 2024
e0609da
print out test data in snapshot test
chrisorwa Jul 22, 2024
dade21e
make changes to snapshot
chrisorwa Jul 24, 2024
db1d0e0
remove additions to est.incidence
chrisorwa Jul 24, 2024
a2e8c01
remove accidental error
chrisorwa Jul 30, 2024
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
6 changes: 4 additions & 2 deletions R/as_curve_params.R
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -12,7 +12,6 @@
#' as_curve_params()
#'
#' print(curve_data)

as_curve_params <- function(data, antigen_isos = NULL) {
curve_data <-
data %>%
Expand All @@ -23,7 +22,10 @@ as_curve_params <- function(data, antigen_isos = NULL) {

# check if object is curve (with columns)
if (!all(is.element(curve_cols, curve_data %>% names()))) {
cli::cli_abort("Please provide curve data")
cli::cli_abort(
class = "not curve_params",
message = c("Please provide curve data.")
d-morrison marked this conversation as resolved.
Show resolved Hide resolved
)
}

# assign curve class
Expand Down
Loading
Loading