首页 > 解决方案 > 将 RSHINY 文本输入分配给变量以在源脚本中使用

问题描述

我有一个基于 excel 文件生成报告的脚本。我正在尝试将它包装在一个闪亮的 UI 中,以便我的同事能够使用它,但经过数小时的研究,我似乎仍然无法找到如何将文本输入存储为我可以在调用时使用的变量我的使用 source() 报告。我知道它存储为 input$textinput 但我不能将它用作脚本中的变量。我的输入是:

  textInput("locusinput", h3(strong("Enter Location")), value = ""),
  actionBttn(inputId = "report", label = "Generate Report", style = "gradient", color = "royal", 
  size = "md", block = TRUE),

我的输出是:

 observeEvent(input$report, {
          loc <- renderText(input$locusinput, quoted = TRUE)
          output$test <- renderText({paste("<font color = \"#6495ED\"><b>","You have generated a report for ", input$locusinput ,"</b></font>")})

          source("Wastewater_Reporting.R")

我也试过:

loc <- input$locusinput
loc <- renderText(input$locusinput)
loc <- isolate(input$locusinput)
source("otherscript.r")

似乎没有任何效果。(loc 是 otherscript.r 中使用的变量)我发现的所有文档都是如何让它显示到 SHINY gui 中,而没有关于如何将输入用作变量

标签: rshiny

解决方案


推荐阅读