#'
#' @title
#' lexisDS3
#'
#' @description
#' The third serverside function called by ds.lexis.
#' @details This is an assign function that simplifies the
#' returned output from ds.lexis. Specifically, without lexisDS3 the output consists of a table within
#' a list, but lexisDS3 converts this directly into a dataframe.
#' For more details see the extensive header for ds.lexis.
#'
#' @export
#'
lexisDS3 <- function(){
outobj <- data.frame(base::get("messageobj", envir = parent.frame())$expanded.table)
return(outobj)
}
#ASSIGN FUNCTION
# lexisDS3
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.