version 0.1.4

DESCRIPTION

@@ -0,0 +1,18 @@
+Package: CoastlineFD
+Title: Calculate the Coastline Fractal Dimension
+Version: 0.1.4
+Authors@R: person("Zhao Shiqi", role = c("aut", "cre"), email = "zhao0101010101@gmail.com")
+Author: Zhao Shiqi [aut, cre]
+Maintainer: Zhao Shiqi <zhao0101010101@gmail.com>
+URL: https://github.com/redworld123/CoastlineFD
+BugReports: https://github.com/redworld123/CoastlineFD/issues
+Description: A system is used to calculate the fractal dimension of coastline by boxes method and Dividers method.
+License: MIT + file LICENSE
+Encoding: UTF-8
+RoxygenNote: 7.2.3
+Imports: fields, ggplot2, progress, readxl, rgdal, sf, sp, tidyr,
+        utils, writexl
+NeedsCompilation: no
+Packaged: 2023-08-23 06:51:10 UTC; ZhaoShiqi
+Repository: CRAN
+Date/Publication: 2023-08-24 06:30:02 UTC

LICENSE

@@ -0,0 +1,2 @@
+YEAR: 2023
+COPYRIGHT HOLDER: CoastlineFD authors

MD5

@@ -0,0 +1,77 @@
+1d4bf05276c99f29d55c231cad9515b2 *DESCRIPTION
+1fed19e2b3949d09e097047f8867fe07 *LICENSE
+7dc4bbebb8d8937bbbee5c2e61788962 *NAMESPACE
+608851e2f0f4d1149d3feeca054030db *R/CoastlineFractalDimension.R
+ae3b3df9970b49b6523e608759bc957d *inst/extdata/BoxesFD/shoreline1985.CPG
+f09d3dda2f3a6b0326e22d01c8159c7b *inst/extdata/BoxesFD/shoreline1985.dbf
+59c39fffa6e992ff49efa25811457e2a *inst/extdata/BoxesFD/shoreline1985.prj
+0286ae19f3f03992e8e3e55c7725c91f *inst/extdata/BoxesFD/shoreline1985.sbn
+3912129556303ad69473ec20444005c9 *inst/extdata/BoxesFD/shoreline1985.sbx
+bda7a2f2bfec9164769a30900611e34b *inst/extdata/BoxesFD/shoreline1985.shp
+ac4c3e93fdd1ad8810a244f65a0dd865 *inst/extdata/BoxesFD/shoreline1985.shx
+ae3b3df9970b49b6523e608759bc957d *inst/extdata/BoxesFD/shoreline1986.cpg
+f09d3dda2f3a6b0326e22d01c8159c7b *inst/extdata/BoxesFD/shoreline1986.dbf
+59c39fffa6e992ff49efa25811457e2a *inst/extdata/BoxesFD/shoreline1986.prj
+0286ae19f3f03992e8e3e55c7725c91f *inst/extdata/BoxesFD/shoreline1986.sbn
+3912129556303ad69473ec20444005c9 *inst/extdata/BoxesFD/shoreline1986.sbx
+bda7a2f2bfec9164769a30900611e34b *inst/extdata/BoxesFD/shoreline1986.shp
+ac4c3e93fdd1ad8810a244f65a0dd865 *inst/extdata/BoxesFD/shoreline1986.shx
+f09d3dda2f3a6b0326e22d01c8159c7b *inst/extdata/DividersFD/den_shoreline1985.dbf
+59c39fffa6e992ff49efa25811457e2a *inst/extdata/DividersFD/den_shoreline1985.prj
+0286ae19f3f03992e8e3e55c7725c91f *inst/extdata/DividersFD/den_shoreline1985.sbn
+3912129556303ad69473ec20444005c9 *inst/extdata/DividersFD/den_shoreline1985.sbx
+364c6d7489c98a67ff20b15dba25b947 *inst/extdata/DividersFD/den_shoreline1985.shp
+b4dbb2b60c83e99ded7c22dfc5714fd3 *inst/extdata/DividersFD/den_shoreline1985.shx
+f09d3dda2f3a6b0326e22d01c8159c7b *inst/extdata/DividersFD/den_shoreline1986.dbf
+59c39fffa6e992ff49efa25811457e2a *inst/extdata/DividersFD/den_shoreline1986.prj
+364c6d7489c98a67ff20b15dba25b947 *inst/extdata/DividersFD/den_shoreline1986.shp
+b4dbb2b60c83e99ded7c22dfc5714fd3 *inst/extdata/DividersFD/den_shoreline1986.shx
+ae3b3df9970b49b6523e608759bc957d *inst/extdata/Fishnet/n0300.CPG
+b87c4506f960988a4fbbfb10adf8b441 *inst/extdata/Fishnet/n0300.dbf
+59c39fffa6e992ff49efa25811457e2a *inst/extdata/Fishnet/n0300.prj
+2dc5bb8da05652cb8bc2e9d4455dfdca *inst/extdata/Fishnet/n0300.sbn
+07f26a09f31a329790a55bfb6938679b *inst/extdata/Fishnet/n0300.sbx
+59a2f63b0703b64934dc75605201c4fc *inst/extdata/Fishnet/n0300.shp
+cd5236d34a5b120ec004181d855248a5 *inst/extdata/Fishnet/n0300.shp.xml
+3d0cdb14b5325ce6cc159cc4e2d27a9d *inst/extdata/Fishnet/n0300.shx
+ae3b3df9970b49b6523e608759bc957d *inst/extdata/Fishnet/n0600.CPG
+c230b53056952fc86d66504297c5e56e *inst/extdata/Fishnet/n0600.dbf
+59c39fffa6e992ff49efa25811457e2a *inst/extdata/Fishnet/n0600.prj
+3e0b2865eb77900f33cfda356d97513b *inst/extdata/Fishnet/n0600.sbn
+f11583d6d312c0382ab0193a6b3fd773 *inst/extdata/Fishnet/n0600.sbx
+fb9859a84287a4609be423b246320722 *inst/extdata/Fishnet/n0600.shp
+060c51125909b0372fb3a1278ef53a52 *inst/extdata/Fishnet/n0600.shp.xml
+a598fb3c960314b902ce52095972acf5 *inst/extdata/Fishnet/n0600.shx
+ae3b3df9970b49b6523e608759bc957d *inst/extdata/Fishnet/n0900.CPG
+0ad3f68de5dc8fb73e95127ef276e205 *inst/extdata/Fishnet/n0900.dbf
+59c39fffa6e992ff49efa25811457e2a *inst/extdata/Fishnet/n0900.prj
+7ce3b7731dc42fe31c3b3751f178693b *inst/extdata/Fishnet/n0900.sbn
+4ff9f2712b4ea8a5c969fe779a49d835 *inst/extdata/Fishnet/n0900.sbx
+488be512281ee1ee21b48be1d4ce0b0a *inst/extdata/Fishnet/n0900.shp
+927d8fad52d4abb32023b9d83f2fb32c *inst/extdata/Fishnet/n0900.shp.xml
+69ccb00e5da7b0b18acc89cac38ed78f *inst/extdata/Fishnet/n0900.shx
+ae3b3df9970b49b6523e608759bc957d *inst/extdata/Fishnet/n1000.cpg
+927ebb2fc228b6f2d56dc533971c7079 *inst/extdata/Fishnet/n1000.dbf
+59c39fffa6e992ff49efa25811457e2a *inst/extdata/Fishnet/n1000.prj
+35ce317e5ef9d0aba8825338fcd1f414 *inst/extdata/Fishnet/n1000.sbn
+409c3e5755a1c572806a73c7e673dbec *inst/extdata/Fishnet/n1000.sbx
+f677dc9bd280623cc34b205259cb273f *inst/extdata/Fishnet/n1000.shp
+ffd2302fecbcb37d24259d95483b5f52 *inst/extdata/Fishnet/n1000.shp.xml
+155b4ac2bce2fb94f835164826c9a91b *inst/extdata/Fishnet/n1000.shx
+ae3b3df9970b49b6523e608759bc957d *inst/extdata/Fishnet/n1050.cpg
+907bb276d78152d2bdc5300190f6fa99 *inst/extdata/Fishnet/n1050.dbf
+59c39fffa6e992ff49efa25811457e2a *inst/extdata/Fishnet/n1050.prj
+b9d1a19f56c6b41571f395bac1da30aa *inst/extdata/Fishnet/n1050.sbn
+be3f825d7b6a5231513bd691359d70a8 *inst/extdata/Fishnet/n1050.sbx
+41a1db4c5c94c2f9e47926a8208fda18 *inst/extdata/Fishnet/n1050.shp
+135f57413472a886cde0c043cc1bbd16 *inst/extdata/Fishnet/n1050.shp.xml
+704068dce9400a8739731c0635f268e5 *inst/extdata/Fishnet/n1050.shx
+ae3b3df9970b49b6523e608759bc957d *inst/extdata/Fishnet/n1100.cpg
+56f61470c53067d9ffe586909ba6131e *inst/extdata/Fishnet/n1100.dbf
+59c39fffa6e992ff49efa25811457e2a *inst/extdata/Fishnet/n1100.prj
+af68950877c4b0ccc94696b5b7896086 *inst/extdata/Fishnet/n1100.sbn
+29d7537ea26c11abb2218d8d63d7b257 *inst/extdata/Fishnet/n1100.sbx
+0f5255a2b95ea5bdbf83092064977858 *inst/extdata/Fishnet/n1100.shp
+7a5d676c13e5747d53ac4df8f3f92ea3 *inst/extdata/Fishnet/n1100.shp.xml
+6c129b56746d7858bf0933eafe27f0be *inst/extdata/Fishnet/n1100.shx
+fc24f3054fefab9b7d17dcc5c788668a *man/FD.Rd

NAMESPACE

@@ -0,0 +1,15 @@
+# Generated by roxygen2: do not edit by hand
+
+export(FD)
+import(fields)
+import(ggplot2)
+import(progress)
+import(readxl)
+import(rgdal)
+import(sf)
+import(sp)
+import(tidyr)
+import(utils)
+import(writexl)
+importFrom(stats,cor)
+importFrom(stats,lm)

R/CoastlineFractalDimension.R

@@ -0,0 +1,218 @@
+# Preprocessing
+globalVariables(c("Year", "type"))
+
+# Getting the coordinate sets
+Divider = function (line.x, line.y, line.id, r, flag) {
+
+  # Determining the starting point and also determining the center of the first circle
+  centerx = line.x[1]
+  centery = line.y[1]
+
+  # Building a data container and saving the center of the circle
+  line_x = vector()
+  line_y = vector()
+  line_x = append(line_x, centerx)
+  line_y = append(line_y, centery)
+
+  # Traversing the entire line
+  for (i in line.id[-1]) {
+
+    # Filtering to points with a distance from the center of the circle slightly greater than the radius
+    distance = sqrt((line.x[i] - centerx)**2 + (line.y[i] - centery)**2)
+    if (distance >= r) {
+
+      # Recording the new coordinates of the center of the circle
+      centerx = line.x[i]
+      centery = line.y[i]
+
+      # Saving the center of the circle
+      line_x = append(line_x,centerx);
+      line_y = append(line_y,centery);
+    }
+  }
+
+  # Results
+  if (length(line_x) == length(line_y)) {
+
+    if (flag) {
+      return(length(line_x))
+    } else {
+      return(data.frame("line_y" = line_y, "line_x" = line_x))
+    }
+  }
+}
+
+# Calculating the dividers fractal dimension
+Dividers_Functoin = function (path, r, pearsonValue) {
+
+  # Getting required data
+  my_data_sp = readOGR(path, verbose = FALSE)
+  my_data_sf = st_as_sf(my_data_sp)
+  my_data_dataframe = fortify(my_data_sp)
+
+  # Filtering required data
+  line.x = my_data_dataframe$lat
+  line.y = my_data_dataframe$long
+  line.id = my_data_dataframe$order
+
+  # Calculating the fractal dimension
+  results = vector()
+  for (i in r) {
+
+    result = Divider(line.x, line.y, line.id, i, TRUE)
+    results = append(results, result)
+  }
+  lgr = log10(r)
+  lgnr = log10(results)
+  my_data_content = data.frame("lgr" = lgr, "lgnr" = lgnr)
+
+  # Pearson
+  pearson = cor(lgr, lgnr, method = "pearson")
+  if (abs(pearson) >= pearsonValue) {
+    show_info = lm(lgnr ~ lgr, data = my_data_content)
+  } else {
+    return(NA)
+  }
+
+  return(0 - show_info[["coefficients"]][["lgr"]])
+}
+
+# Getting the number of boxes
+Box = function (my_data_sf, Fishnet) {
+
+  results = vector()
+  for (i in Fishnet) {
+
+    my_data_net = read_sf(i)
+    result = length(st_intersection(my_data_sf, my_data_net)$Id)
+    results = append(results, result)
+  }
+
+  return(results)
+}
+
+# Calculating the boxes fractal dimension
+Boxes_Function = function (path, netPath, n, pearsonValue) {
+
+  # Getting required data
+  my_data_sf = read_sf(path)
+  Fishnet = list.files(path = netPath,
+                       pattern = "*.shp$",
+                       all.files = FALSE,
+                       full.names = TRUE)
+
+  # Calculating the fractal dimension
+  nr = Box(my_data_sf, Fishnet)
+  lgn = log10(n)
+  lgnr = log10(nr)
+  my_data_content = data.frame("lgn" = lgn, "lgnr" = lgnr)
+
+  # Pearson
+  pearson = cor(lgnr, lgn, method = "pearson")
+  if (abs(pearson) >= pearsonValue) {
+    show_info = lm(lgnr ~ lgn, data = my_data_content)
+  } else {
+    return(NA)
+  }
+
+  return(0 - show_info[["coefficients"]][["lgn"]])
+}
+
+#'
+#' @title CoastlineFD
+#'
+#' @description Calculate the Coastline Fractal Dimension
+#'
+#' @usage FD(DinputPath, BinputPath, netPath, outputPath, year, r, pearsonValue, showFlag)
+#'
+#' @param DinputPath    All density shoreline files path
+#' @param BinputPath    All origin shoreline files path
+#' @param netPath       All fishnet files path
+#' @param outputPath    FD results will be exported here
+#' @param year          R vector object, which represent your study time
+#' @param r             R vector object, which represent your study scale
+#' @param pearsonValue  The Pearson coefficient of your input data
+#' @param showFlag      Drawing Function's result
+#'
+#' @returns An .xlsx file containing the results of the fractal dimension calculation, and a fractal dimension graph
+#'
+#' @export
+#' @import sf
+#' @import sp
+#' @import rgdal
+#' @import readxl
+#' @import fields
+#' @import writexl
+#' @import ggplot2
+#' @import progress
+#' @import tidyr
+#' @import utils
+#'
+#' @importFrom stats cor lm
+#'
+#' @examples
+#' DinputPath = list.files(system.file('extdata', package = 'CoastlineFD'),full.names = TRUE)[2]
+#' BinputPath = list.files(system.file('extdata', package = 'CoastlineFD'),full.names = TRUE)[1]
+#' netPath = list.files(system.file('extdata', package = 'CoastlineFD'),full.names = TRUE)[3]
+#' outputPath = paste0(system.file('extdata', package = 'CoastlineFD'), "/FD1985_1986.xlsx")
+#'
+#' FD(
+#'   DinputPath,
+#'   BinputPath,
+#'   netPath,
+#'   outputPath,
+#'   c(1985:1986),
+#'   c(300, 600, 900, 1000, 1050, 1100),
+#'   0.00,
+#'   TRUE
+#' )
+#'
+
+# Calculating final results
+FD = function (DinputPath, BinputPath, netPath, outputPath, year, r, pearsonValue, showFlag) {
+
+  my_data_D = list.files(path = DinputPath,
+                         pattern = "*.shp$",
+                         all.files = FALSE,
+                         full.names = TRUE)
+
+  my_data_B = list.files(path = BinputPath,
+                         pattern = "*.shp$",
+                         all.files = FALSE,
+                         full.names = TRUE)
+
+  DividersResults = vector()
+  BoxesResults = vector()
+  N = length(year)
+  pb = progress_bar$new(total = N)
+  for (i in c(1:N)) {
+
+    # Calculating Dividers_FD from timeline
+    DividersResult = Dividers_Functoin(my_data_D[i], r, pearsonValue)
+    DividersResults = append(DividersResults, DividersResult)
+
+    # Calculating Boxes_FD from timeline
+    BoxesResult = Boxes_Function(my_data_B[i], netPath, r, pearsonValue)
+    BoxesResults = append(BoxesResults, BoxesResult)
+
+    # print progress bar
+    pb$tick()
+    Sys.sleep(0.05)
+  }
+
+  FractalDimension = data.frame(
+    "Year" = year,
+    "DividersFD" = DividersResults,
+    "BoxesFD" = BoxesResults
+  )
+  write_xlsx(FractalDimension, outputPath)
+
+  if (showFlag) {
+
+    tmp = FractalDimension %>% pivot_longer(cols = 2:3, names_to = "type", values_to = "FD")
+    tmp %>% ggplot(aes(Year, FD, col = type, group = type)) +
+      geom_line(color = "black") +
+      geom_point(size = 2) +
+      ylab("FractalDimension")
+  }
+}

inst/extdata/BoxesFD/shoreline1985.CPG

@@ -0,0 +1 @@
+UTF-8

inst/extdata/BoxesFD/shoreline1985.prj

@@ -0,0 +1 @@
+PROJCS["WGS_1984_UTM_Zone_51N",GEOGCS["GCS_WGS_1984",DATUM["D_WGS_1984",SPHEROID["WGS_1984",6378137.0,298.257223563]],PRIMEM["Greenwich",0.0],UNIT["Degree",0.0174532925199433]],PROJECTION["Transverse_Mercator"],PARAMETER["False_Easting",500000.0],PARAMETER["False_Northing",0.0],PARAMETER["Central_Meridian",123.0],PARAMETER["Scale_Factor",0.9996],PARAMETER["Latitude_Of_Origin",0.0],UNIT["Meter",1.0]]

inst/extdata/BoxesFD/shoreline1986.cpg

@@ -0,0 +1 @@
+UTF-8

inst/extdata/BoxesFD/shoreline1986.prj

@@ -0,0 +1 @@
+PROJCS["WGS_1984_UTM_Zone_51N",GEOGCS["GCS_WGS_1984",DATUM["D_WGS_1984",SPHEROID["WGS_1984",6378137.0,298.257223563]],PRIMEM["Greenwich",0.0],UNIT["Degree",0.0174532925199433]],PROJECTION["Transverse_Mercator"],PARAMETER["False_Easting",500000.0],PARAMETER["False_Northing",0.0],PARAMETER["Central_Meridian",123.0],PARAMETER["Scale_Factor",0.9996],PARAMETER["Latitude_Of_Origin",0.0],UNIT["Meter",1.0]]

inst/extdata/DividersFD/den_shoreline1985.prj

@@ -0,0 +1 @@
+PROJCS["WGS_1984_UTM_Zone_51N",GEOGCS["GCS_WGS_1984",DATUM["D_WGS_1984",SPHEROID["WGS_1984",6378137.0,298.257223563]],PRIMEM["Greenwich",0.0],UNIT["Degree",0.0174532925199433]],PROJECTION["Transverse_Mercator"],PARAMETER["False_Easting",500000.0],PARAMETER["False_Northing",0.0],PARAMETER["Central_Meridian",123.0],PARAMETER["Scale_Factor",0.9996],PARAMETER["Latitude_Of_Origin",0.0],UNIT["Meter",1.0]]

inst/extdata/DividersFD/den_shoreline1986.prj

@@ -0,0 +1 @@
+PROJCS["WGS_1984_UTM_Zone_51N",GEOGCS["GCS_WGS_1984",DATUM["D_WGS_1984",SPHEROID["WGS_1984",6378137.0,298.257223563]],PRIMEM["Greenwich",0.0],UNIT["Degree",0.0174532925199433]],PROJECTION["Transverse_Mercator"],PARAMETER["False_Easting",500000.0],PARAMETER["False_Northing",0.0],PARAMETER["Central_Meridian",123.0],PARAMETER["Scale_Factor",0.9996],PARAMETER["Latitude_Of_Origin",0.0],UNIT["Meter",1.0]]

inst/extdata/Fishnet/n0300.CPG

@@ -0,0 +1 @@
+UTF-8

inst/extdata/Fishnet/n0300.prj

@@ -0,0 +1 @@
+PROJCS["WGS_1984_UTM_Zone_51N",GEOGCS["GCS_WGS_1984",DATUM["D_WGS_1984",SPHEROID["WGS_1984",6378137.0,298.257223563]],PRIMEM["Greenwich",0.0],UNIT["Degree",0.0174532925199433]],PROJECTION["Transverse_Mercator"],PARAMETER["False_Easting",500000.0],PARAMETER["False_Northing",0.0],PARAMETER["Central_Meridian",123.0],PARAMETER["Scale_Factor",0.9996],PARAMETER["Latitude_Of_Origin",0.0],UNIT["Meter",1.0]]

inst/extdata/Fishnet/n0300.shp.xml

@@ -0,0 +1,2 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<metadata xml:lang="zh"><Esri><CreaDate>20230710</CreaDate><CreaTime>11262200</CreaTime><ArcGISFormat>1.0</ArcGISFormat><SyncOnce>TRUE</SyncOnce><DataProperties><lineage><Process ToolSource="c:\program files (x86)\arcgis\desktop10.8\ArcToolbox\Toolboxes\Data Management Tools.tbx\CreateFishnet" Date="20230710" Time="112622">CreateFishnet D:\demo03\JHW\fishnet\n300.shp "413456.726122728 4077273.25966613" "413456.726122728 4077283.25966613" 300 300 # # "435677.357295112 4101120.0154576" NO_LABELS tide POLYGON</Process></lineage></DataProperties></Esri></metadata>

inst/extdata/Fishnet/n0600.CPG

@@ -0,0 +1 @@
+UTF-8

inst/extdata/Fishnet/n0600.prj

@@ -0,0 +1 @@
+PROJCS["WGS_1984_UTM_Zone_51N",GEOGCS["GCS_WGS_1984",DATUM["D_WGS_1984",SPHEROID["WGS_1984",6378137.0,298.257223563]],PRIMEM["Greenwich",0.0],UNIT["Degree",0.0174532925199433]],PROJECTION["Transverse_Mercator"],PARAMETER["False_Easting",500000.0],PARAMETER["False_Northing",0.0],PARAMETER["Central_Meridian",123.0],PARAMETER["Scale_Factor",0.9996],PARAMETER["Latitude_Of_Origin",0.0],UNIT["Meter",1.0]]

inst/extdata/Fishnet/n0600.shp.xml

@@ -0,0 +1,2 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<metadata xml:lang="zh"><Esri><CreaDate>20230710</CreaDate><CreaTime>11265500</CreaTime><ArcGISFormat>1.0</ArcGISFormat><SyncOnce>TRUE</SyncOnce><DataProperties><lineage><Process ToolSource="c:\program files (x86)\arcgis\desktop10.8\ArcToolbox\Toolboxes\Data Management Tools.tbx\CreateFishnet" Date="20230710" Time="112655">CreateFishnet D:\demo03\JHW\fishnet\n600.shp "413456.726122728 4077273.25966613" "413456.726122728 4077283.25966613" 600 600 # # "435677.357295112 4101120.0154576" NO_LABELS tide POLYGON</Process></lineage></DataProperties></Esri></metadata>

inst/extdata/Fishnet/n0900.CPG

@@ -0,0 +1 @@
+UTF-8

inst/extdata/Fishnet/n0900.prj

@@ -0,0 +1 @@
+PROJCS["WGS_1984_UTM_Zone_51N",GEOGCS["GCS_WGS_1984",DATUM["D_WGS_1984",SPHEROID["WGS_1984",6378137.0,298.257223563]],PRIMEM["Greenwich",0.0],UNIT["Degree",0.0174532925199433]],PROJECTION["Transverse_Mercator"],PARAMETER["False_Easting",500000.0],PARAMETER["False_Northing",0.0],PARAMETER["Central_Meridian",123.0],PARAMETER["Scale_Factor",0.9996],PARAMETER["Latitude_Of_Origin",0.0],UNIT["Meter",1.0]]

inst/extdata/Fishnet/n0900.shp.xml

@@ -0,0 +1,2 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<metadata xml:lang="zh"><Esri><CreaDate>20230710</CreaDate><CreaTime>11273200</CreaTime><ArcGISFormat>1.0</ArcGISFormat><SyncOnce>TRUE</SyncOnce><DataProperties><lineage><Process ToolSource="c:\program files (x86)\arcgis\desktop10.8\ArcToolbox\Toolboxes\Data Management Tools.tbx\CreateFishnet" Date="20230710" Time="112732">CreateFishnet D:\demo03\JHW\fishnet\n900.shp "413456.726122728 4077273.25966613" "413456.726122728 4077283.25966613" 900 900 # # "435677.357295112 4101120.0154576" NO_LABELS tide POLYGON</Process></lineage></DataProperties></Esri></metadata>

inst/extdata/Fishnet/n1000.cpg

@@ -0,0 +1 @@
+UTF-8

inst/extdata/Fishnet/n1000.prj

@@ -0,0 +1 @@
+PROJCS["WGS_1984_UTM_Zone_51N",GEOGCS["GCS_WGS_1984",DATUM["D_WGS_1984",SPHEROID["WGS_1984",6378137.0,298.257223563]],PRIMEM["Greenwich",0.0],UNIT["Degree",0.0174532925199433]],PROJECTION["Transverse_Mercator"],PARAMETER["False_Easting",500000.0],PARAMETER["False_Northing",0.0],PARAMETER["Central_Meridian",123.0],PARAMETER["Scale_Factor",0.9996],PARAMETER["Latitude_Of_Origin",0.0],UNIT["Meter",1.0]]

inst/extdata/Fishnet/n1000.shp.xml

@@ -0,0 +1,2 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<metadata xml:lang="zh"><Esri><CreaDate>20230710</CreaDate><CreaTime>11280800</CreaTime><ArcGISFormat>1.0</ArcGISFormat><SyncOnce>TRUE</SyncOnce><DataProperties><lineage><Process ToolSource="c:\program files (x86)\arcgis\desktop10.8\ArcToolbox\Toolboxes\Data Management Tools.tbx\CreateFishnet" Date="20230710" Time="112808">CreateFishnet D:\demo03\JHW\fishnet\n1000.shp "413456.726122728 4077273.25966613" "413456.726122728 4077283.25966613" 1000 1000 # # "435677.357295112 4101120.0154576" NO_LABELS tide POLYGON</Process></lineage></DataProperties></Esri></metadata>

inst/extdata/Fishnet/n1050.cpg

@@ -0,0 +1 @@
+UTF-8

inst/extdata/Fishnet/n1050.prj

@@ -0,0 +1 @@
+PROJCS["WGS_1984_UTM_Zone_51N",GEOGCS["GCS_WGS_1984",DATUM["D_WGS_1984",SPHEROID["WGS_1984",6378137.0,298.257223563]],PRIMEM["Greenwich",0.0],UNIT["Degree",0.0174532925199433]],PROJECTION["Transverse_Mercator"],PARAMETER["False_Easting",500000.0],PARAMETER["False_Northing",0.0],PARAMETER["Central_Meridian",123.0],PARAMETER["Scale_Factor",0.9996],PARAMETER["Latitude_Of_Origin",0.0],UNIT["Meter",1.0]]

inst/extdata/Fishnet/n1050.shp.xml

@@ -0,0 +1,2 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<metadata xml:lang="zh"><Esri><CreaDate>20230710</CreaDate><CreaTime>11284700</CreaTime><ArcGISFormat>1.0</ArcGISFormat><SyncOnce>TRUE</SyncOnce><DataProperties><lineage><Process ToolSource="c:\program files (x86)\arcgis\desktop10.8\ArcToolbox\Toolboxes\Data Management Tools.tbx\CreateFishnet" Date="20230710" Time="112847">CreateFishnet D:\demo03\JHW\fishnet\n1050.shp "413456.726122728 4077273.25966613" "413456.726122728 4077283.25966613" 1050 1050 # # "435677.357295112 4101120.0154576" NO_LABELS tide POLYGON</Process></lineage></DataProperties></Esri></metadata>