In arisp99/testactionspkg: What the Package Does (One Line, Title Case)

knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

library(testactionspkg)
path <- system.file("extdata", "small.csv", package = "testactionspkg")

Make a reprex

data <- tibble::tribble(
  ~X1, ~X2, ~X3,
  "Gene ID", "PF3D7_0106300", "PF3D7_0523000",
  "Gene", "atp6", "mdr1",
  "Mutation Name", "atp6-Ala623Glu", "mdr1-Asn86Tyr",
  "ExonicFunc", "missense_variant", "missense_variant",
  "AA Change", "Ala623Glu", "Asn86Tyr",
  "Targeted", "Yes", "Yes",
  "D10-JJJ-23", "0", "13",
  "D10-JJJ-43", "0", "0"
)

local_file <- withr::local_tempfile(fileext = ".csv")
vroom::vroom_write(data, local_file)

vroom::vroom(
  file = local_file,
  col_names = FALSE,
  col_select = c(1, 2),
  show_col_types = FALSE
)

# testactionspkg::read(local_file)

Attempt to read a file and manipulate .col_names.

# testactionspkg::read(path, .col_names = FALSE)

arisp99/testactionspkg documentation built on Nov. 14, 2024, 9:33 p.m.