createDotStatXML: createDotStatXML

Description Usage Arguments Details Author(s) See Also Examples

Description

Send file to createDotStatXML procedure

createDimension: function to create list for each dimension in data

listToXml: function to create xml from list. copied from https://github.com/PecanProject/pecan/blob/master/utils/R/utils.R

Usage

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
createDotStatXML(contacts = NULL, notifications = "f", owners = NULL,
  security = NULL, ds_names = NULL, ds_code = NULL, languages = NULL,
  action = NULL, updatequeries = NULL, theme = NULL, dir = NULL,
  nbdims = NULL, dim_names_e = NULL, dim_names_f = NULL,
  dim_codes = NULL, dim_common = NULL, dim_members_columns = NULL,
  dim_members_csv = NULL, data_csv = NULL, data_flags = NULL,
  flags_csv = NULL, domain = NULL, entrygate = NULL, csv_folder = NULL,
  xml_filename = "R_createDotStat.xml", useExe = TRUE, print = FALSE)

createDimension(code = stop("\"code\" must be specified"),
  nameen = stop("\"nameen\" must be specified"),
  namefr = stop("\"namefr\" must be specified"), common = FALSE,
  data = data, langEN = "1033", langFR = "1036", cr = "\n")

listToXml(item, tag)

Arguments

contacts

character string author Windows account

notifications

character, empty string or one of the following: N no notification is needed, W on warning, F on failure or S on success

ds_code

dataset code identifier, e.g. STI_STANi4_2015_v0 [direction]_[label]_[year]_[version]

action

character string one of CREATE, UPDATE, REPLACEALL or DELETE

updatequeries

logical to update dotstat queries

theme

character string to location of dataset in dotstat

domain

character string doamin, usually OECDMAIN

useExe

logical to use command line tool at \\dotstat\Data\UserUtilities\DataProviderInterface\CreateDotStatXml.exe

langEN

integer value to specify language ID for English (default: 1033)

langFR

integer value to specify language ID for French (default: 1036)

exdir

character string to specify output location

direction

character string [direction]/[division]

email

character string author email address

datasetnameEN

character string for dataset label in English

datasetnameFR

character string for dataset label in French

dimensions.list

a list with dimension members and dimension metadata

Details

Use the createDotStatXML command line tool to upload data in OECD.Stat

createDimension(code, nameen, namefr, common, data, langEN, langFR)

listToXml(item, tag)

Author(s)

OECD STAN

See Also

createDimension, vignette("createDotStatXML")

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
vignette(topic = "createDotStatXML", package = "stan")

source(file.path(dbpath, "GitHub", "stanData", "data-raw", "DOTSTAT", "exportSTANi4SA10.R"))

contacts="Werth_B"
notifications="f"
owners="Werth_B"
security="Werth_B"
ds_names=c("STANi4 Test5", "STANi4 Test5")
ds_code="STANi4SA10_10"
languages=c("en", "fr")
action="Create"
updatequeries=TRUE # exe uses "1" and "0"
theme="Industry and Services|Structural Analysis (STAN) Databases"
dir="STI"
nbdims=4
dim_names_e=c("Country", "Variable", "Industry", "Time")
dim_names_f=c("Pays", "Variable", "Industrie", "Temps")
dim_codes=c("LOCATION", "VAR", "IND", "TIME");
dim_common=c("LOCATION", "*", "*", "TIME");
dim_members_columns=c("\\*", shQuote("CLO"), shQuote("CPLO"), "\\*")
dim_members_csv=c("*", "dim_Var.txt", "dim_Ind.txt", "*")
data_flags="false"
domain="OECDMAIN"
entrygate="STI - Structural Analysis (STAN) Databases"
xml_filename="CREATE_STANi4SA10.xml"
print=FALSE
## useExe=TRUE

test <- createDotStatXML(contacts=contacts, notifications=notifications, owners=owners, security=security, ds_names=ds_names, ds_code=ds_code, languages=languages, action=action, updatequeries=updatequeries, theme=theme, dir=dir, nbdims=nbdims, dim_names_e=dim_names_e, dim_names_f=dim_names_f, dim_codes=dim_codes, dim_common=dim_common, dim_members_columns=dim_members_columns, dim_members_csv=dim_members_csv, data_flags=data_flags, domain=domain, entrygate=entrygate, csv_folder=csv_folder, xml_filename=xml_filename, print=TRUE)
cat(test)
require(stanData)
data(STANNAi4)
data=DATA.STANi4[sample(c(1:nrow(DATA.STANi4)), 100),]

code.year <- c(min(data[["year"]]):max(data[["year"]]))
dimYear.df <- data.frame(Key=code.year,
                         KeyParent=code.year,
                         NameEN=code.year,
                         NameFR=code.year,
                         Order=seq(along=code.year))

create.dimensions.list <- list(year=
                                   list(code="TIME",
                                        nameen="Time",
                                        namefr="Temps",
                                        common=TRUE,
                                        data=dimYear.df)
                               )

dimensions.list <- lapply(create.dimensions.list,
                          function (x) createDimension(code=x$code,
                                                             nameen=x$nameen,
                                                             namefr=x$namefr,
                                                             common=x$common,
                                                             data=x$data
                                                             ))

names(dimensions.list) <- rep("Dimension", length(dimensions.list))

bowerth/stan documentation built on May 13, 2019, 12:38 a.m.