Question

我想在Shiny中定义一个单选按钮，通常我可以这样做：

radioButtons("choose_country", h3("Country"),
             choices=c('uganda'='UG','tanzania'='TZ','kenya'='KE'))

给出了所需的输出：

但是，我希望从radioButtons中读取选择部分外部定义的矢量。即。

country_assg <- c('uganda'='UG','tanzania'='TZ','kenya'='KE')

然后，我想按如下方式粘贴此向量：

radioButtons("choose_country", h3("Country"),
               choices=country_assg)

这似乎不起作用，因为它似乎不会根据需要分解country_assg向量中的元素。

我的问题是如何让country_assg被评估为内部的选择参数 radioButtons命令，以便获得所需的输出。我希望能够解决这个问题。

Answer 1

对我来说，编译以下三个文件可以完成工作（所有文件都在同一文件夹中）：

<强> ui.R：

source('helpers.R')

shinyUI(fluidPage(
    titlePanel("censusVis"),

    radioButtons("choose_country", h3("Country"),
                 choices=c('uganda'='UG','tanzania'='TZ','kenya'='KE')),
    radioButtons("choose_country", h3("Country"),
                 choices=country_assg)

    )
)

<强> server.R

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

shinyServer(
    function(input, output) {


    }
)

和 helpers.R

country_assg <- c('uganda'='UG','tanzania'='TZ','kenya'='KE')

希望这有帮助。

PS：严格来说，您不需要source此小应用的服务器部分中的helpers.R，因为server.R不需要helpers.R中的任何定义1}}。

R Shiny将矢量作为radioButtons选择参数传递

1 个答案: