блестящий Rmarkdown selectInput не работает, когда размещен на shinyapps.io - параметры содержат - PullRequest
Новая
       12

блестящий Rmarkdown selectInput не работает, когда размещен на shinyapps.io - параметры содержат

4 голосов
/ 03 апреля 2020

Я создал интерактивный документ Rmarkdown, который отлично работает при размещении на моем компьютере, однако, когда я публикую sh его на shinyapps.io, все мои выбранные параметры ввода, которые относятся к моим наборам данных, больше не работают.

Например, это одно из моих приложений (ниже). Локально размещенный один из моих вариантов будет "Название школы A" в меню выбора ввода. Когда я размещаю это на shinyapps.io , это выглядит как "Schoola0Namea0A" и когда я выбираю его, больше не отображает вывод. (но с <> вокруг a0) 

shinyApp(
  ui = fluidPage( inputPanel(
      selectInput("schoolName", label = "show school",alloc$SCHNAME, multiple= FALSE, selectize = TRUE)),
      mainPanel(
        plotlyOutput("distPlot", height = 400, width = 750)
        )
      ),


  server =  function(input, output){

      selectedSchool <- reactive({ 
        subset(alloc, SCHNAME == input$schoolName)
      })

     output$distPlot <- renderPlotly({ggplot(aes(x = dist_combined), data = selectedSchool()) +
         geom_histogram(breaks = seq(0, 11, by = .5), fill = "#238A8DFF") +
         labs(x = "distance travelled to school (miles)", y = "count\n", title = paste0("\nDistances travelled to school at ", selectedSchool()$SCHNAME))+
         scale_x_continuous(breaks = c(1,2,3,4,5,6,7,8,9,10),limits = c(0,11)) +ylim(0,175)

     })
  },
  options = list(height = 550)
)

1 Ответ

3 голосов
/ 10 апреля 2020

Мне удалось решить ту же проблему, с которой вы столкнулись, изменив кодировку набора данных, который я добавлял в аргументы выбора selectInput. По какой-то причине данные были закодированы как ASCII. Мне удалось реализовать изменение кодировки в момент импорта этих данных: read.csv (file = "pathtofile), fileEncoding = NULL) или просто пропустить аргумент fileEncoding.

...