Nothing
## ----eval=T, include=T--------------------------------------------------------
library(baRcodeR)
## ----eval=F, include=T--------------------------------------------------------
# IDcodes <- uniqID_maker(user = TRUE)
## ----eval=T, include=T--------------------------------------------------------
IDcodes <- uniqID_maker(string = "example", level = 5:10, digits = 3)
IDcodes
## ----eval=T, include=T--------------------------------------------------------
number_sequence <- seq(1, 10, 2)
IDcodes <- uniqID_maker(string = "example", level = number_sequence, digits = 3)
## ----eval=T, include=F--------------------------------------------------------
IDcodes
## ----eval=F, include=T--------------------------------------------------------
# write.csv(IDcodes, "IDcodes.csv")
## ----eval=F, include=T--------------------------------------------------------
# IDcodes <- uniqID_hier_maker(user = TRUE)
## -----------------------------------------------------------------------------
level_one <- c("a", 1, 3)
level_two <- c("b", 1, 2)
level_three <- c("c", 10, 12)
hier_list <- list(level_one, level_two, level_three)
## ---- eval=T, include=T-------------------------------------------------------
IDcodes <- uniqID_hier_maker(hierarchy = hier_list, digits = 1)
## ----eval=T, include=T--------------------------------------------------------
IDcodes
## ----eval=F, include=T--------------------------------------------------------
# write.csv(IDcodes, "IDcodes.csv")
## ----eval=F, include=T--------------------------------------------------------
# # Reading in from a csv file
# IDcodes<-read.csv("IDcodes.csv")
## ----eval=F, include=T--------------------------------------------------------
# create_PDF(user=TRUE, Labels=IDcodes)
## ----eval=F, include=T--------------------------------------------------------
# create_PDF(Labels = IDcodes, name = "example", ErrCorr = "Q", Fsz = 2.5)
## ----eval=F, include=T--------------------------------------------------------
#
# ## This will create a pdf sheet where the labels are printed in columns then rows. It will skip 3 rows from the top and 1 column from the left.
# create_PDF(Labels = Labels, name = "example_advanced", ErrCorr = "Q", Fsz = 2.5, Across = F, ERows = 3, ECol = 1)
## -----------------------------------------------------------------------------
# original label
X <- "text\ttext"
cat(X)
cat(gsub("\\t", "\x20\x20\x20\x20", X))
## -----------------------------------------------------------------------------
X <- "text\\ntext"
cat(X)
cat(gsub("\\\\n","\n",X))
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.