-
Notifications
You must be signed in to change notification settings - Fork 0
/
debugging.R
56 lines (44 loc) · 1.58 KB
/
debugging.R
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
rm(list=ls())
modelRequire()
problem_request <- jsonlite::toJSON(
list(
TestID = "BL16",
idS = "002b6573-cf12-436d-bccd-0856b0bb0a21",
idP = "fe553db4-bbde-43dd-a6a0-804b9e46c57",
NamePlayer = "Christian_Prob",
Birthday = "1970-01-01",
Team = "Test & Technik",
SessionStart = "2017-02-20T12:42:15.660844+00:00",
adrB = c(64, 46, 64,64,46),
adrW = c(68,36,42,70,38),
adrCol = list("200,100,0","200,100,0","200,100,0","200,100,0","200,100,0"),
adrOut = c(68,36,42,70,38),
FBt = c(3284,3415,7744,3870,3094)
)
)
AnfrageJSONstring <- problem_request
AnfrageDF <- modelTransform(x = AnfrageJSONstring)
modelPredict(AnfrageDF)
# Zwei Exception wurden hinzugefügt.
# 1. Wenn alle Bälle einem Item zugeordnet werden können, werden die Rotationswinkel nicht verglichen (bugg)
# 2. Wenn kein Ball identifiziert werden kann auch nach Rotation, wird das Skript gestoppt mit der Fehlermeldung
# 'Footbonaut meldet ausschließlich nicht indizierbare Items!'
keine_Identitaet = jsonlite::toJSON(
list(
TestID = "BL16a",
idS = "002b6573-cf12-436d-bccd-0856b0bb0a22",
idP = "fe553db4-bbde-43dd-a6a0-804b9e46c57",
NamePlayer = "Mustermann, Tim",
Birthday = "2002-07-21",
Team = "U14",
SessionStart = "2014-03-22 13:42:03",
adrB = c(10,45,10,45,10),
adrW = c(12,10,12,10,12),
adrCol = list('1,95,169','1,95,200','1,95,169','1,95,200','1,95,169'),
adrOut = c(4,4,4,4,4),
FBt = c(2140,3284,3415,4586,8685)
)
)
AnfrageJSONstring <- keine_Identitaet
AnfrageDF <- modelTransform(x = AnfrageJSONstring)
modelPredict(AnfrageDF)