tbl <- extremesTable(data) # formTable <- padTable(tbl) # cat(formTable) if(!identical(tbl, "The dataset requested is empty.")){ kable(tbl$toRet, align='r', row.names=FALSE) }
if(!identical(tbl, "The dataset requested is empty.")){ if(any(grepl("\\s\\*$", tbl$toRet[,"Date"]))){cat("*\\* Multiple occurrences of the same extreme in selected dataset.*", "\n", seperator="\n")} if(tbl$footnote){cat("*Some extreme values in this period occurred at times that had no corresponding value in the related time series.*", "\n", seperator="\n")} cat("*Extremes date/time determined from un-rounded values*") }
r if(identical(tbl, "The dataset requested is empty.")) {paste(tbl)}
if(!identical(tbl, "The dataset requested is empty.")){ tbl2 <- extremesQualifiersTable(data, tbl$toRet, getExtremesConstants()$PRIMARY_HEADER_PREFIX, getExtremesConstants()$UPCHAIN_HEADER_PREFIX) if(!is.null(tbl2) && nrow(tbl2) > 0){ kable(tbl2, align='l', row.names=FALSE, caption = "Qualifiers") } }
r printVersionStrings()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.