Question

我的ui.R文件具有以下内容，允许用户选中复选框。当我尝试在我的server.R文件中理解它时：

a <- renderText({ print(input$checkGroup) })
df <- df %>% filter(match(mfr, a)) %>% select(df)

我收到以下错误：

filter_impl（.data，dots）中的错误：＆＃39;匹配＆＃39;需要矢量参数

我尝试在StackOverflow上寻找答案，有人建议使用cat操作符，但是当我这样做时，我得到了

参数1（类型＆＃39;封闭＆＃39;）不能由＆＃39; cat＆＃39;
处理

fluidPage(
  checkboxGroupInput('checkGroup', label = h3("Checkbox group"), 
  choiceNames = list(...),
                 choiceValues = list('N', 'A', 'G', 'K', 'P', 'Q', 'R'),
                 selected = 'N'),
  hr(),
  fluidRow(column(3, verbatimTextOutput("value"))) 
)),

编辑 - 嘿那里，谢谢你的评论！在我的情节中，我有以下代码：

<code> x = df[[input$nutri]], </code>

如何修改它以使用df（）？如果我使用df（），我会收到以下错误：

过滤条件不会计算为逻辑向量

我尝试将其更改为

<code>    r_df <- reactive({df %>% filter(mfr %in% r_a()) %>% select(df)}) </code>

但我得到

所有select（）输入必须解析为整数列位置。以下不： * df

作为单挑 - 我检查矢量r_a是否有一个等于df值的元素。

Answer 1

使用反应物：

public function up()
    {
    DB::beginTransaction();
    try {

        Schema::table('users', function (Blueprint $table) {
            $table->string('status')->default('online');
            $table->string('api_token');
       });

    DB::commit();
    } catch (PDOException $e) {
        DB::rollBack();
        $this->down();
    }
}

然后在r_a <- reactive(input$checkGroup) r_df <- reactive({df %>% filter(match(mfr, r_a())) %>% select(df)})

中使用r_df()

ui.R将复选框数据返回给server.R，但是如何转换＆＃34; closure＆＃34;在server.R文件中向量？

1 个答案: