小编Éri*_*tto的帖子

我想确定哪一行与向量中的信息匹配。作为一个例子，我将使用iris数据集（tibble以更好地近似我的情况的格式）：iris %>% as_tibble(). 然后我有一个单行的小标题，它直接来自原始数据集：

choice <– structure(list(Sepal.Length = 4.5, Sepal.Width = 2.3, Petal.Length = 1.3, 
    Petal.Width = 0.3, Species = structure(1L, .Label = c("setosa", 
    "versicolor", "virginica"), class = "factor")), row.names = c(NA, 
-1L), class = c("tbl_df", "tbl", "data.frame"))

# A tibble: 1 x 5
  Sepal.Length Sepal.Width Petal.Length Petal.Width Species
         <dbl>       <dbl>        <dbl>       <dbl> <fct>  
1          4.5         2.3          1.3         0.3 setosa

我想确定哪一行完全匹配。我认为如果它是一个向量会更好，但这将取决于函数是什么；如果是这样的话，那么你只需要as.numeric()在那个choice.

正确的行是 42。

我对制作闪亮应用程序还比较陌生。我遇到一个问题，我尽量简化相关部分。基本上，我希望在固定文本内有一个输出文本。这是简化版本的样子：

library(shiny)

ui <- fluidPage(
  sliderInput(inputId = "value", label = "Input your number here", min = 0, max =  30, step = 1, value = 16),
  p("Your result is ", textOutput(outputId = "result"), ".")
)

server <- function(input, output){
  output$result <- renderText({
    if(input$value >= 15)
      return("good")
    else
      return("bad")
  })
}

shinyApp(ui = ui, server = server)

您可以看到，如果滑块位于 15 或更高，则文本应该具有“good”作为输出。然而，不是像我想要的那样这样做：Your result is good.它这样做：

Your result is

good
.

textOutput是否在标签内似乎并不重要p()。paste0()似乎paste只会让情况变得更糟：

ui <- fluidPage( …