Retain resource title and description

[peterdesmet]

Reported at #159: title and description for a new resource are not retained when writing a package. This is caused by:

frictionless-r/R/write_resource.R

Lines 25 to 43 in 0881f1c

	# Save schema and reassign all resource properties (in correct order)
	# This also removes $data and $read_from
	schema <- resource$schema
	resource <- list(
	name = resource_name,
	path = file_name,
	profile = "tabular-data-resource",
	# title: not set
	# description: not set
	format = "csv",
	mediatype = "text/csv",
	encoding = "utf-8", # Enforced by readr::write_csv()
	# dialect: not set, default
	# bytes: not set
	# hash: not set
	# sources: not set
	# licenses: not set
	schema = schema
	)

This behaviour should change, so that a custom provided title and description are retained. They won't ever conflict with any of the information set by write_resource() (in contrast with e.g. bytes). Alternatively, this could be expanded to any custom property (not only title and description, but that is slightly harder to implement.

Test with:

library(tidyverse)
library(frictionless)

# Make df
Name <- c("Jon", "Bill", "Maria", "Ben", "Tina")
Age <- c(23, 41, 32, 58, 26)
df <- data.frame(Name, Age)

datapackage <-
  create_package() %>%
  add_resource(
    resource_name = "ages", 
    data = df
  )

# Add descriptors at the datapackage level
datapackage$title <- "Data package title" # ✅
datapackage$description <- "Data package description" # ✅

# Add descriptors at the column level
datapackage$resources[[1]]$schema$fields[[1]]$title <- "Name" # ✅
datapackage$resources[[1]]$schema$fields[[1]]$description <- "Person's name" # ✅
datapackage$resources[[1]]$schema$fields[[2]]$title <- "Age" # ✅
datapackage$resources[[1]]$schema$fields[[2]]$description <- "Person's age" # ✅

# Add descriptors at the resource level
datapackage$resources[[1]]$title <- "Names and ages" # ❌
datapackage$resources[[1]]$description <- "Table showing names and ages of participants" # ❌

str(datapackage)
write_package(datapackage)