小编Jer*_*myC的帖子

我已经编写了 R 包的大部分内容，现在希望编写一个使用我自己的数据的小插图，这些数据已经在包中。数据正确存储在文件夹my_data.Rda中Data，加载包后我可以在控制台中访问它，例如使用data(my_data).

当使用 时，我的问题出现了usethis::use_vignette("my_vignette")，我想在小插图中包含类似这样的内容（当然，在实践中要复杂得多）：

my_data 的平均值由下式给出

```{r} data(my_data)
mean(my_data)
```

当我编织小插图时我收到了消息

“assert_engine 中出现错误（is_numeric，x，.xname = get_name_in_parent（x），：找不到对象'my_data'”

我看过这篇文章：How to add external data file intodevelopment R package? 但这涉及外部数据。

我究竟做错了什么？

我已经创建了一个最小的 R 包，其中包含 vignettes 文件夹中的相关 Rmd 文件。链接到 Github

我编写了一个闪亮的应用程序，允许用户修改数据帧的各个行，但是当我尝试包含附加新行的选项时，我在控制台上收到此警告：

asJSON(keep_vec_names=TRUE) 的输入是一个命名向量。在 jsonlite 的未来版本中，将不再支持此选项，并且命名向量将被转换为数组而不是对象。如果您想要 JSON 对象输出，请改用命名列表。请参阅？toJSON。

在应包含数据框一列中的项目的文本输入框中，将显示以下内容：

[object Object]

这里有一些答案引用了警告消息，但条件与我的情况不同，并且除了警告消息之外，它们似乎彼此没有什么共同点。

这是我用于修改数据框的应用程序。它工作完美。

require(shiny)

in.df <- data.frame(name = c("Alice","Bob","Charles"), 
                age = c(22, 25, 36))
rownames(in.df) <- NULL
runApp(
  list(
    ui = fluidPage(
      sidebarPanel( 
        numericInput("line", "Line number", value = 1),
        textInput("name", "Name:"),
        numericInput("age", "Age:", value = 25),
        actionButton("amendButton", "Amend an entry") 
  ),
      mainPanel(
        tableOutput("table"))
    ),
    server = function(input, output, session){
      values <- reactiveValues()
      values$df <- in.df
      current_line <- reactive({
        il <- input$line
        nr <- nrow(values$df)
        if(il > nr){
          return(nr) 
        } else if(il …