Nothing
library(testthat)
library(readr)
library(lubridate)
library(lazytrade)
context("import_data")
test_that("import works", {
path_sbxm <- normalizePath(tempdir(),winslash = "/")
file.copy(from = system.file("extdata", "OrdersResultsT1.csv", package = "lazytrade"),
to = file.path(path_sbxm, "OrdersResultsT1.csv"), overwrite = TRUE)
DFT1 <- import_data(path_sbxm = path_sbxm,
trade_log_file = "OrdersResultsT1.csv")
expect_s3_class(DFT1, class = 'data.frame')
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.