diff --git a/R/ne_file_name.R b/R/ne_file_name.R
index 605aeb8..3741d1e 100644
--- a/R/ne_file_name.R
+++ b/R/ne_file_name.R
@@ -51,6 +51,10 @@ ne_file_name <- function(
     type <- paste0("admin_0_", type)
   }
 
+  # Different types such as area, line, etc. are all included within the same
+  # zip file for the parks and protected lands type. Therefore, we need to
+  # download the zip file and then select the
+  # appropriate shapefile to read.
   if (type %in% c(
     "parks_and_protected_lands_area",
     "parks_and_protected_lands_line",
@@ -60,7 +64,6 @@ ne_file_name <- function(
     type <- "parks_and_protected_lands"
   }
 
-
   # add admin_1 to known types
   # this actually just expands 'states' to the name including lakes
   if (type == "states") {