Это, вероятно, не делает этого, это ваша оболочка, завершающая команду, так как вы использовали ее раньше.
Вы можете взглянуть на свою историю, набрав history
или отредактировав ~/.bash_history
. Вы можете отредактировать свою историю из файла ~/.bash_history
, или вы можете ввести history
, затем введите номер строки с git checkout myBranch
, а затем используйте history -d {line number here}
. В крайнем случае вы можете использовать команду history -c
, чтобы полностью уничтожить историю.
Я заменил ifelse
на простое if
условие. Я предполагаю, что это более безопасно, так как пайпинг к filter
и затем использование ifelse
может привести к ошибке. Рассмотрим этот код сервера:
library(shiny)
server <- function(input, output) {
selectdata <- reactive({
# Give back original data (no filter is needed)
if (any(input$cut == "All")) {
diamonds
} else {
# Subset data
# You can also use: base::subset(diamonds, cut %in% input$cut)
dplyr::filter(diamonds, cut %in% input$cut)
}
})
output$table <- DT::renderDT({
selectdata()
}, options = list(scrollX = TRUE))
}