read.cal.info <- function(cal.info.file) {
cal.info = read.table(file = cal.info.file, sep=",", header = T,colClasses = "character")
if (!is.null(cal.info$Tref.ASPH)) cal.info$Tref.ASPH = as.numeric(cal.info$Tref.ASPH)
if (!is.null(cal.info$Tref.ACS)) cal.info$Tref.ACS = as.numeric(cal.info$Tref.ACS)
if (!is.null(cal.info$HS6.CALYEAR)) cal.info$HS6.CALYEAR = as.numeric(cal.info$HS6.CALYEAR)
if (!is.null(cal.info$scat.correction)) cal.info$scat.correction = str_trim(cal.info$scat.correction)
if (!is.null(cal.info$blank.ASPH)) cal.info$blank.ASPH = str_trim(cal.info$blank.ASPH)
if (!is.null(cal.info$blank.ACS)) cal.info$blank.ACS = str_trim(cal.info$blank.ACS)
if (!is.null(cal.info$blank.BB9)) cal.info$blank.BB9 = str_trim(cal.info$blank.BB9)
if (!is.null(cal.info$blank.BB3)) cal.info$blank.BB3 = str_trim(cal.info$blank.BB3)
return(cal.info)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.