有没有办法让闪亮的数据表 (DT) 中选定的行可供用户复制 (Ctrl+C) 到剪贴板。理想情况下,它还可以提供数据表的列名或标题。
全局R
library(rclipboard)
library(shiny)
Run Code Online (Sandbox Code Playgroud)
ui.R:
...
rclipboardSetup(),
...
uiOutput("copy"),
Run Code Online (Sandbox Code Playgroud)
服务器.R:
output$copy = renderUI({
s = input$orders_rows_selected
rclipButton("copybtm","Copy",data()[s,],icon("clipboard"))
})
Run Code Online (Sandbox Code Playgroud) tabPanel()我的闪亮ui.R中有几个块,都需要一点时间来加载。但是,它们似乎都被视为单独的页面,并且仅在tabPanel()从导航栏中选择后才开始呈现。
在后台加载初始选项卡后,有没有办法预加载这些页面?
我试图在我的服务器功能的底部包含以下内容:
sapply(names(outputOptions(output)),function(x) outputOptions(output, x, suspendWhenHidden = FALSE))
Run Code Online (Sandbox Code Playgroud)
这适用于观察者或反应性上下文之外的 output$ 变量,但不适用于内部的变量。
我尽量避免renderPlot在observer有意义时进行调用,但是我有一个reactiveVariabledata.frame,它是通过文件轮询调用设置的,然后需要对其进行子集化和转换。
该转换用于一系列绘图。在结构上更容易将其放置reactiveValue在observer, 子集中一次,然后让所有结果图使用该非反应性子集。
Data = reactivePoll(5479,
session,
checkFunc = function() {
if (file.exists(orderStatsPath))
file.info(orderStatsPath)$mtime[1]
else
""
},
valueFunc = function() getData(orderStatsPath)
)
observe({
Data = Data()
Data = subset(Data, subset = Date >= Sys.Date() - 14)
Data$Date = as.character(Data$Date)
output$slippageRootTotalUSD = shiny::renderTable({
result = dcast(Data,
Date ~ Symbol,
value.var = …Run Code Online (Sandbox Code Playgroud) -precision rfc3339在配置中自动设置(人类可读的时间戳)来加载涌入?