Question

我的界面中有一个下拉菜单：

selectInput(inputId = "Header", label = "label", 
            choices = x, 
            selected = NULL),

我想要变量＆＃34; x＆＃34;在上面的例子中，它是一个包含大约100个不同选项的字符向量。我将这些选项保存在.csv文件中，但我无法将.csv文件中的数据（我已上传到我的目录中）保存为矢量。我应该如何将本地.csv文件中的数据保存到R-shiny中以用作菜单选项？我一直在尝试read.csv等功能，但到目前为止还没有运气。

我是否只需手动复制它们？我认为这是一种更简单的方法。

Answer 1

Example data
write.table(rownames(mtcars), "mtcars.csv",
            row.names = FALSE, col.names = FALSE, quote = FALSE)

library(shiny)

# User interface that lets you to select input
ui <- fluidPage(
    selectInput("mySelection", "Select input", "")
)

server <- function(input, output, session) {
    observe({
        # Load your csv file
        x <- read.csv("mtcars.csv", header = FALSE)

        # Update selection mySelection (passed to UI)    
        updateSelectInput(session, "mySelection",
            label = "Select input",
            choices = x[, 1],
            selected = x[, 1][1]
        )
    })
}

shinyApp(ui, server)

将本地csv文件的内容保存为Shiny中的向量

1 个答案: