R/read.dbf.R

In mhweber/spsurvey: Spatial Survey Design and Analysis

################################################################################
# Function: read.dbf
# Programmer: Tom Kincaid
# Date: March 1, 2005
# Last Revised: May 30, 2019
#
#' Read the dbf File of an ESRI Shapefile
#'
#' This function reads the dbf file of an ESRI shapefile and creates a data
#'   frame.
#'
#' @param filename  Character string containing the name of the shapefile.
#'
#' @return Data frame containing contents of the dbf file.
#'
#' @author Tom Kincaid \email{Kincaid.Tom@epa.gov}
#' @author Marc Weber  \email{Weber.Marc@epa.gov}
#'
#' @export
################################################################################

read.dbf <- function(filename) {

# Ensure that the file extension is ".shp"

   
   if(!grepl(".shp",filename))
      filename <- paste0(filename, '.shp')

# Read the shapefile

   dbffile <- st_read(filename, quiet = TRUE)

# Drop the geometry column from dbffile to create a data frame

   dbffile <- st_set_geometry(dbffile, NULL)

# Return the data frame

   return(dbffile)
}