Nothing
## ----setup, include = FALSE---------------------------------------------------
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>"
)
options(rmarkdown.html_vignette.check_title = FALSE)
## ----eval=FALSE, echo=TRUE----------------------------------------------------
# libname(mylib, "c:/mypath/mydata", "csv")
#
## ----eval=FALSE, echo=TRUE----------------------------------------------------
# mylib$mydataset
## ----eval=FALSE, echo=TRUE----------------------------------------------------
# libname(mylib, "c:/mypath/mydata", "csv", filter = "a*")
#
## ----eval=FALSE, echo=TRUE----------------------------------------------------
# libname(mylib, "c:/mypath/mydata", "csv", filter = c("a*", "b*"))
#
## ----eval=FALSE, echo=TRUE----------------------------------------------------
# # Create libname
# libname(mylib, "c:/mypath/mydata", "csv")
#
# # Get dictionary
# d <- dictionary(mylib)
#
# # View dictionary
# # View(d)
## ----eval=FALSE, echo=TRUE----------------------------------------------------
# libname(libA, "c:/mypath/mydata1", "sas7bdat")
#
# lib_export(libA, libB, "c:/mypath/mydata2", "csv")
#
## ----eval=FALSE, echo=TRUE----------------------------------------------------
# # Create libname
# libname(lib1, "c:/mypath/mydata1", "csv")
#
# # Copy to a new location
# lib_copy(lib1, lib2, "c:/mypath/mydata2")
## ----eval=FALSE, echo=TRUE----------------------------------------------------
# library(dplyr)
# library(libr)
#
# # Define data library
# libname(dat, "./data", "csv")
#
# # Prepare data
# dm_mod <- dat$DM %>%
# select(USUBJID, SEX, AGE, ARM) %>%
# filter(ARM != "SCREEN FAILURE") %>%
# datastep({
#
# if (AGE >= 18 & AGE <= 24)
# AGECAT = "18 to 24"
# else if (AGE >= 25 & AGE <= 44)
# AGECAT = "25 to 44"
# else if (AGE >= 45 & AGE <= 64)
# AGECAT <- "45 to 64"
# else if (AGE >= 65)
# AGECAT <- ">= 65"
#
# })
#
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.