将文本框值传递给 R 文件

Question

我试图通过单击按钮将文本框中输入的字符串值传递给另一个名为 test.R 的 R 文件

传递的值 ntext 输入到我的测试中的另一个变量。R

Server.R

shinyServer(function(input, output) {



  ntext <- eventReactive(input$goButton, {input$text})

  output$ntext <- renderText({ntext()

    assign('ntext',envir=.GlobalEnv)

    })
})

invisible(readline(prompt="Press [enter] to continue")) 来源（“test.R”）

Ui.R

shinyUI(fluidPage(
  titlePanel("Sentiment Analysis"),

  sidebarLayout(
    sidebarPanel(
      helpText("See current opinion around the globe " ),
      textInput("text", "Keyword"),
      actionButton("goButton", "Go!"),



      mainPanel(
           mainPanel(uiOutput('tweets_txt'))



    )
  )
))

Test.R

s<-searchTwitter(ntext(),100,lang="en")

df <- do.call("rbind", lapply(s, as.data.frame))
df$text <- sapply(df$text,function(row) iconv(row, "latin1", "ASCII", sub=""))

#tweets_txt<-sapply(df$text,function(x) x$getText())

write.table(df$text,file="C:/Users/mtech/Desktop/Twitter/EXTRACT/SentiT/output.txt")

tweets_txt<-df$text

我根据您的建议编辑了代码，但没有将值传递给 Test.R 也必须仅在用户输入文本框后才传递值，这就是我包含一条不可见的线以暂时停止执行的原因

请推荐

Answer 1

正如前面在 cmets 中所说，这似乎有效

library(shiny)
source("test.R")

ui <- fluidPage(
  titlePanel("Sentiment Analysis"),

  sidebarLayout(
    sidebarPanel(
      helpText("See current opinion around the globe " ),
      textInput("text", "Keyword"),
      actionButton("goButton", "Go!")),

      mainPanel(
        verbatimTextOutput("ntext")
    )
  ))


  server <- shinyServer(function(input, output) {

    ntext <- eventReactive(input$goButton, {input$text})

    output$ntext <- renderText({ntext()
      testfunc(ntext())

      #assign('ntext',envir=.GlobalEnv)

    })
  })


  shinyApp(ui = ui, server = server)

我的 test.R 文件如下所示，它在控制台上打印文本：

testfunc <- function(texts){

  print(texts)
}

[编辑]：

根据您编辑的代码，我已经以我认为应该可以工作的方式更改了您的服务器和 Test.R 文件。

服务器如下：

source("Test.R")
server <- shinyServer(function(input, output) {

    ntext <- eventReactive(input$goButton, {input$text})

    output$tweets_txt <- renderText({

      searchInTwitter(ntext())
      ntext()
    })
  })

Test.R如下：

searchInTwitter <- function(ntext){
  s<-searchTwitter(ntext,100,lang="en")

  df <- do.call("rbind", lapply(s, as.data.frame))
  df$text <- sapply(df$text,function(row) iconv(row, "latin1", "ASCII", sub=""))

  #tweets_txt<-sapply(df$text,function(x) x$getText())

  write.table(df$text,file="C:/Users/mtech/Desktop/Twitter/EXTRACT/SentiT/output.txt")

  # tweets_txt<-df$text
}