Nothing
strip_start_end_quotes <- function(x) {
x <- gsub("^\\\"", "", x)
x <- gsub(";[[:blank:]]*$", "", x)
x <- gsub("\\\"$", "", x)
return(x)
}
#' Get width of yacas output
#'
#' @concept yac_communication
#' @keywords internal
#'
#' @export
get_output_width <- function() {
res <- yac_str("Print(FormulaMaxWidth())")
res <- gsub("\n", "", res, fixed = TRUE)
res <- as.integer(res)
return(res)
}
#' Set width of yacas output
#'
#' @param w Width in number of characters
#'
#' @concept yac_communication
#' @keywords internal
#'
#' @export
set_output_width <- function(w) {
cmd <- paste0("SetFormulaMaxWidth(", w, ")")
return(invisible(yac_silent(cmd)))
}
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.