我是 Shiny 的新手,正在尝试为我构建的函数构建更易于访问的输入和输出。我把这个给那些不运行 R 的人,所以试图构建一些在后台运行我的函数然后吐出答案的东西。
不幸的是,我在以我想要的方式获取所有内容并处理一堆错误时遇到了一些麻烦。但是,这是我更尖锐的问题:
我要运行的实际函数需要一个名称(在引号中为“Last,First”)和一个数字。
PredH("Last,First",650)
所以我想要一个闪亮的应用程序,它接受一个名称输入和一个数字输入,然后运行这个程序,然后用我的答案吐出一个数据表。所以有几个问题。
如何以正确的形式将其输入到服务器端脚本上的方程式中,我是否需要在函数中返回它以便可以使用 function$table 类型访问来访问它?(现在我只是在控制台中使用 cat() 函数打印该函数,但知道这可能不适用于这种类型的应用程序。
我想返回一个可以在 PredH14$table 获得的数据框。我如何去建造那个闪亮的?
到目前为止,这是我的代码:
用户界面:
library(shiny)
shinyUI(pageWithSidebar(
# Application title
headerPanel("Miles Per Gallon"),
# Sidebar with controls to select the variable to plot against mpg
# and to specify whether outliers should be included
sidebarPanel(
textInput("playername", "Player Name (Last,First):", "Patch,Trevor"),
radioButtons("type", "Type:",
list("Pitcher" = "P",
"Hitter" = "H"
)),
numericInput("PAIP", "PA/IP:", 550),
submitButton("Run Comparables")
),
mainPanel(
textOutput("name")
)
服务器:
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)
})