dput_raw ish type thing

funz.R

funz <- function(x) {
    if (!is.character(x) || length(x) != 1L || is.na(x))
        stop("`x` must be a scalar character that's not NA.")
    middle <- character()
    go <- TRUE
    i <- 1L
    while(go) {
        exploded <- c(")", middle, "\"")
        delim <- paste(exploded, collapse = "")
        if (grepl(delim, x, fixed = TRUE)) {
            middle <- rep.int("-", i)
            i <- i + 1L
            next
        }
        go <- FALSE
    }
    start <- exploded
    start[1] <- "r\""
    start[length(start)] <- "("
    start <- paste(start, collapse = "")
    cat(start, x, delim, "\n", sep = "")
    invisible(x)
}

y <- "bob)\""
funz(y)
#> r"-(bob)")-"
r"-(bob)")-" == y
#> [1] TRUE