如何更改 csv 中的值。使用闪亮的滑动条？

Posted 2023-03-13

【中文标题】如何更改 csv 中的值。使用闪亮的滑动条？

【英文标题】：How I can change a value in a csv. using a slide bar in shiny?

【发布时间】：2021-02-24 11:25:17

【问题描述】：

（提前感谢您的帮助）

我正在尝试在我的 Shiny App 中创建一个滑动条。该条必须能够在建模过程中更改氯的百分比值。我的意思是你用一个可以在 csv 中找到的固定值来初始化你的模型。然后，bar 必须改变这个值，当然，还要改变建模结果。

我为 UI 和 SERVE 编写了代码：

用户界面

            mainPanel(
              fluidRow(
                  column(12,
                      h3("Modificacio de Clor"),    #title
                      p("Tria de percentatge per a modificar el Clor a la xarxa"),  #subtitle
                      sliderInput(inputId = "clor_modif", label = "% Clor:", min = -1, max = 1, value = 
                                  0.75, step = 0.05, round = T), #sliderInput with relevant information of 
                                                                 #my bar 
                     )
                  )
               )
            
    ),```

```shinyServer(function(input, output) 

observe(
     #Database where the parameter of chlorine is saved
      simulation_parameters_zona <- read.csv("./data/simulation_parameters_zona.csv", header = TRUE) 
     #The parameter is in 8th file
      simulation_parameters_zona <- simulation_parameters_zona[8,]
     
     #I want the slidebar change the value and the value will be recorded in the csv. 
     #(simulation_parameters_zona). Because when we re-run the modeling, the shiny app takes into account 
     #the new value, and then changes de result of the model.
      
      val <- input$clor_modif
      updateSliderInput(session, val, value = simulation_parameters_zona$dades2*val)
      
    )
)```

Actually, I tried several times how I could attach the bar to the file, but I can't... I'm sorry if the question is dumb (I'm sure about it). I'm a beginner with Shiny...




***Thank you very much for your help!***

【问题讨论】：

updateSliderInput 需要session，因此您可能需要shinyServer(function(input, output, server) ... )...并且您可能需要updateSliderInput 中的inputId，在这种情况下为clormodif...某事喜欢updateSliderInput(session, inputId = clor_modif, value = ...)

【参考方案1】：

我终于解决了我的问题....比我想象的要容易，我从解释开始！ :)

问题是我无法调用我的数据集 Simulation_parameters_zona 的第 8 行，因为我使用了错误的命名法！

我的问题的正确答案是：

 observe(
      simulation_parameters_zona <- read.csv("./data/simulation_parameters_zona.csv", 
header = TRUE)
      simulation_parameters_zona$dades2[8] <- input$clor_modif
      write.csv(simulation_parameters_zona,"./data/simulation_parameters_zona.csv", 
row.names = FALSE)
      print(input$clor_modif)
    )

这允许侧边栏将数字更改为simulation_parameter_zona.csv 中的输入，并且每次有人更改该栏时都会更改模拟。

我希望这可以帮助其他人！ :)

干杯！