我正在为Shiny开发一个自定义输入绑定。我有一个data.table
,我传递给一个javascript。不幸的是,数据需要按行编码,而不是按列编码。private$inputMessageQueue
是在没有额外参数的情况下处理的,所以没有地方覆盖shiny::toJSON
的默认参数。我怎样才能得到我需要的格式?
接收我的data.table
(作为message$data
)的闪亮函数
debugging in: session$sendInputMessage(inputId, message)
debug: {
data <- list(id = inputId, message = message)
private$inputMessageQueue[[length(private$inputMessageQueue) +
1]] <- data
}
my data.table
:
Browse[4]> str(message$data)
Classes ‘data.table’ and 'data.frame': 8 obs. of 7 variables:
$ coOrdinate : chr "c1" "c2" "c3" "c4" ...
$ injectionSite : Factor w/ 2 levels "head","body": NA NA NA NA NA NA NA NA
$ drug : Factor w/ 2 levels "aconitin","nicotine": NA NA NA NA NA NA NA NA
$ drugConcentration: num NA NA NA NA NA NA NA NA
$ bath : Factor w/ 2 levels "aconitin","nicotine": NA NA NA NA NA NA NA NA
$ bathConcentration: num NA NA NA NA NA NA NA NA
$ status : Factor w/ 3 levels "active","dead",..: 1 1 1 1 1 1 1 1
- attr(*, ".internal.selfref")=<externalptr>
实际数据在我的data.table
:
Browse[4]> message$data
coOrdinate injectionSite drug drugConcentration bath bathConcentration status
1: c1 NA NA NA NA NA active
2: c2 NA NA NA NA NA active
3: c3 NA NA NA NA NA active
4: c4 NA NA NA NA NA active
5: c5 NA NA NA NA NA active
6: c6 NA NA NA NA NA active
7: c7 NA NA NA NA NA active
8: c8 NA NA NA NA NA active
我想让Shiny做什么:
Browse[4]> jsonlite::toJSON(message$data)
[
{"coOrdinate":"c1","status":"active"},
{"coOrdinate":"c2","status":"active"},
{"coOrdinate":"c3","status":"active"},
{"coOrdinate":"c4","status":"active"},
{"coOrdinate":"c5","status":"active"},
{"coOrdinate":"c6","status":"active"},
{"coOrdinate":"c7","status":"active"},
{"coOrdinate":"c8","status":"active"}
]
当private$InputMessageQueue被处理时(在Shiny . r中找到),Shiny做什么
jsonlite::toJSON(I(message$data),dataframe='columns',null='null', na='null', auto_unbox=T, force=T, rownames=F, keep_vec_name=T)
{
"coOrdinate":["c1","c2","c3","c4","c5","c6","c7","c8"],
"injectionSite":[null,null,null,null,null,null,null,null],
"drug":[null,null,null,null,null,null,null,null],
"drugConcentration":[null,null,null,null,null,null,null,null],
"bath":[null,null,null,null,null,null,null,null],
"bathConcentration":[null,null,null,null,null,null,null,null],
"status":["active","active","active","active","active","active","active","active"]
}
如果这些都失败了,我可以强制转换我的数据。表到矩阵。这将为我提供逐行JSON,但我将丢失列名:
Browse[4]> jsonlite::toJSON(I(as.matrix(message$data)),dataframe='columns',null='null', na='null', auto_unbox=T, force=T, rownames=F, keep_vec_name=T)
[
["c1",null,null,null,null,null,"active"],
["c2",null,null,null,null,null,"active"],
["c3",null,null,null,null,null,"active"],
["c4",null,null,null,null,null,"active"],
["c5",null,null,null,null,null,"active"],
["c6",null,null,null,null,null,"active"],
["c7",null,null,null,null,null,"active"],
["c8",null,null,null,null,null,"active"]
]
那么,我怎样才能强制Shiny按行传递我的data.frame呢?
您可以简单地使用jsonlite::toJSON()
预编码R数据,并将编码的JSON字符串传递给shiny。它将被视为一个逐字的JSON字符串,而不是被双重编码(例如"[1,2]"
将不会再次编码为""[1,2]""
)。这是因为我们在jsonlite::toJSON()
(PR#795)中使用了参数json_verbatim = TRUE
。这就要求的> = 0.12.0。