#' Search WolframAlpha
#' @description Improve your workflow by searching WolframAlpha directly from the console without having to switching to the browser and
#' opening a new tab first.
#' @param search_terms Search terms encapsulated in " ".
#' @keywords wolframalpha internet workflow
#' @examples
#' wolframalpha("my search terms")
#' wolfram("my search terms")
#' @export
wolframalpha <- function(search_terms) {
if (missing(search_terms)) {
message("Opening WolframAlpha in browser")
browseURL(paste0("https://www.wolframalpha.com"))
}
else {
message("Searching WolframAlpha for \"", search_terms, "\" in browser")
browseURL(paste0("https://www.wolframalpha.com/input/?i=", URLencode(search_terms)))
}
}
#' @export
#' @rdname wolframalpha
wolfram <- wolframalpha
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.