context("basic functionality")
test_that("Check Names", {
library(testthat)
library(dplyr)
df_players <- nba_players()
names_players <-
df_players %>% names()
actual_names <- c("isActive", "isRookie", "namePlayer", "idPlayer", "countSeasons",
"nameTeam", "namePlayerLastFirst", "yearSeasonFirst", "yearSeasonLast",
"slugPlayer", "idTeam", "cityTeam", "teamName", "slugTeam", "codeTeam",
"hasGamesPlayedFlag", "urlPlayerStats", "urlPlayerThumbnail",
"urlPlayerHeadshot", "urlPlayerActionPhoto", "namePlayerLast",
"namePlayerFirst")
expect_identical(object = names_players, expected = actual_names)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.