r-反应性CSV选择，然后在函数中用作df

Question

我是新来的，尝试结合一些功能，但遇到了一些麻烦。

我希望用户能够选择一个CSV，然后从该表中获得一个随机实例(在本例中为tweet(。以下代码在"；tweetData"；是使用read_csv静态加载的csv。

## function to return random row number from data set
getTweet <- function(){
tweetData[sample(nrow(tweetData), 1), ]
}
function(input, output, session) {
## set reactive values, get randomized tweet
appVals <- reactiveValues(
tweet = getTweet(),
ratings = data.frame(tweet = character(), screen_name = character(), rating = character())
)

我想用一个动态选择的csv来代替"；tweetData"；，想加这个吗？？

csvName <- reactive(paste0('../folder_path/', input$file_name))
selectedData <- read.csv(csvName)

如何使用反应选择的csv来适应第一个代码块的结构？

Answer 1

您可能正在寻找fileInput，以便为用户提供上载数据集的选项。

这是一个简单的可重复的例子-

library(shiny)
ui <- fluidPage(
sidebarLayout(
sidebarPanel(
fileInput("file1", "Choose CSV File"),
),
mainPanel(
tableOutput("contents")
)
)
)
server <- function(input, output) {
output$contents <- renderTable({
req(input$file1)
read.csv(input$file1$datapath)
})
}
shinyApp(ui, server)