Question: Why input (submit) looks like this on IOS only, and how do I solve it?

[![enter image description here](https://i.stack.imgur.com/UVlKB.png)](https://i.stack.imgur.com/UVlKB.png)

thanks in advance

HTML:

```
       <input class="btn" type="submit" 
             [disabled]=""
             value="ابدأ الان">

```

CSS:

```
    .btn {
        height: 4.2rem;
        width: 10.4rem;
        padding: 0;
        border-radius: 6px;
        font-size: 1.5rem;
        margin-right: 1.3rem;
        outline: none;
        font-weight: bold;
        -webkit-appearance: none;
        -moz-appearance: none;
        appearance: none;
        opacity: 1;
        background-color: #032C51;
    }

```

Answer: 
A solution based in the tidyverse could look as follows.

```
library(dplyr)
library(stringr)

df %>%
  mutate(C = if_else(as.double(str_sub(Date_implemented, -1)) %% 2 == 0, -1, 1))

#      ID Date_implemented     C
#   <dbl> <chr>            <dbl>
# 1   345 2020-01-01           1
# 2     2 2020-01-01           1
# 3    67 2020-01-02          -1
# 4   380 2020-01-02          -1
# 5     9 2020-01-02          -1
# 6   176 2020-01-03           1

```

**Data**

```
df <- structure(list(ID = c(345, 2, 67, 380, 9, 176), Date_implemented = c("2020-01-01", 
"2020-01-01", "2020-01-02", "2020-01-02", "2020-01-02", "2020-01-03"
)), row.names = c(NA, -6L), class = c("tbl_df", "tbl", "data.frame"
))

```
If you want to keep with `rep()` function, I believe this will give what you want. The `df$Date` refers to your Date column.

```
rep(rep(c(1,-1), length.out = length(unique(df$Date))), times = table(df$Date))

```