Каков наилучший способ хранения текста перед вводом пользователем?

Извиняюсь, если это где-то задокументировано, но я изо всех сил пытался найти что-нибудь полезное.

У меня есть блестящее приложение, в котором пользователь загружает файл .csv, который затем появляется в пользовательском интерфейсе с помощью DT::renderDataTable() и DT::dataTableOutput(). Каков наилучший способ, чтобы на этой панели отображался удерживающий текст (например, «Пожалуйста, загрузите csv») до тех пор, пока пользователь не загрузит свой файл?

Спасибо.


r shiny
person g_t_m    schedule 31.12.2019    source источник

Ответы (1)


arrow_upward
2
arrow_downward

Кажется, что функция validate соответствует тому, что вы хотите. Проверьте здесь, чтобы получить дополнительные сведения и настроить сообщение об ошибке.

Вам необходимо загрузить файл Excel в следующем примере:

library(shiny)
library(DT)
library(readxl)

ui <- fluidPage(

    titlePanel("Example"),

    sidebarPanel(
        fileInput("upload", "Upload a file")
    ),

    mainPanel(
        dataTableOutput("table")
            )
    )


server <- function(input, output, session) {

    output$table <- renderDataTable({
        validate(need(input$upload != "", "Please select a data set"))
       read_xlsx(input$upload$datapath, sheet = 1)
    })

}

shinyApp(ui = ui, server = server)
person bretauv    schedule 31.12.2019