我定义了一个 selectInput 如下。我想访问每个选项的标签，并将其呈现在主面板上。
如果用户选择“Sugar sweetened bev.”，我想在主面板上呈现如下内容：
“你选择了加糖的 bev。”，但我得到的是“你选择了 ssb”。
我以这种方式设置 selectInput 选项的原因是因为我想要图表标题的左侧，而右侧是变量名称。
非常感谢任何建议或替代方向！
library(shiny)
ui <- fluidPage(
sidebarLayout(
sidebarPanel(
selectInput("foodvars", "Select food:",
choices = c("Beef/Pork" = "beefpork",
"Sugar sweeteened bev." = "ssb",
"Total fruit" = "total_fruit"))),
mainPanel(
textOutput("dispText")))
)
ui <- fluidPage(
sidebarLayout(
sidebarPanel(
selectInput("foodvars", "Select food:",
choices = c("Beef/Pork" = "beefpork",
"Sugar sweeteened bev." = "ssb",
"Total fruit" = "total_fruit"))),
mainPanel(
textOutput("dispText")))
)
server <- function(input, output) {
output$dispText <- renderText({
paste("You chose ",input$foodvars)})
}
shinyApp(ui = ui, server …我有以下四个列表。
varnames <- list("beefpork", "breakfast", "breakfast_yn", "diet_soda", "food_label", "fruit_and_veggie", "fruit_juice", "fruits", "milk", "min_foods","regular_soda", "ssb", "total_fruit", "vegetables", "asthma", "bmiclass3", "bmiclass4","bmiclass5", "dental_absence", "dental_appt", "diabetes", "food_allergies", "sore_teeth", "trying_weight", "count_pa60days", "count_vigpa20days", "gaming_bedroom", "other_organized_pa", "pa30outdoor","paguidelines", "pc_time", "school_transport", "sport_teams", "tv_bedroom", "tv_time_char", "video_games_char")
grades <- list("2", "4", "8", "11")
groups <- list("none", "ethnic", "bordercounty")
regions <- list("state", "hsr")
以及以下函数，它返回一个整数：
all_empty = function(outcome, groupvar, gradevar, regionvar){
#How many observations?
if (groupvar == "none")
fmla <- as.formula(paste0("~", outcome))
else
fmla <- as.formula(paste0("~", outcome, "+", groupvar))
if (regionvar == "hsr") …