Set the Fielding Vendor

Sets the vendor dataset-level metadata key — the company that fielded the survey — on a survey design object or a data frame.

Usage

set_vendor(x, vendor)

Arguments

x

A survey design object or data.frame.

vendor

character(1), non-NA, or NULL to delete the key. Omitting it is an error, not a deletion.

Value

The modified object, invisibly.

Details

A convenience wrapper for set_dataset_metadata(x, vendor = vendor). It writes only the vendor key and leaves every other key untouched.

See also

Other metadata: classify_question_type(), extract_data_name(), extract_dataset_metadata(), extract_field_dates(), extract_field_period(), extract_higher_is(), extract_metadata(), extract_missing_codes(), extract_question_preface(), extract_reverse_coded(), extract_sata(), extract_survey_name(), extract_universe(), extract_val_labels(), extract_var_extra(), extract_var_label(), extract_var_note(), extract_vendor(), infer_question_prefaces(), set_data_name(), set_dataset_metadata(), set_field_dates(), set_field_period(), set_higher_is(), set_missing_codes(), set_question_preface(), set_reverse_coded(), set_sata(), set_survey_name(), set_universe(), set_val_labels(), set_var_extra(), set_var_label(), set_var_note(), survey_metadata(), survey_weighting_history()

Examples

df <- data.frame(id = 1:5, y = c(2, 4, 3, 5, 1), w = rep(1, 5))
df <- set_vendor(df, "Ipsos KnowledgePanel")
extract_vendor(df)
#> [1] "Ipsos KnowledgePanel"

# NULL deletes the key.
df <- set_vendor(df, NULL)
extract_vendor(df)
#> [1] NA

# The same call works on a survey design object.
d <- as_survey(df, weights = w)
d <- set_vendor(d, "Cint")
extract_vendor(d)
#> [1] "Cint"