diff --git a/R/formhub.R b/R/formhub.R index ec4c10c..e107dd4 100644 --- a/R/formhub.R +++ b/R/formhub.R @@ -164,7 +164,7 @@ replaceAllNamesWithLabels <- function(formhubDataObj, language=NULL) { #' privateData <- formhubDownload("Private_Data_For_Testing", uname="formhub_r", pass="t3st~p4ss") formhubDownload = function(formName, uname, pass=NA, ...) { fUrl <- function(formName, uname, form=F) { - str_c('http://formhub.org/', uname, '/forms/', formName, + str_c('https://odk.ona.io/', uname, '/forms/', formName, ifelse(form,'/form.json', '/data.csv')) } dataUrl = fUrl(formName, uname) @@ -380,11 +380,11 @@ addPhotoURLs = function(formhubDataObj, formhubUsername, type="url") { stopifnot(size %in% c("", "medium", "small")) if (type == "url") { ifelse(is.na(photoCol), "", - sprintf("https://formhub.org/attachment/%s?media_file=%s/attachments/%s", + sprintf("https://odk.ona.io/attachment/%s?media_file=%s/attachments/%s", size, formhubUsername, photoCol)) } else if (type == "img") { ifelse(is.na(photoCol), "", - sprintf('', + sprintf('', size, formhubUsername, photoCol)) } else { stop("Type must be either 'url' or 'img'.")