How to export spatial datasets in R, such as tornados dataset in GISTools package, as a shapefile with the exact same spatial reference and the exact values?

library(GISTools)

data(tornados)

Desired:

• "SpatialPolygonsDataFrame" to "shapefile"
• "(Forced) SpatialPointsDataFrame" to "shapefile"
• "(Non-Forced) SpatialPointsDataFrame" to "shapefile"
• "SpatialLinesDataFrame" to "shapefile".