get_os_string <- function(unix_string, windows_string) {
output <- unix_string
if (.Platform$OS.type == "windows") {
output <- windows_string
}
output
}
find_string <- function(value, lines = c()) {
found <- FALSE
for (line in lines) {
found <- grepl(value, line)
if (found) {
break
}
}
found
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.