Question

我正在尝试在shinyapp.io中发布带有闪亮组件的交互式文档（R markdown）。该应用程序在本地运行，没有任何错误，并且在部署过程中似乎没有出现任何错误（在点击RStudio上的“发布”按钮后）。但是，每次我尝试发布文档时，打开的浏览器都会显示以下消息：未使用的参数（filename，stop_on_error！= 2）。

我目前正在使用谷歌浏览器作为浏览器，但我尝试通过Internet Explorer打开应用程序（如果此信息有用）

我已经尝试了一些解决方案，例如，将工作目录设置为app目录，并剥离任何未使用的库......但这些替代方案失败了。

以下是我的应用的代码：

应用-2.Rmd

第一次尝试：

---
runtime: shiny
output: html_document
title: "App_2"
author: "Ingrid XXX"
date: "29 de julho de 2016"
--- 
library(shiny)
library(dplyr)
library(lubridate)
library(ggplot2)

```{r, echo=FALSE}

dados <- read.csv("b_d.csv",header = T,na.strings = c("(null)"),encoding =    "UTF-8" )
dados<- dados[,1:31]


dados$DATA.FATO <- parse_date_time(dados$DATA.FATO, c('dmY', 'dmy'))
dados$DATA.FATO <- as.Date(dados$DATA.FATO)

```

第二次尝试：

```{r, echo=FALSE}

server <- function(input, output) {

  output$datas <- renderUI({

  dateRangeInput("date", "Selecione a faixa de datas:", start="2012-01-01", end="2012-12-31", 
               min="2012-01-01", max="2012-12-31", format="dd-mm-yyyy", separator = "-")
  })


  date1=reactive({as.character(input$date[1])})
  date2=reactive({as.character(input$date[2])})

  dados2=reactive({

    subset(dados, DATA.FATO >= date1() & DATA.FATO <= date2())

  })

  dat <- reactive({

    ocorrencias_DIA <- dados2()%>%
     group_by(DATA.FATO)%>%
     summarise(count=n())

   })


  output$main_plot <- renderPlot({

   ggplot(dat(),aes(x=DATA.FATO,y=count))+geom_line()+geom_smooth()

   })

}

ui <- fluidPage(

  # Application title
  titlePanel("Média de Ocorrências ano 2012"),

  # Sidebar with a slider input for the number of bins
  sidebarLayout(
    sidebarPanel(

     uiOutput("datas")

    ),

  mainPanel(


    plotOutput(outputId="main_plot"))

   )
)

shinyApp(ui=ui, server=server)
```

任何人都可以说明这个问题的原因和解决办法吗？

任何帮助都会非常有用。

感谢。

Answer 1

通过更新软件包“evaluate”v.0.8到v.0.9解决了这个问题。可以通过以下方式获得提示：getting a parser_all error in R when using knitr for converting a basic Rmd file into HTML

尝试在shinyapp.io中发布交互式文档时，未使用的参数（filename，stop_on_error！= 2）

应用-2.Rmd

1 个答案: