Selectinput не принимает заданные значения и не обновляет таблицу должным образом

Question

У меня есть датафрейм ниже

x <- data.frame(CategoryA=c("First", "Second",
                                   "Third" ),
                CategoryB=c("First", "Second",
                                   "Third"),
                Frequency=c(10,15,5))

Блестящее приложение, которое я использую, должно принимать значения CategoryA в качестве входных данных и обновлять данные на основе этого выбора. Первая проблема заключается в том, что selectInput() принимает 1,2,3 в качестве входных данных вместо «Первый», «Второй», «Третий» и, конечно, не обновляет таблицу должным образом.

#ui.r
pageWithSidebar(
  headerPanel('k-means '),
  sidebarPanel(
    uiOutput("inv")
  ),
  mainPanel(
    dataTableOutput("tab1")
  )
)
#server.r
library(shiny)
library(tidyverse)
library(DT)
function(input, output, session) {
  output$inv<-renderUI({
    selectInput("tow", label ="Suburb", 
                choices = c(unique(x$CategoryA)),
                multiple = T)
  })


  datasett<-reactive({
    tmp1 <- x %>% 
      filter(x[,1] == input$tow )
    tmp1
  })
  output$tab1<-renderDataTable({
    datasett()
  })
}

Answer 1

Вам нужно stringsAsFactors = F -

x <- data.frame(CategoryA=c("First", "Second",
                                   "Third" ),
                CategoryB=c("First", "Second",
                                   "Third"),
                Frequency=c(10,15,5), stringsAsFactors = F)

также -

datasett < -reactive({
    tmp1 <- x %>% 
      filter(CategoryA %in% input$tow )
    tmp1
  })