Nothing
tests/testthat/testfz_normal.R
In webddx: Interact with Online Differential Diagnosis-Generating Tools
context("FindZebra API client")
library("webddx")
test_that("query_fz works for a simple query", {
NUM_ROWS <- 5
FIELDS <- c("display_title", "retrieved_date", "source", "score")
tester_df <- query_fz(c("muscle pain", "fatigue"),
num_rows = NUM_ROWS,
fields = FIELDS)
expect_equal(nrow(tester_df), NUM_ROWS)
expect_equal(ncol(tester_df), length(FIELDS))
})
Try the webddx package in your browser
Any scripts or data that you put into this service are public.
webddx documentation built on May 2, 2019, 6:11 a.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
context("FindZebra API client")
library("webddx")
test_that("query_fz works for a simple query", {
NUM_ROWS <- 5
FIELDS <- c("display_title", "retrieved_date", "source", "score")
tester_df <- query_fz(c("muscle pain", "fatigue"),
num_rows = NUM_ROWS,
fields = FIELDS)
expect_equal(nrow(tester_df), NUM_ROWS)
expect_equal(ncol(tester_df), length(FIELDS))
})
Try the webddx package in your browser
Any scripts or data that you put into this service are public.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.