inst/test-data/specific-redcapr/read-batch-simple/error-bad-token.R

In OuhscBbmc/REDCapR: Interaction Between R and REDCap

structure(list(field_name = c("record_id", "v1", "curly_quote_single", 
"curly_quote_double_left", "curly_quote_double_right", "long_dash"
), form_name = c("form_1", "form_1", "form_1", "form_1", "form_1", 
"form_1"), section_header = c(NA_character_, NA_character_, NA_character_, 
NA_character_, NA_character_, NA_character_), field_type = c("text", 
"dropdown", "radio", "radio", "radio", "radio"), field_label = c("Record ID", 
"Is the laser mounted on the shark?�?�", "My child doesn't like candy", 
"Maybe I don't \"look the part\"", "Maybe I don't \"look comfortable on camera\"", 
"Maybe I don't \"wear the latest clothes\" −or even ones that don't \"reek\""
), select_choices_or_calculations = c(NA, "0, No | 1, Yes | 3, I should find out", 
"0, (0) Never or Almost Never | 1, (1) Sometimes | 2, (2) Often", 
"0, Bennett | 1, Brauer", "0, Bennett | 1, Brauer", "0, Bennett | 1, Brauer"
), field_note = c(NA_character_, NA_character_, NA_character_, 
NA_character_, NA_character_, NA_character_), text_validation_type_or_show_slider_number = c(NA_character_, 
NA_character_, NA_character_, NA_character_, NA_character_, NA_character_
), text_validation_min = c(NA_character_, NA_character_, NA_character_, 
NA_character_, NA_character_, NA_character_), text_validation_max = c(NA_character_, 
NA_character_, NA_character_, NA_character_, NA_character_, NA_character_
), identifier = c(NA_character_, NA_character_, NA_character_, 
NA_character_, NA_character_, NA_character_), branching_logic = c(NA_character_, 
NA_character_, NA_character_, NA_character_, NA_character_, NA_character_
), required_field = c(NA_character_, NA_character_, NA_character_, 
NA_character_, NA_character_, NA_character_), custom_alignment = c(NA_character_, 
NA_character_, NA_character_, NA_character_, NA_character_, NA_character_
), question_number = c(NA_character_, NA_character_, NA_character_, 
NA_character_, NA_character_, NA_character_), matrix_group_name = c(NA_character_, 
NA_character_, NA_character_, NA_character_, NA_character_, NA_character_
), matrix_ranking = c(NA_character_, NA_character_, NA_character_, 
NA_character_, NA_character_, NA_character_), field_annotation = c(NA, 
NA, NA, "https://github.com/OuhscBbmc/REDCapR/issues/290", "https://github.com/OuhscBbmc/REDCapR/issues/290", 
"https://github.com/OuhscBbmc/REDCapR/issues/290")), class = c("spec_tbl_df", 
"tbl_df", "tbl", "data.frame"), row.names = c(NA, -6L), spec = structure(list(
    cols = list(field_name = structure(list(), class = c("collector_character", 
    "collector")), form_name = structure(list(), class = c("collector_character", 
    "collector")), section_header = structure(list(), class = c("collector_character", 
    "collector")), field_type = structure(list(), class = c("collector_character", 
    "collector")), field_label = structure(list(), class = c("collector_character", 
    "collector")), select_choices_or_calculations = structure(list(), class = c("collector_character", 
    "collector")), field_note = structure(list(), class = c("collector_character", 
    "collector")), text_validation_type_or_show_slider_number = structure(list(), class = c("collector_character", 
    "collector")), text_validation_min = structure(list(), class = c("collector_character", 
    "collector")), text_validation_max = structure(list(), class = c("collector_character", 
    "collector")), identifier = structure(list(), class = c("collector_character", 
    "collector")), branching_logic = structure(list(), class = c("collector_character", 
    "collector")), required_field = structure(list(), class = c("collector_character", 
    "collector")), custom_alignment = structure(list(), class = c("collector_character", 
    "collector")), question_number = structure(list(), class = c("collector_character", 
    "collector")), matrix_group_name = structure(list(), class = c("collector_character", 
    "collector")), matrix_ranking = structure(list(), class = c("collector_character", 
    "collector")), field_annotation = structure(list(), class = c("collector_character", 
    "collector"))), default = structure(list(), class = c("collector_character", 
    "collector")), skip = 1), class = "col_spec"))