Вывод текста с меткой или нередактируемый ввод текста

Question

Я - новенький Shiny, и у меня, вероятно, простой вопрос, но я клянусь, я потратил полдня на чтение решений здесь и не могу найти ничего похожего на то, что мне нужно. Imaging у вас есть база данных с сотрудником ID, имя, фамилия, возраст. Мне нужно, чтобы в моем приложении был текстовый ввод, позволяющий пользователю вводить идентификатор и видеть в одной строке имя, фамилию и возраст. Проблема, с которой я сталкиваюсь, заключается в том, что textInput будет иметь метку (скажем, «ID»). На всех трех других полях, которые мне нужны в одной строке, не будет метки. Так что мне нужен либо способ добавить метку к трем элементам textOutput, либо отобразить их как textInput со значением по умолчанию, которое должно изменяться / вести себя как выход, как только пользователь вводит новый идентификатор. Но как? Это мой пример кода:

library(shiny) 
u <- fluidPage(   
  titlePanel("Simple Selectable Reactive Function"),   
  sidebarLayout(
                sidebarPanel(),
                mainPanel(
                          h2("Results"),
                          fluidRow(column(2,
                                          textInput("input_ID", label = "Cusip 1",
                                                    value = "123")),
                                  column(2,
                                         textOutput(outputId = "output_name")),
                                  column(2,
                                         textOutput(outputId = "output_lastname")),
                                  column(2,
                                         textOutput(outputId = "output_age"))
                                  )
                          )
                )
  )

s <- function(input,output){
        output$output_name <- renderText(
          {             # here is where I will check in a database
            paste("Sample Name")   
          })    
        output$output_lastname <- renderText(
          {             # here is where I will check in a database
            paste("Sample Last Name")   
          })
        output$output_age <- renderText(
          {             # here is where I will check in a database
            paste("Sample Age")   
          })
  } 
shinyApp(ui=u,server=s)

Возможно, мне придется использовать разные виджеты? Спасибо

Answer 1

Я обновил код, чтобы изменить метку, используя textInput, как предложено в комментарии. Возможно, это поможет понять, что именно вы ищете.

library(dplyr)
library(shiny)
library(shinyjs)
u <- fluidPage(
  titlePanel("Simple Selectable Reactive Function"),
  sidebarLayout(
    sidebarPanel(),
    mainPanel(
      h2("Results"),
      fluidRow(
        column(2, textInput("input_ID", label = "Cusip 1",value = "123")),
        column(2, textInput("output_name", label = "Firstname") %>% disabled()),
        column(2, textInput("output_lastname", label = "Lastname") %>% disabled()),
        column(2, textInput("output_age", label = "Age") %>% disabled())))))

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

  observe({
    id <- input$input_ID
    set.seed(id)
    df <- list(firstname = sample(LETTERS, 1), lastname = sample(LETTERS, 1), age = sample(1:100, 1))
    updateTextInput(session, inputId = "output_name", label = df[["firstname"]])
    updateTextInput(session, inputId = "output_lastname", label = df[["lastname"]])
    updateTextInput(session, inputId = "output_age", label = df[["age"]])
  })
}
shinyApp(ui=u,server=s)