Code change to suppress duplicate warnings

[fang19911030]

• change code in set_parameters.R to avoid the dependency on specific user input
• suppress warnings thrown by the package sf, which duplicate many times in our log. After integrating these changes, the attached warnings will be suppressed.

  Warning in st_collection_extract.sfg(X[[i]], ...) :
  x contains no geometries of specified type
  Warning in st_collection_extract.sfg(X[[i]], ...) :
  x contains no geometries of specified type
  Warning in st_collection_extract.sfg(X[[i]], ...) :
  x contains no geometries of specified type
  Warning in st_collection_extract.sfg(X[[i]], ...) :
  x contains no geometries of specified type
  Warning in st_collection_extract.sfg(X[[i]], ...) :
  x contains no geometries of specified type
  Warning in st_collection_extract.sfg(X[[i]], ...) :
  x contains no geometries of specified type
  Warning in st_collection_extract.sfg(X[[i]], ...) :
  x contains no geometries of specified type
  Warning in st_collection_extract.sfg(X[[i]], ...) :
  x contains no geometries of specified type
  Warning in st_collection_extract.sfg(X[[i]], ...) :
  x contains no geometries of specified type
  Warning in st_collection_extract.sfg(X[[i]], ...) :
  x contains no geometries of specified type
  Warning in st_collection_extract.sfg(X[[i]], ...) :
  x contains no geometries of specified type
  Warning in st_collection_extract.sfg(X[[i]], ...) :
  x contains no geometries of specified type
  Warning in st_collection_extract.sfg(X[[i]], ...) :
  x contains no geometries of specified type
  Warning in st_collection_extract.sfg(X[[i]], ...) :
  x contains no geometries of specified type
  Warning in st_collection_extract.sfg(X[[i]], ...) :
  x contains no geometries of specified type
  Warning in st_collection_extract.sfg(X[[i]], ...) :
  x contains no geometries of specified type
  Warning in st_collection_extract.sfg(X[[i]], ...) :
  x contains no geometries of specified type
  Warning in st_collection_extract.sfg(X[[i]], ...) :
  x contains no geometries of specified type
  Warning in st_collection_extract.sfg(X[[i]], ...) :
  x contains no geometries of specified type
  Warning in st_collection_extract.sfg(X[[i]], ...) :
  x contains no geometries of specified type
  Warning in st_collection_extract.sfg(X[[i]], ...) :
  x contains no geometries of specified type
  Warning in st_collection_extract.sfg(X[[i]], ...) :
  x contains no geometries of specified type
  Warning in st_collection_extract.sfg(X[[i]], ...) :
  x contains no geometries of specified type
  Warning in st_collection_extract.sfg(X[[i]], ...) :
  x contains no geometries of specified type
  Warning in st_collection_extract.sfg(X[[i]], ...) :
  x contains no geometries of specified type
  Warning in st_collection_extract.sfg(X[[i]], ...) :
  x contains no geometries of specified type
  Warning in st_collection_extract.sfg(X[[i]], ...) :
  x contains no geometries of specified type
  Warning in st_collection_extract.sfg(X[[i]], ...) :
  x contains no geometries of specified type
  Warning in st_collection_extract.sfg(X[[i]], ...) :
  x contains no geometries of specified type
  Warning in st_collection_extract.sfg(X[[i]], ...) :
  x contains no geometries of specified type
  Warning in st_collection_extract.sfg(X[[i]], ...) :
  x contains no geometries of specified type
  Warning in st_collection_extract.sfg(X[[i]], ...) :
  x contains no geometries of specified type
  Warning in st_collection_extract.sfg(X[[i]], ...) :
  x contains no geometries of specified type
  Warning in st_collection_extract.sfg(X[[i]], ...) :
  x contains no geometries of specified type
  Warning in st_collection_extract.sfg(X[[i]], ...) :
  x contains no geometries of specified type
  Warning in st_collection_extract.sfg(X[[i]], ...) :
  x contains no geometries of specified type
  Warning in st_collection_extract.sfg(X[[i]], ...) :
  x contains no geometries of specified type
  Warning in st_collection_extract.sfg(X[[i]], ...) :
  x contains no geometries of specified type
  Warning in st_collection_extract.sfg(X[[i]], ...) :
  x contains no geometries of specified type
  Warning in st_collection_extract.sfg(X[[i]], ...) :
  x contains no geometries of specified type
  Warning in st_collection_extract.sfg(X[[i]], ...) :
  x contains no geometries of specified type
  Warning in st_collection_extract.sfg(X[[i]], ...) :
  x contains no geometries of specified type
  Warning in st_collection_extract.sfg(X[[i]], ...) :
  x contains no geometries of specified type
  Warning in st_collection_extract.sfg(X[[i]], ...) :
  x contains no geometries of specified type
  Warning in st_collection_extract.sfg(X[[i]], ...) :
  x contains no geometries of specified type
  Warning in st_collection_extract.sfg(X[[i]], ...) :
  x contains no geometries of specified type
  Warning in st_collection_extract.sfg(X[[i]], ...) :
  x contains no geometries of specified type
  Warning in st_collection_extract.sfg(X[[i]], ...) :
  x contains no geometries of specified type
  Warning in st_collection_extract.sfg(X[[i]], ...) :
  x contains no geometries of specified type
  Warning in st_collection_extract.sfg(X[[i]], ...) :
  x contains no geometries of specified type
  Warning in st_collection_extract.sfg(X[[i]], ...) :