Как распечатать сводку переменной в R shiny?
Я бы хотел, чтобы на основе selectInput(), который может выбрать клиент, сводка выбранной переменной будет напечатана в поле. Мой код для ui.R:
box(
title = "Informed Investor",
status = "primary",
solidHeader = TRUE,
width = 6,
selectInput("informedDset", label = "Select Category", choices = list("Informed Full" = "InformedFull", "Informed Fact" = "InformedFact", "Informed Fact Positive" = "InformedFact.Pos", "Informed Fact Negative" = "InformedFact.Neg", "Informed Emotions" = "InformedEmotions", "Informed Emotions Fact" = "InformedEmotionsFact"), selected = "Informed Full")
),
box(
title = "Data Table",
status = "warning",
solidHeader = TRUE,
width = 6,
height = 142,
verbatimTextOutput("summaryDset")
)
И мой код для server.R:
output$summaryDset <- renderPrint({
summary(input$informedDset)
})
Какое резюме? И почему ваш подход не работает? Что не так?
@ A.Suliman спасибо! Но знаете, как я могу решить свою проблему?
@phalteman Я получаю это: Length Class Mode 1 character character
«InformedFull» и т. д. Должны представлять данные или переменную, которые можно суммировать. Поскольку это всего лишь названия, попробуйте summary("InformedFull") в R.
Используйте [input $formedDataset]], так как он содержит текст
Ответы 1
Как указано в комментариях, summary возвращает Length Class Mode 1 character character, потому что input$informedDset - это символьная строка.
Если вы хотите извлечь сводку одной выбранной переменной в наборе данных, вы можете найти воспроизводимый пример ниже с набором данных iris:
library(shiny)
library(shinydashboard)
ui=fluidPage(
box(title = "Informed Investor",
status = "primary",
solidHeader = TRUE,
width = 6,
selectInput("informedDset", label = "Select Category",
choices = list("Sepal.Length" = "Sepal.Length",
"Sepal.Width" = "Sepal.Width",
"Petal.Length" = "Petal.Length",
"Petal.Width" = "Petal.Width",
"Species" = "Species"), selected = "Sepal.Length")),
box(
title = "Data Table",
status = "warning",
solidHeader = TRUE,
width = 6,
height = 142,
verbatimTextOutput("summaryDset")))
server = function (input,output){
output$summaryDset <- renderPrint({
summary(iris[[input$informedDset]])
})}
shinyApp(ui, server)
Это то, что ты хочешь сделать?
Орельен, ты такой гений! спасибо, братан, именно это я и искал !!
варианты выбора являются просто представлением и должны использоваться для извлечения части набора данных, поэтому их обобщение не имеет смысла. Проверьте здесь для более подробной информации.