Example code throws "Error: lexical error: invalid char in json text." #69
Comments
|
The package is dependent on library(httr2)
lim_url <- "your-url"
lim_user <- "your-username"
lim_pw <- "your-password"
# Retrieve session key first and then
request(lim_url) |>
req_body_json(
list(
method = "your-method",
params = <your-parameters-as-a-list>,
id = " "
)
) |>
req_perform() |>
resp_body_json()You could also retrieve the session key with this method by running: request(Sys.getenv(lim_url)) |>
req_body_json(
list(
method = "get_session_key",
params = list(
username = lim_username,
password = lim_password
),
id = " "
)
) |>
req_perform() |>
resp_body_json() |
|
Immensely helpful, thank you so much!! This solved the issues for me, I now think I understand how to directly do arbitrary API calls from R: I first get a session key: # get session key
session_key_response <- request(credentials_limesurvey$lime_api) |>
req_body_json(
list(
method = "get_session_key",
params = list(
username = credentials_limesurvey$lime_username,
password = credentials_limesurvey$lime_password
),
id = " "
)
) |>
req_perform() |>
resp_body_json()Then I use this session key in subsequent API calls: # extract the session key value
my_session_key <- session_key_response$result
# use the session key to call a method, here 'list_surveys'
request(credentials_limesurvey$lime_api) |>
req_body_json(
list(
method = "list_surveys",
params = list(
sSessionKey = my_session_key
),
id = " "
)
) |>
req_perform() |>
resp_body_json() Getting responses is a little fiddly because results are returned as a base 64 encoded string: # use the session key to call the 'export_responses' method -- the parameters are documented at https://api.limesurvey.org/classes/remotecontrol-handle.html#method_export_responses
some_responses <- request(credentials_limesurvey$lime_api) |>
req_body_json(
list(
method = "export_responses",
params = list(
sSessionKey = my_session_key,
iSurveyID = 946885, #the id of my surveys
sDocumentType = "csv" #we want responses in CSV format
),
id = " "
)
) |>
req_perform() |>
resp_body_json()
# the result is a base64 encoded string, so we need to decode it
decoded_data <- base64enc::base64decode(some_responses$result)
# save out the result
writeBin(decoded_data, "decoded_responses.csv")
# read it into R --- note that the delimiter is semicolon!
responses <- read.csv("decoded_responses.csv", sep = ";") |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment
Hi there,
I'm trying to simply run the 'get_summary' example from the readme, and it throws this error:
Here's the traceback
call_limer(method = "list_surveys")works, but I get this error consistently when trying to export data with an arbitrary API call.The text was updated successfully, but these errors were encountered: