【发布时间】:2020-07-16 00:11:49
【问题描述】:
我创建了一个交互式 Rmarkdown 文档,它在托管在我的机器上时运行良好,但是,当我将它发布到 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)
)
【问题讨论】:
-
我能够通过更改我添加到我的 selectInput 选项参数中的数据集的编码来解决您遇到的相同问题。出于某种原因,数据被编码为 ASCII。我能够在导入这些数据时实现编码更改:read.csv(file = "pathtofile), fileEncoding= NULL)
-
@Susan Switzer,您可以将其发布为答案
标签: html shiny character-encoding r-markdown