Add pivot_longer test to nottshcData template

[Lextuga007]

## pivot_time_longer = TRUE ----
testthat::test_that("<table> - pivot_time_longer = TRUE", {

  col_names <- c()

  df <- get_() %>%
    tidy_(pivot_time_longer = TRUE) %>%
    head(5) %>%
    dplyr::collect()

  testthat::expect_named(
    df, col_names,
    ignore.order = TRUE, ignore.case = FALSE
  )
})

[Lextuga007]

And add:

##.keep_source = TRUE----
testthat::test_that("<table> - .keep_source = TRUE", {

  col_names <- c(
    'source'
  )

  df <- get_() %>%
    tidy_(pivot_time_longer = TRUE,
                      .keep_source = TRUE) %>%
    head(5) %>%
    dplyr::collect()

  testthat::expect_named(
    df, col_names,
    ignore.order = TRUE, ignore.case = FALSE
  )
})

[Lextuga007]

dput(names(df)) to get column names in c()