R Shiny：在用户更改输入后更新数据帧

Question

我现在尝试更改具有以下结构的现有数据帧太久了：

A<-c(1,NA)
B<-c(2,NA)
df<-data.frame(A,B)
>df
          A     B
1         1     2 
2         NA    NA

我想在 UI 中显示数据帧，并更改一个 csv 文件，用数据帧的数据覆盖它。

我想实现的路径：

• 数据帧最初加载到 R 中。
• 用户在应用中的滑块上选择一个值。然后，此值应写入 A2 以覆盖 NA。之后，整个事情应该写成一个CSV文件。

到目前为止问题的隔离部分：

library("shiny")
x<- .. #(csvupload)
ui <- fluidPage(
#Copy of x
xchange<-x 
#The slider where the user chooses a value
sliderInput("slider", label = "Slider", min = 0, 
           max = 3,step=0.001, value =1),            
#Print of the changed database
textOutput("xchange"))    

server<-function(input,output,session){
observeEvent(input$Slider,{
    x$A[x$Szenarios=="2"]<-input$slider
 }) 
output$xchange<-renderValues({
    input$x})
}

我收到错误：

Error code:argument should be a character vector of length 1
all but the first element will be ignored
Warning: Error in reactiveValues: All arguments passed to reactiveValues() must be named.

我想我使用observeEvent，renderValues或两者错误或textOutput在这里使用只是一个坏主意。但。。我不知道。。。

我

真的不需要打印它，但我认为这可能是控制我所做的是否正确的最佳方式。

Answer 1

这可能

对你有用。上传和写入所有不同版本的数据时，它变得有点不稳定。

library("shiny")
ui <- fluidPage(
#The slider where the user chooses a value
sliderInput("slider", label = "Slider", min = 0, 
           max = 3,step=0.001, value =1),            
#Print of the changed database
textOutput("xchange")
)    

server<-function(input,output,session){
#Read data into server not ui
data<-read.csv("x")
#Re-read data for any changes, write to csv new changes, ignore startup
observeEvent(input$slider,{
data<-read.csv("x")
data$A[2]<-input$slider
write.csv(data,"data.csv")
ignoreInit=T
})
#Reactive variable xchange that updates the values of data
xchange<-reactive({
data<-read.csv("x")
data$A[2]<-input$slider
data
})
#Display the most recent file, with the most recent changes
output$xchange<-renderTable({
xchange()
})

}