# context("project-related functions")
# require("bindrcpp")
# require("dplyr")
#
# test_that("render_proj_io", {
# dir <- file.path("tests", "project-render")
# file <- "default_template_rmd2r.R"
# if(interactive()) {
# dir.exists(file.path("inst", dir))
# } else {
# print(dir.exists(dir))
# }
# path <-
# system.file(dir, file, package = "teproj", mustWork = TRUE)
# file.exists(path)
#
# actual_df <-
# render_proj_io(
# path_input = path,
# # dir_input = dir,
# dir_output = "output",
# # dir_output = file.path(dir, "output"), # Use this if interactive().
# basename_output = "deleteme",
# rgx_input = ".",
# rgx_output = ".",
# keep_rmd = TRUE,
# render = FALSE,
# return = TRUE
# )
# print(actual_df)
#
# expect <- 0
# # actual <- nrow(actual_df)
# # expect_gt(actual, expect)
# # unlink(list.files(dir = file.path(path, "output")))
# })
# NOTE: Below was commented out even before removing these functions from the package.
#
# test_that("parse_proj_io", {
# dir <- file.path("tests", "project-parse")
# file <- "script.R"
# if(interactive()) {
# dir.exists(file.path("inst", dir))
# } else {
# print(dir.exists(dir))
# }
# path <-
# system.file(dir, file, package = "teproj", mustWork = TRUE)
# file.exists(path)
#
# actual_df <- parse_proj_io(path)
# if (interactive()) {
# actual_df
# dplyr::select(actual_df, io, var, file, ext, accuracy, comment)
# }
#
# expect <- 0
# actual <- nrow(actual_df)
# expect_gt(actual, expect)
#
# # No test for this yet.
# actual_df <-
# parse_proj_io(path, rgx_input = "read", rgx_output = "write")
# actual <- nrow(actual_df)
# expect_gt(actual, expect)
# })
# TODO:
# path <- "O:/_other/packages/teproj/inst/tests/project-parse/script.R"
# parsed <- utils::getParseData(parse(path))
# parsed_f <- parsed[parsed$parent %in% parsed$parent[grepl("SYMBOL_FUNCTION_CALL", parsed$token)], ]
# rgx_input <- "import"
# rgx_output <- "export"
# parsed[parsed$parent %in% parsed$parent[grepl("SYMBOL_PACKAGE", parsed$token)], ]
# parsed_f_input <- parsed_f[grepl(rgx_input, parsed_f$text), c("parent", "token", "text")]
# parsed_f_output <- parsed_f[grepl(rgx_output, parsed_f$text), c("parent", "token", "text")]
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.