Question

我的闪亮应用程序读入外部csv文件，使用应用程序中的用户输入进行更新，并使用这些文件更新外部csv文件。这在本地工作但是我的应用程序在闪亮的服务器上它没有更新，任何想法为什么这是？感谢。

我在下面添加了一些简单的代码但不确定它是否有意义，函数num用于获取输入，在数据帧中搜索它们并更新然后输出更新的数据帧和另一个数据帧叫＆＃34;数字＆＃34;带时间戳。

底部有模态的东西是num（）函数仅在按下按钮时发生，这会创建模式，用于显示用户输入的内容以及他们是否按下＆＃39;继续＆＃39; csv会更新，如果没有，他们可以返回并更改详细信息。

ui <- fluidPage(
  useShinyjs(),
  selectInput("1", "Pick a number", "1-2","2-3"),
  selectInput("2", "Pick another number", "4-5", "5-6"),
  actionButton("go", "Go")
)

server <- function(input, output, session){
 df <- read.csv(df.csv, header = TRUE, sep = ",")
 num <- function(df, num1, num2){
  date.stamp <- format(Sys.time(), "%Y-%m-%d-%H-%M-%S")
  save.file <- paste0("numbers", date.stamp, ".csv")
  write.csv(df, file = save.file, row.names = FALSE)
  write.csv(df, file = "df.csv", row.names = FALSE)  
  return(df)
}
observe({
 shinyjs::toggleState("go", condition = isTruthy(input$1)
                     && isTruthy(input$2))
})
react <- reactiveValues()
observeEvent(input$go, {
 react$colm1 <- input$1
 react$colm2 <- input$2
 react$df1 <- data.frame("Numbers" = c("Num1", "Num2"),
                         "Values" = c(react$colm1, react$colm2))
 react$review <- datatable(rownames = FALSE,
                       selection = "none",
                       options = list(dom = "t",
                                      pageLength = nrow(rv$df.check),
                                      autoWidth = FALSE,
                                      columnDefs = list(list(width = 
                                      "20%",
                                      targets = c(1)),
                                      list(className = "dt-center",
                                           targets = c(1)))),
                       react$df.check)
showModal(
  modalDialog(
    footer = tagList(modalButton("Change numbers"),
                     actionButton("click", label = "Proceed")
    ),
    strong(em("Inputs Entered")),
    p("Please double check numbers"),
    DT::renderDataTable({
      react$review
    })

    ))
observeEvent(input$click, {
  num(df, input$1, input$2)
  shinyjs::reset("1");shinyjs::reset("s2")
  removeModal() 
})
})}
shinyApp(ui = ui, server = server) #calls shiny app

R Shiny应用程序在本地工作但不在闪亮的服务器

0 个答案: