Test 1

R Markdown

df_pop_state[df_pop_state$region == c('california','oregon','arizona','nevada'), ]

## Warning in df_pop_state$region == c("california", "oregon", "arizona",
## "nevada"): longer object length is not a multiple of shorter object length

##        region    value
## 3     arizona  6410979
## 5  california 37325068
## 38     oregon  3836628

state_choropleth(df_pop_state)

## Warning in private$zoom == "alaska" || private$zoom == "hawaii": 'length(x) =
## 51 > 1' in coercion to 'logical(1)'

## Warning in private$zoom == "alaska" || private$zoom == "hawaii": 'length(x) =
## 51 > 1' in coercion to 'logical(1)'

state_choropleth(df_pop_state,zoom =c('california','oregon','arizona','nevada'))

## Warning in min(xx[xx > upper]): no non-missing arguments to min; returning Inf

## Warning in private$zoom == "alaska" || private$zoom == "hawaii": 'length(x) = 4
## > 1' in coercion to 'logical(1)'

## Warning in private$zoom == "alaska" || private$zoom == "hawaii": 'length(x) = 4
## > 1' in coercion to 'logical(1)'