add and export function has_star

Author: douwe

NAMESPACE

@@ -1,6 +1,7 @@
 # Generated by roxygen2: do not edit by hand
 
 export(format_wells)
+export(has_star)
 export(kvlist_to_table)
 export(long_to_shortnames)
 export(read_data)

R/utils.R

@@ -46,3 +46,14 @@ kvlist_to_table <- function(kvlist, guide, reverse.translate = TRUE) {
 star_to_number <- function(x) {
   as.numeric(stringr::str_remove_all(x, "[*x?]"))
 }
+
+#' Check if a string has a star
+#' @param x A character vector
+#' @return A logical vector
+#' @description
+#' This function checks if a string has a star, x or a question mark.
+#' @export
+#'
+has_star <- function(x) {
+  stringr::str_detect(x, "[*x?]")
+}

man/has_star.Rd

@@ -17,6 +17,16 @@ test_that("function star_to_number works", {
   expect_equal(star_to_number("0*"), 0)
   expect_equal(star_to_number("1.15*"), 1.15)
   expect_equal(star_to_number(c("1.15","0*")), c(1.15, 0))
+  expect_equal(star_to_number(c("*1.15","*0")), c(1.15, 0))
+})
+
+test_that("function has_star works", {
+  expect_equal(has_star(NA), NA)
+  expect_equal(has_star("1*"), TRUE)
+  expect_equal(has_star("10*"), TRUE)
+  expect_equal(has_star("0*"), TRUE)
+  expect_equal(has_star("1.15*"), TRUE)
+  expect_equal(has_star(c("1.15","0*")), c(FALSE, TRUE))
 })
 
 test_that("function kvlist_to_table works", {