#68 breaks historical legends in mip plots (and therefore compare scenarios)

[0UmfHxcvx5J7JoaOhFSs5mncnisTJJ6q]

#66 works

devtools::install_github('pik-piam/mip', 'c64c7ed')
library(mip)
library(tidyverse)

d <- tribble(
  ~model,   ~scenario,      ~region,   ~variable,   ~unit,   ~period,   ~value,
  'foo',    'foo',          'foo',     'foo',       'foo',   1,         1,
  'foo',    'foo',          'foo',     'foo',       'foo',   2,         2,
  'bar',    'historical',   'foo',     'foo',       'foo',   1,         1,
  'bar',    'historical',   'foo',     'foo',       'foo',   2,         4)

showLinePlots(d, 'foo', mainReg = 'foo')

#68 does not

devtools::install_github('pik-piam/mip', 'b8a98a7')
library(mip)
library(tidyverse)

d <- tribble(
  ~model,   ~scenario,      ~region,   ~variable,   ~unit,   ~period,   ~value,
  'foo',    'foo',          'foo',     'foo',       'foo',   1,         1,
  'foo',    'foo',          'foo',     'foo',       'foo',   2,         2,
  'bar',    'historical',   'foo',     'foo',       'foo',   1,         1,
  'bar',    'historical',   'foo',     'foo',       'foo',   2,         4)

showLinePlots(d, 'foo', mainReg = 'foo')

[orichters]

Was already fixed in #75.