R 闪亮-将文本输入纳入辅助功能

我不熟悉Shiny，并尝试为我构建的函数构建更易访问的输入和输出。我把这个给了那些不运行R的人，他们试图构建一些在后台运行我的函数的东西，然后给出答案

不幸的是，我在处理一大堆错误时遇到了一些麻烦。然而，我有一个更为尖锐的问题：

我想要运行的实际函数包含一个名称（在引号中为“Last，First”）和一个数字

PredH("Last,First",650)

所以我想要一个闪亮的应用程序，它接受一个名称输入和一个数字输入，然后运行这个程序，然后用我的答案吐出一个数据表。有几个问题

如何以正确的形式将其输入到服务器端脚本的等式中，是否需要在函数中返回它，以便使用函数$table type access访问它？（现在我只是在控制台中为函数使用cat（）函数进行打印，但我知道这可能不适用于这种类型的应用程序

我想返回一个可以在PredH14$table上获得的数据帧。我该如何构建它呢

以下是我目前的代码：

用户界面：

服务器：

library(shiny)

shinyServer(function(input, output) {

sliderValues <- reactive({


    data.frame(
      Name = c("name", "PA"),

        Value = c(as.character(playername),
                  PAIP),

        stringsAsFactors=FALSE)
  })

name=input[1,2] 
PAIP=input[2,2] 
testing <- function(name,PAIP){ 
a=paste(name,PAIP) 
return(a) }
output$name=renderText(testing$a)


})

库（闪亮）
shinyServer（功能（输入、输出）{
sliderValues我不太确定我100%理解了你的问题，但我清楚地看到你在想如何将用户界面的输入传递到服务器中，或者反过来

在服务器代码中，显然您没有从UI获得任何输入。基本上，您已经在
UI.R
中创建了三个输入变量：

1. input$playername
2. input$type 
3. input$PAIP

和一个输出：

1. output$name

让您知道，函数
sliderValues感谢您的回答，它非常有用。不过，快速提问。我正在尝试将这些输入传递到服务器端的另一个函数中。假设我的函数是这样的：`name=input[1,2]PAIP=input[2,2]测试我做这种类型的事情，并且总是带着类型closure的对象返回。closure是不可子集的，我找不到关于这个问题的答案。@baseball测试是一个函数，
testing$a
对我来说没有意义，请尝试
renderText（测试（输入$name，输入$PAIP））
@BaseballR如果我是你，我将从头开始编写整个代码，一步一步地计算出每一部分，而不是将一段代码直接放在那里而迷失方向。我的代码基本上是一个路线图，保证不会开箱即用。你需要花更多的时间在它和调试上。
1. output$name

# server.R
library(shiny)
shinyServer(function(input, output) {

  sliderValues <- reactive({
      result <- ... input$playername ... input$type ... input$PAIP
      return(result)
  })

  output$name <- renderPlot/renderText (... sliderValues...)
})

# ui.R
library(shiny)

shinyUI(pageWithSidebar(

  headerPanel("Miles Per Gallon"),

  sidebarPanel(
    textInput("playername" ... ),
    radioButtons("type" ... ),
    numericInput("PAIP" ... ), 
    submitButton("...")
  ),

  mainPanel(
    textOutput/plotOutput...("name")
  )
 ))

library(shiny)
runExample('07_widgets')