# NOT RUN {
auth <- setup_highbond(Sys.getenv('highbond_openapi'),
Sys.getenv('highbond_org'),
Sys.getenv('highbond_datacenter'))
field_name <- c("a", "b", "c", "d", "e", "f", "g")
display_name <- c("field_one", "field_two", "field_three",
"field_four", "field_five", "field_six", "field_seven")
data_type <- c("character", "numeric", 'logical',
'date', 'datetime', 'file', 'digital_signature')
columns <- data.frame(field_name, display_name, data_type)
table_id <- 12345
response <- create_results_columns(auth, table_id, columns)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab