假设我有一个包含数据表的闪亮应用程序。
library(shiny)
library(tidyverse)
library(datasets)
library(DT)
data <- as.data.frame(USArrests)
#data<- cbind(state = rownames(data), data)
ui <- fluidPage(
dataTableOutput("preview")
)
# Define server logic required to draw a histogram
server <- function(input, output) {
output$preview<- renderDataTable(
datatable(data, options = list(searching = T, pageLength = 10, lengthMenu = c(5,10,15, 20), scrollY = "600px", scrollX = T ))
)
}
# Run the application
shinyApp(ui = ui, server = server)
我希望能够将用户所在的表页面保存在名为 x 的变量中。有什么办法可以做到这一点吗？任何帮助是极大的赞赏！
我正在尝试模拟当前使用 R 在 Excel 中手动完成的过程，以帮助简化该过程，因此不需要手动完成。这是我正在使用的一些示例数据的示例（请记住，这是一组更大的数据的片段）。
qty_available<- c(13500, 8500, 4600)
supply_qty<- c(0, 1000, 0)
forecast<- c(1200, 400, 3000)
demand_q<- c( 100, 800, 6000)
df<- data.frame(qty_available, supply_qty, forecast, demand_q)
我正在尝试进行以下操作（伪代码）：
qty_available = previous(qty_available) + supply_qty - forecast - demand_q
我可以忽略第一个观察结果，因为它与我的任务上下文无关。
所以在第二个观察中，我们会给13,500 + 1000 - 400 - 800我们13,300. 第三个观察结果将是13,300 + 0 - 3000 - 6000给予我们4300。
如果我要在 Excel 中打开此数据集（以 CSV 格式读取），则过程很简单。我会在 cell 中使用这个公式A3 = A2+B3-C3-D3。然后只需将其向下拖动到列的其余部分即可。
我将如何在 R 中模仿这一点？
我已尝试使用以下命令执行此操作
df<- mutate(df, qty_available = lag(qty_available) …