Nothing
#' @title
#' Set Lab Path.
#'
#' @description
#' Sets the path directory to the lab drive.
#'
#' @details
#' Sets the path directory to the lab drive, and saves it in the object
#' \code{petersenLab}.
#'
#' @return
#' The object \code{petersenLab} with containing the path directory to the lab
#' drive.
#'
#' @family lab
#'
#' @export
#'
#' @examples
#' \donttest{
#' petersenLabPath <- setLabPath()
#' }
setLabPath <- function(){
if(dir.exists("//lc-rs-store24.hpc.uiowa.edu/lss_itpetersen/Lab")){
petersenLab <- "//lc-rs-store24.hpc.uiowa.edu/lss_itpetersen"
} else if(dir.exists("/Volumes/lss_itpetersen/Lab")){
petersenLab <- "/Volumes/lss_itpetersen"
} else if(dir.exists("smb://lc-rs-store24.hpc.uiowa.edu/lss_itpetersen/Lab")){
petersenLab <- "smb://lc-rs-store24.hpc.uiowa.edu/lss_itpetersen"
} else {
petersenLab <- "/Shared/lss_itpetersen"
}
}
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.